equal
deleted
inserted
replaced
9 be provided or otherwise made available to, or used by, any |
9 be provided or otherwise made available to, or used by, any |
10 other person. No title to or ownership of the software is |
10 other person. No title to or ownership of the software is |
11 hereby transferred. |
11 hereby transferred. |
12 " |
12 " |
13 "{ Package: 'stx:libview' }" |
13 "{ Package: 'stx:libview' }" |
|
14 |
|
15 "{ NameSpace: Smalltalk }" |
14 |
16 |
15 AbstractBorder subclass:#SimpleBorder |
17 AbstractBorder subclass:#SimpleBorder |
16 instanceVariableNames:'color' |
18 instanceVariableNames:'color' |
17 classVariableNames:'' |
19 classVariableNames:'' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
40 " |
42 " |
41 a simple border, where all four sides are drawn in the same solid color |
43 a simple border, where all four sides are drawn in the same solid color |
42 |
44 |
43 [author:] |
45 [author:] |
44 Claus Gittinger |
46 Claus Gittinger |
|
47 " |
|
48 ! |
|
49 |
|
50 examples |
|
51 " |
|
52 [exBegin] |
|
53 |v1 v2 b| |
|
54 |
|
55 v1 := View new extent:100@100. |
|
56 v2 := View origin:10@10 corner:90@20 in:v2. |
|
57 v2 border:(SimpleBorder new color:Color red). |
|
58 v1 openAndWait. |
|
59 [exEnd] |
45 " |
60 " |
46 ! ! |
61 ! ! |
47 |
62 |
48 !SimpleBorder methodsFor:'accessing'! |
63 !SimpleBorder methodsFor:'accessing'! |
49 |
64 |
107 ! ! |
122 ! ! |
108 |
123 |
109 !SimpleBorder class methodsFor:'documentation'! |
124 !SimpleBorder class methodsFor:'documentation'! |
110 |
125 |
111 version_CVS |
126 version_CVS |
112 ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.6 2009-10-29 15:59:43 cg Exp $' |
127 ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.7 2015-01-05 20:35:12 cg Exp $' |
113 ! ! |
128 ! ! |
|
129 |