equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 |
|
14 'From Smalltalk/X, Version:2.10.5 on 11-may-1995 at 2:19:42 am'! |
|
15 |
13 |
16 SimpleView subclass:#Separator |
14 SimpleView subclass:#Separator |
17 instanceVariableNames:'orientation' |
15 instanceVariableNames:'orientation' |
18 classVariableNames:'' |
16 classVariableNames:'' |
19 poolDictionaries:'' |
17 poolDictionaries:'' |
33 be provided or otherwise made available to, or used by, any |
31 be provided or otherwise made available to, or used by, any |
34 other person. No title to or ownership of the software is |
32 other person. No title to or ownership of the software is |
35 hereby transferred. |
33 hereby transferred. |
36 " |
34 " |
37 |
35 |
|
36 ! |
|
37 |
|
38 documentation |
|
39 " |
|
40 a simple widget for a separating line. |
|
41 To be placed between groups of other widgets. |
|
42 |
|
43 See examples. |
|
44 |
|
45 See also: FramedBox VariableVerticalPanel VariableHorizontalPanel |
|
46 " |
38 ! |
47 ! |
39 |
48 |
40 examples |
49 examples |
41 " |
50 " |
42 a separator between two button-panels: |
51 a separator between two button-panels: |
126 top open |
135 top open |
127 " |
136 " |
128 ! |
137 ! |
129 |
138 |
130 version |
139 version |
131 ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.6 1995-11-11 16:29:23 cg Exp $' |
140 ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.7 1995-11-23 00:53:37 cg Exp $' |
|
141 ! ! |
|
142 |
|
143 !Separator methodsFor:'accessing'! |
|
144 |
|
145 orientation |
|
146 "return the orientation (one of #horizontal or #vertical)" |
|
147 |
|
148 ^ orientation |
132 ! |
149 ! |
133 |
150 |
134 documentation |
151 orientation:aSymbol |
135 " |
152 "set the orientation to one of #horizontal or #vertical" |
136 a simple widget for a separating line. |
|
137 To be placed between groups of other widgets. |
|
138 |
153 |
139 See examples. |
154 orientation := aSymbol |
140 |
|
141 See also: FramedBox VariableVerticalPanel VariableHorizontalPanel |
|
142 " |
|
143 ! ! |
155 ! ! |
144 |
156 |
145 !Separator methodsFor:'drawing'! |
157 !Separator methodsFor:'drawing'! |
146 |
158 |
147 redraw |
159 redraw |
166 self displayLineFromX:0 y:vCenter+1 toX:width-1 y:vCenter+1. |
178 self displayLineFromX:0 y:vCenter+1 toX:width-1 y:vCenter+1. |
167 ] |
179 ] |
168 ] |
180 ] |
169 ! ! |
181 ! ! |
170 |
182 |
171 !Separator methodsFor:'accessing'! |
|
172 |
|
173 orientation |
|
174 "return the orientation (one of #horizontal or #vertical)" |
|
175 |
|
176 ^ orientation |
|
177 ! |
|
178 |
|
179 orientation:aSymbol |
|
180 "set the orientation to one of #horizontal or #vertical" |
|
181 |
|
182 orientation := aSymbol |
|
183 ! ! |
|
184 |
|
185 !Separator methodsFor:'initialization'! |
183 !Separator methodsFor:'initialization'! |
186 |
184 |
187 initialize |
185 initialize |
188 super initialize. |
186 super initialize. |
189 borderWidth := 0 |
187 borderWidth := 0 |
190 ! ! |
188 ! ! |
|
189 |