ApplicationSubView.st
changeset 4390 8d9b8e2add26
parent 4264 783af7121fea
equal deleted inserted replaced
4389:8e185bcef3dd 4390:8d9b8e2add26
   135     ].
   135     ].
   136     super destroy.
   136     super destroy.
   137 
   137 
   138 !
   138 !
   139 
   139 
       
   140 keyPress:key x:x y:y
       
   141     <resource: #keyboard ( #Help) >
       
   142 
       
   143     |app|
       
   144 
       
   145     key == #Help ifTrue:[
       
   146         Error handle:[:ex |
       
   147         ] do:[
       
   148             (app := self application) notNil ifTrue:[
       
   149                 app helpKeyPressed.
       
   150                 ^ self.
       
   151             ].
       
   152         ].
       
   153     ].
       
   154     super keyPress:key x:x y:y
       
   155 !
       
   156 
   140 preRealize
   157 preRealize
   141     |app|
   158     |app|
   142 
   159 
   143     super preRealize.
   160     super preRealize.
   144     (app := self application) notNil ifTrue:[
   161     (app := self application) notNil ifTrue:[