equal
deleted
inserted
replaced
67 |
67 |
68 "Modified: 10.2.1996 / 18:00:28 / cg" |
68 "Modified: 10.2.1996 / 18:00:28 / cg" |
69 ! |
69 ! |
70 |
70 |
71 version |
71 version |
72 ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.14 1996-02-11 09:54:43 cg Exp $' |
72 ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.15 1996-03-07 12:36:37 cg Exp $' |
73 ! ! |
73 ! ! |
74 |
74 |
75 !EnterBox2 methodsFor:'accessing'! |
75 !EnterBox2 methodsFor:'accessing'! |
76 |
76 |
77 action2:aBlock |
77 action2:aBlock |
136 !EnterBox2 methodsFor:'user interaction'! |
136 !EnterBox2 methodsFor:'user interaction'! |
137 |
137 |
138 keyPress:aKey x:x y:y |
138 keyPress:aKey x:x y:y |
139 "return-key dublicates ok-function if acceptReturnAsOK is true" |
139 "return-key dublicates ok-function if acceptReturnAsOK is true" |
140 |
140 |
|
141 <resource: #keyboard (#Return)> |
|
142 |
141 acceptReturnAsOK ifTrue:[ |
143 acceptReturnAsOK ifTrue:[ |
142 (aKey == #Return) ifTrue:[^ self ok2Pressed] |
144 (aKey == #Return) ifTrue:[^ self ok2Pressed] |
143 ]. |
145 ]. |
144 super keyPress:aKey x:x y:y |
146 super keyPress:aKey x:x y:y |
|
147 |
|
148 "Modified: 7.3.1996 / 13:16:37 / cg" |
145 ! |
149 ! |
146 |
150 |
147 ok2Pressed |
151 ok2Pressed |
148 "user pressed 2nd ok button - evaluate action" |
152 "user pressed 2nd ok button - evaluate action" |
149 |
153 |