Mercurial > silverbladetech

diff Glimpse/Glimpse Services/GlimpseService.vb @ 63:536498832a79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Latest version before changing bindings to Listbox
author Steven Hollidge <stevenhollidge@hotmail.com>
date Sun, 22 Apr 2012 13:33:42 +0100
parents 3591c26bd63e
children
line wrap: on
line diff
--- a/Glimpse/Glimpse Services/GlimpseService.vb	Sun Apr 22 09:01:20 2012 +0100
+++ b/Glimpse/Glimpse Services/GlimpseService.vb	Sun Apr 22 13:33:42 2012 +0100
@@ -86,9 +86,10 @@
         Me.RootVisual = TryCast(objApp.RootVisual, FrameworkElement)
         Me.HostApplicationName = strHostApplicationName
 
-        Dim fw As New ChildWindow
+        Dim fw As New FloatableWindow()
         fw.Title = Me.HostApplicationName
         fw.Content = New GlimpseViewer
+        fw.ParentLayoutRoot = DirectCast(VisualTreeHelper.GetChild(RootVisual, 0), Panel)
 
         If Double.IsNaN(Me.RootVisual.Width) Then
             'if the host control is autosized (consumes the browser window) then locate Glimpse in the top, left
@@ -103,7 +104,7 @@
                 dblLeft = 0
             End If
 
-            fw.Show()
+            fw.Show(dblLeft, 10)
         End If
 
     End Sub