equal
deleted
inserted
replaced
130 defaultFont |
130 defaultFont |
131 ^ MenuView defaultFont |
131 ^ MenuView defaultFont |
132 ! |
132 ! |
133 |
133 |
134 updateStyleCache |
134 updateStyleCache |
135 " |
135 "extract values from the styleSheet and cache them in class variables" |
136 self updateStyleCache |
136 |
137 " |
137 <resource: #style (#'noteBook.foregroundColor' #'noteBook.backgroundColor' |
|
138 #'noteBook.activeForegroundColor' #'noteBook.activeBackgroundColor' |
|
139 #'noteBook.lightColor' #'noteBook.halfLightColor' #'noteBook.shadowColor' |
|
140 #'noteBook.halfShadowColor' #'noteBook.edgeStyle' |
|
141 #'noteBook.activeTabMarkerColor' |
|
142 )> |
|
143 |
138 DefaultForegroundColor := StyleSheet colorAt:#'noteBook.foregroundColor'. |
144 DefaultForegroundColor := StyleSheet colorAt:#'noteBook.foregroundColor'. |
139 DefaultForegroundColor isNil ifTrue:[ |
145 DefaultForegroundColor isNil ifTrue:[ |
140 DefaultForegroundColor := StyleSheet colorAt:#'button.foregroundColor'. |
146 DefaultForegroundColor := StyleSheet colorAt:#'button.foregroundColor'. |
141 ]. |
147 ]. |
142 DefaultBackgroundColor := StyleSheet colorAt:#'noteBook.backgroundColor'. |
148 DefaultBackgroundColor := StyleSheet colorAt:#'noteBook.backgroundColor'. |
178 DefaultActiveTabMarkerColor isNil ifTrue:[ |
184 DefaultActiveTabMarkerColor isNil ifTrue:[ |
179 DefaultActiveTabMarkerFgColor := nil. |
185 DefaultActiveTabMarkerFgColor := nil. |
180 ] ifFalse:[ |
186 ] ifFalse:[ |
181 DefaultActiveTabMarkerFgColor := Color redByte:255 greenByte:138 blueByte:41. |
187 DefaultActiveTabMarkerFgColor := Color redByte:255 greenByte:138 blueByte:41. |
182 ]. |
188 ]. |
|
189 |
|
190 " |
|
191 self updateStyleCache |
|
192 " |
183 ! ! |
193 ! ! |
184 |
194 |
185 !NoteBookView methodsFor:'accepting-items'! |
195 !NoteBookView methodsFor:'accepting-items'! |
186 |
196 |
187 tabAtIndex:tabIndex put:newLabel |
197 tabAtIndex:tabIndex put:newLabel |
2996 ! ! |
3006 ! ! |
2997 |
3007 |
2998 !NoteBookView class methodsFor:'documentation'! |
3008 !NoteBookView class methodsFor:'documentation'! |
2999 |
3009 |
3000 version |
3010 version |
3001 ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.103 2004-10-16 13:29:33 ca Exp $' |
3011 ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.104 2004-11-24 09:40:14 cg Exp $' |
3002 ! ! |
3012 ! ! |