changed:
authorClaus Gittinger <cg@exept.de>
Fri, 12 Nov 2010 11:39:53 +0100
changeset 2823 cd54d69eec13
parent 2822 9216737c3d54
child 2824 34ec9ea82209
changed: #helpTextFor:at: #keyPress:x:y:view: return key and better flybyhelp
FlyByWindowInformation.st
--- 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'!