ComboListView.st
changeset 6098 9f1f13deedde
parent 5816 7876c07931a7
child 6136 529ac7a8ba7d
equal deleted inserted replaced
6097:0cae1cbe5d66 6098:9f1f13deedde
   587 
   587 
   588     <resource: #keyboard (#CursorDown #CursorUp)>
   588     <resource: #keyboard (#CursorDown #CursorUp)>
   589 
   589 
   590     |idx searchKey startIndex|
   590     |idx searchKey startIndex|
   591 
   591 
       
   592     self enabled ifFalse:[
       
   593         "do not change my value if I am disbaled"
       
   594         ^ self
       
   595     ].
       
   596 
   592     list notEmptyOrNil ifTrue:[
   597     list notEmptyOrNil ifTrue:[
   593         key == #CursorDown ifTrue:[
   598         key == #CursorDown ifTrue:[
   594             self deltaSelect:1.
   599             self deltaSelect:1.
   595             ^ self.
   600             ^ self.
   596         ].
   601         ].
   614             ^ self.
   619             ^ self.
   615         ].
   620         ].
   616     ].
   621     ].
   617 
   622 
   618     ^ super keyPress:key x:x y:y
   623     ^ super keyPress:key x:x y:y
       
   624 
       
   625     "Modified: / 30-07-2019 / 16:39:52 / Stefan Reise"
   619 ! !
   626 ! !
   620 
   627 
   621 !ComboListView methodsFor:'focus handling'!
   628 !ComboListView methodsFor:'focus handling'!
   622 
   629 
   623 showFocus:explicit
   630 showFocus:explicit