equal
deleted
inserted
replaced
37 |
37 |
38 Button comment:' |
38 Button comment:' |
39 COPYRIGHT (c) 1989 by Claus Gittinger |
39 COPYRIGHT (c) 1989 by Claus Gittinger |
40 All Rights Reserved |
40 All Rights Reserved |
41 |
41 |
42 $Header: /cvs/stx/stx/libwidg/Button.st,v 1.20 1995-05-03 00:28:40 claus Exp $ |
42 $Header: /cvs/stx/stx/libwidg/Button.st,v 1.21 1995-05-09 01:54:53 claus Exp $ |
43 '! |
43 '! |
44 |
44 |
45 !Button class methodsFor:'documentation'! |
45 !Button class methodsFor:'documentation'! |
46 |
46 |
47 copyright |
47 copyright |
58 " |
58 " |
59 ! |
59 ! |
60 |
60 |
61 version |
61 version |
62 " |
62 " |
63 $Header: /cvs/stx/stx/libwidg/Button.st,v 1.20 1995-05-03 00:28:40 claus Exp $ |
63 $Header: /cvs/stx/stx/libwidg/Button.st,v 1.21 1995-05-09 01:54:53 claus Exp $ |
64 " |
64 " |
65 ! |
65 ! |
66 |
66 |
67 documentation |
67 documentation |
68 " |
68 " |
1093 turnOff |
1093 turnOff |
1094 "turn the button off (if not already off)" |
1094 "turn the button off (if not already off)" |
1095 |
1095 |
1096 controller pressed ifTrue:[ |
1096 controller pressed ifTrue:[ |
1097 self turnOffWithoutRedraw. |
1097 self turnOffWithoutRedraw. |
1098 "/ controller active:false. |
1098 offLevel ~~ onLevel ifTrue:[self redrawEdges]. |
1099 "/ controller pressed:false. |
|
1100 "/ self level:offLevel. |
|
1101 self redraw |
1099 self redraw |
1102 ] |
1100 ] |
1103 ! |
1101 ! |
1104 |
1102 |
1105 turnOnWithoutRedraw |
1103 turnOnWithoutRedraw |
1117 turnOn |
1115 turnOn |
1118 "turn the button on (if not already on)" |
1116 "turn the button on (if not already on)" |
1119 |
1117 |
1120 controller pressed ifFalse:[ |
1118 controller pressed ifFalse:[ |
1121 self turnOnWithoutRedraw. |
1119 self turnOnWithoutRedraw. |
1122 "/ controller pressed:true. |
1120 offLevel ~~ onLevel ifTrue:[self redrawEdges]. |
1123 "/ self level:onLevel. |
|
1124 self redraw |
1121 self redraw |
1125 ] |
1122 ] |
1126 ! |
1123 ! |
1127 |
1124 |
1128 toggleNoAction |
1125 toggleNoAction |