FlyByHelp.st
changeset 3247 768269b26ad3
parent 3243 f78b2a3470eb
child 3248 d72c8e4f7684
--- a/FlyByHelp.st	Thu Sep 12 15:17:56 2013 +0200
+++ b/FlyByHelp.st	Fri Sep 13 10:55:12 2013 +0200
@@ -375,7 +375,7 @@
     usableHeight := dev usableHeightAt:org.
 
     helpViewWidth > usableWidth ifTrue:[v width:(helpViewWidth := usableWidth)].    
-    helpViewHeight > usableHeight ifTrue:[v width:(helpViewHeight := usableHeight)].    
+    helpViewHeight > usableHeight ifTrue:[v height:(helpViewHeight := usableHeight)].    
 
     (org x + helpViewWidth) > (monitorBounds left + usableWidth) ifTrue:[
         org := ((monitorBounds left + usableWidth - helpViewWidth) @ org y).
@@ -429,10 +429,10 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.58 2013-09-12 08:30:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.59 2013-09-13 08:55:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.58 2013-09-12 08:30:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.59 2013-09-13 08:55:12 cg Exp $'
 ! !