equal
deleted
inserted
replaced
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-Interactors' |
17 category:'Views-Interactors' |
18 ! |
18 ! |
19 |
19 |
20 !MiniScroller class methodsFor:'documentation'! |
20 !MiniScroller class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1994 by Claus Gittinger |
24 COPYRIGHT (c) 1994 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
43 ! ! |
43 ! ! |
44 |
44 |
45 !MiniScroller methodsFor:'initialization'! |
45 !MiniScroller methodsFor:'initialization'! |
46 |
46 |
47 initStyle |
47 initStyle |
|
48 "setup viewStyle specifics" |
|
49 |
48 |style lvl| |
50 |style lvl| |
49 |
51 |
50 super initStyle. |
52 super initStyle. |
51 style := StyleSheet name. |
53 style := StyleSheet name. |
52 style == #iris ifTrue:[ |
54 style == #iris ifTrue:[ |
64 self borderWidth:0 |
66 self borderWidth:0 |
65 ]. |
67 ]. |
66 shadowForm := lightForm := nil. |
68 shadowForm := lightForm := nil. |
67 fixThumbHeight := false |
69 fixThumbHeight := false |
68 |
70 |
69 "Modified: 17.4.1996 / 13:57:20 / cg" |
71 "Modified: 22.1.1997 / 11:57:30 / cg" |
70 ! |
72 ! |
71 |
73 |
72 initialize |
74 initialize |
73 "initialize - setup instvars from defaults" |
75 "initialize - setup instvars from defaults" |
74 |
76 |
102 ^ preferredExtent. |
104 ^ preferredExtent. |
103 |
105 |
104 "Modified: 19.7.1996 / 20:46:21 / cg" |
106 "Modified: 19.7.1996 / 20:46:21 / cg" |
105 ! ! |
107 ! ! |
106 |
108 |
107 !MiniScroller class methodsFor:'documentation'! |
109 !MiniScroller class methodsFor:'documentation'! |
108 |
110 |
109 version |
111 version |
110 ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.13 1996-07-19 18:48:05 cg Exp $' |
112 ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.14 1997-01-22 17:24:23 cg Exp $' |
111 ! ! |
113 ! ! |