Dear Squeakers
I thought that controlling the lists in the Browser with the keyboard would be fine.
So I have come up with the following code
'From Squeak 1.3 of Jan 16, 1998 on 25 January 1998 at 4:01:20 pm'! !ListController methodsFor: 'menu messages' stamp: 'pm 1/24/98 22:20'! processKeyboard | keyEvent oldSelection nextSelection max min howMany | keyEvent := self sensor keyboard asciiValue. oldSelection := view selection. nextSelection := oldSelection. max := view maximumSelection. min := view minimumSelection. howMany := view clippingBox height // view list lineGrid. keyEvent == 31 ifTrue: [nextSelection := (oldSelection + 1) min: max]. keyEvent == 30 ifTrue: [nextSelection := (oldSelection - 1) max: min]. keyEvent == 1 ifTrue: [nextSelection := 1]. keyEvent == 4 ifTrue: [nextSelection := max]. keyEvent == 11 ifTrue: [nextSelection := min max: (oldSelection - howMany)]. keyEvent == 12 ifTrue: [nextSelection := (oldSelection + howMany) min: max]. nextSelection = oldSelection ifFalse: [self changeModelSelection: nextSelection]. ! !
Now I have the following question:
How can I manage to jump from one list control to the other (e.g. with the "tab" key) ? keyEvent == 9 ifTrue: [ ??? What to do here ??? ]
BTW How can I cycle through the top windows with keys ?
Best regards
Martin Pammer (VRZ Informatik Dornbirn, Austria)
squeak-dev@lists.squeakfoundation.org