equal
deleted
inserted
replaced
1110 |
1110 |
1111 "Modified: 19.12.1996 / 13:50:18 / cg" |
1111 "Modified: 19.12.1996 / 13:50:18 / cg" |
1112 ! |
1112 ! |
1113 |
1113 |
1114 initStyle |
1114 initStyle |
|
1115 "setup viewStyle specifics" |
|
1116 |
1115 |mm| |
1117 |mm| |
1116 |
1118 |
1117 super initStyle. |
1119 super initStyle. |
1118 |
1120 |
1119 handleColor := DefaultHandleColor on:device. |
1121 handleColor := DefaultHandleColor on:device. |
1145 |
1147 |
1146 handleStyle == #mswindows ifTrue:[ |
1148 handleStyle == #mswindows ifTrue:[ |
1147 barWidth := (ArrowButton new direction:#up) width + 1 |
1149 barWidth := (ArrowButton new direction:#up) width + 1 |
1148 ]. |
1150 ]. |
1149 |
1151 |
1150 "Modified: 8.3.1996 / 11:51:59 / cg" |
1152 "Modified: 22.1.1997 / 11:57:58 / cg" |
1151 ! |
1153 ! |
1152 |
1154 |
1153 initialize |
1155 initialize |
1154 orientation isNil ifTrue:[orientation := #vertical]. |
1156 orientation isNil ifTrue:[orientation := #vertical]. |
1155 super initialize. |
1157 super initialize. |
1397 ! ! |
1399 ! ! |
1398 |
1400 |
1399 !VariablePanel class methodsFor:'documentation'! |
1401 !VariablePanel class methodsFor:'documentation'! |
1400 |
1402 |
1401 version |
1403 version |
1402 ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.20 1997-01-17 22:24:27 cg Exp $' |
1404 ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.21 1997-01-22 11:02:26 cg Exp $' |
1403 ! ! |
1405 ! ! |