changed:
#helpTextFor:at:
#keyPress:x:y:view:
return key and better flybyhelp
--- a/FlyByWindowInformation.st Fri Nov 12 11:31:26 2010 +0100
+++ b/FlyByWindowInformation.st Fri Nov 12 11:39:53 2010 +0100
@@ -88,7 +88,7 @@
!
keyPress:key x:x y:y view:aView
- |obj action lcKey|
+ |obj objToInspect objToBrowse lcKey|
key == #Escape ifTrue:[
self stop.
@@ -103,6 +103,10 @@
^ true.
].
+ key == #Return ifTrue:[
+ objToBrowse := lastApplication ? lastView
+ ].
+
key isCharacter ifTrue:[
lcKey := key asLowercase.
@@ -123,15 +127,23 @@
].
obj notNil ifTrue:[
key isLowercase ifTrue:[
- action := [ obj inspect ].
+ objToInspect := obj
] ifFalse:[
- action := [ obj browse ].
+ objToBrowse := obj
].
- action forkAt:8.
].
].
+ objToInspect notNil ifTrue:[
+ [ objToInspect inspect ] forkAt:(Processor userSchedulingPriority).
+ ].
+ objToBrowse notNil ifTrue:[
+ [ objToBrowse browse ] forkAt:(Processor userSchedulingPriority).
+ ].
+
^ true
+
+ "Modified: / 12-11-2010 / 11:38:23 / cg"
! !
!FlyByWindowInformation methodsFor:'help texts'!
@@ -211,25 +223,29 @@
s cr.
s nextPutLine:'Press:'.
s nextPutLine:' ? to show the viewtree'.
- s nextPutLine:' v to inspect view (V to browse)'.
- modelToInspect notNil ifTrue:[
- s nextPutLine:' o to inspect model (O to browse)'.
- ].
- topViewToInspect notNil ifTrue:[
- s nextPutLine:' t to inspect topView (T to browse)'.
- ].
applicationToInspect notNil ifTrue:[
s nextPutLine:' a to inspect application (A to browse)'.
masterApplicationToInspect notNil ifTrue:[
s nextPutLine:' m to inspect masterApplication (M to browse)'.
].
].
- s nextPutAll:'ESC or button to leave flyBy-info mode.'.
+ s nextPutLine:' v to inspect view (V to browse)'.
+ topViewToInspect notNil ifTrue:[
+ s nextPutLine:' t to inspect topView (T to browse)'.
+ ].
+ modelToInspect notNil ifTrue:[
+ s nextPutLine:' o to inspect model (O to browse)'.
+ ].
+ s cr.
+ s nextPutLine:'RETURN to browse application.'.
+ s nextPutAll:'ESC or click to leave flyBy-info mode.'.
]
"
self shownInformationOfViewUnderMouseUntilButtonIsPressed
"
+
+ "Modified: / 12-11-2010 / 11:39:34 / cg"
! !
!FlyByWindowInformation methodsFor:'private'!