UIObjectView.st
changeset 1048 d6d4b7abfdd0
parent 1016 2660d468dc61
child 1100 bf884041701f
equal deleted inserted replaced
1047:f2d55d342903 1048:d6d4b7abfdd0
   496 !
   496 !
   497 
   497 
   498 keyPress:key x:x y:y
   498 keyPress:key x:x y:y
   499     "any key pressed
   499     "any key pressed
   500     "
   500     "
   501     <resource: #keyboard ( #Delete #BackSpace #Cut #Copy #Paste #Cmdu ) >
   501     <resource: #keyboard ( #CursorUp #CursorDown #CursorLeft #CursorRight
       
   502                            #Delete #BackSpace #Cut #Copy #Paste #Cmdu ) >
   502 
   503 
   503     (key == #Cut or:[key == #Delete or:[key == #BackSpace]]) ifTrue: [
   504     (key == #Cut or:[key == #Delete or:[key == #BackSpace]]) ifTrue: [
   504         ^ self deleteSelection
   505         ^ self deleteSelection
   505     ].
   506     ].
   506     key == #Copy  ifTrue:[ ^ self copySelection].
   507     key == #Copy  ifTrue:[ ^ self copySelection].
   507     key == #Paste ifTrue:[ ^ self pasteBuffer].
   508     key == #Paste ifTrue:[ ^ self pasteBuffer].
   508     key == #Cmdu  ifTrue:[ ^ self undoLast ].           "/ #Undo
   509     key == #Cmdu  ifTrue:[ ^ self undoLast ].           "/ #Undo
   509 
   510 
       
   511     key == #CursorUp ifTrue:[^self moveSelectionUp].
       
   512     key == #CursorDown ifTrue:[^self moveSelectionDown].
       
   513     key == #CursorRight ifTrue:[^self moveSelectionRight].
       
   514     key == #CursorLeft ifTrue:[^self moveSelectionLeft].
       
   515 
   510     super keyPress:key x:x y:y
   516     super keyPress:key x:x y:y
   511 
   517 
   512     "Modified: / 31.10.1997 / 20:28:00 / cg"
   518     "Modified: / 6.3.1999 / 22:47:48 / cg"
   513 !
   519 !
   514 
   520 
   515 processEvent:anEvent
   521 processEvent:anEvent
   516     "catch expose events for components, and redraw its handles after
   522     "catch expose events for components, and redraw its handles after
   517      the redraw when this happens
   523      the redraw when this happens