FlyByHelp.st
changeset 4227 19df2879f53d
parent 4226 d1dcdcb20574
child 4228 699d09d62316
equal deleted inserted replaced
4226:d1dcdcb20574 4227:19df2879f53d
   156             aView device shiftDown ifTrue:[
   156             aView device shiftDown ifTrue:[
   157                 "/ open a resource-file editor
   157                 "/ open a resource-file editor
   158                 "open a resource file editor on the package's resources"
   158                 "open a resource file editor on the package's resources"
   159 
   159 
   160                 aView topView application enqueueDelayedAction:[
   160                 aView topView application enqueueDelayedAction:[
   161                     Tools::InternationalLanguageTranslationEditor 
   161                     |editor|
   162                         openOnPackage:((aView topView application ? aView) class package)
   162                     
       
   163                     editor := Tools::InternationalLanguageTranslationEditor
       
   164                         openOnPackage:((aView topView application ? aView) class package).
       
   165                     editor selectKey:key.
   163                 ].    
   166                 ].    
   164             ].    
   167             ].    
   165             
   168             
   166             "/ reopen showing the key
   169             "/ reopen showing the key
   167             self initiateHelpFor:aView at:(x@y) now:true.
   170             self initiateHelpFor:aView at:(x@y) now:true.
   185     ^ false
   188     ^ false
   186     "/ ^ super keyPress:key x:x y:y view:aView
   189     "/ ^ super keyPress:key x:x y:y view:aView
   187 
   190 
   188     "Modified (format): / 25-12-2011 / 10:25:23 / cg"
   191     "Modified (format): / 25-12-2011 / 10:25:23 / cg"
   189     "Modified (format): / 16-04-2018 / 16:53:15 / stefan"
   192     "Modified (format): / 16-04-2018 / 16:53:15 / stefan"
   190     "Modified: / 20-02-2019 / 12:09:15 / Claus Gittinger"
   193     "Modified: / 20-02-2019 / 12:33:08 / Claus Gittinger"
   191 !
   194 !
   192 
   195 
   193 keyRelease:key x:x y:y view:aView
   196 keyRelease:key x:x y:y view:aView
   194     <resource: #keyboard (#Control)>
   197     <resource: #keyboard (#Control)>
   195 
   198