equal
deleted
inserted
replaced
177 "Created: / 05-08-2018 / 03:13:23 / Claus Gittinger" |
177 "Created: / 05-08-2018 / 03:13:23 / Claus Gittinger" |
178 ! |
178 ! |
179 |
179 |
180 keyPress:key x:x y:y view:aView |
180 keyPress:key x:x y:y view:aView |
181 key == #Escape ifTrue:[ |
181 key == #Escape ifTrue:[ |
|
182 self delayedClose. |
|
183 ^ true. |
|
184 ]. |
|
185 ( #( CursorUp CursorDown Return ) includes:key) ifFalse:[ |
182 self installDelayedClose. |
186 self installDelayedClose. |
183 ^ true. |
187 ^ true. |
184 ]. |
188 ]. |
|
189 |
185 "/ (subViews notNil and:[aView == (subViews firstIfEmpty:nil)]) ifTrue:[ |
190 "/ (subViews notNil and:[aView == (subViews firstIfEmpty:nil)]) ifTrue:[ |
186 "/ self topView destroy |
191 "/ self topView destroy |
187 "/ ]. |
192 "/ ]. |
188 ^ false |
193 ^ false |
189 |
194 |
190 "Created: / 04-08-2018 / 17:00:33 / Claus Gittinger" |
195 "Created: / 04-08-2018 / 17:00:33 / Claus Gittinger" |
191 "Modified: / 05-08-2018 / 03:13:52 / Claus Gittinger" |
196 "Modified: / 08-10-2018 / 08:36:52 / Claus Gittinger" |
192 ! |
197 ! |
193 |
198 |
194 pointerEnter:state x:x y:y view:view |
199 pointerEnter:state x:x y:y view:view |
195 delayedCloseAction notNil ifTrue:[ |
200 delayedCloseAction notNil ifTrue:[ |
196 Processor removeTimedBlock:delayedCloseAction. |
201 Processor removeTimedBlock:delayedCloseAction. |