equal
deleted
inserted
replaced
212 |
212 |
213 isWindowsStyle |
213 isWindowsStyle |
214 "answer true if this is a MS-Windows style. |
214 "answer true if this is a MS-Windows style. |
215 XXX Currently we simply check the name" |
215 XXX Currently we simply check the name" |
216 |
216 |
217 name isNil ifTrue:[ |
217 |nm| |
218 "read name into instance variable name (for speed)" |
218 |
219 self name |
219 nm := name ? self name. |
220 ]. |
220 |
221 |
221 ^ nm == #win95 |
222 ^ name == #win95 |
222 or:[nm == #win98 |
223 or:[name == #win98 |
223 or:[nm == #winXP |
224 or:[name == #winXP |
224 or:[nm == #winVista ]]] |
225 or:[name == #winVista ]]] |
|
226 ! |
225 ! |
227 |
226 |
228 isWindowsVistaStyle |
227 isWindowsVistaStyle |
229 "answer true if this is a MS-Windows-Vista (or later) style. |
228 "answer true if this is a MS-Windows-Vista (or later) style. |
230 XXX Currently we simply check the name" |
229 XXX Currently we simply check the name" |
231 |
230 |
232 name isNil ifTrue:[ |
231 |nm| |
233 "read name into instance variable name (for speed)" |
232 |
234 self name |
233 nm := name ? self name. |
235 ]. |
234 |
236 |
235 ^ nm == #winVista |
237 ^ name == #winVista |
|
238 ! |
236 ! |
239 |
237 |
240 isWindowsXPStyle |
238 isWindowsXPStyle |
241 "answer true if this is a MS-Windows-XP (or later) style. |
239 "answer true if this is a MS-Windows-XP (or later) style. |
242 XXX Currently we simply check the name" |
240 XXX Currently we simply check the name" |
243 |
241 |
244 name isNil ifTrue:[ |
242 |nm| |
245 "read name into instance variable name (for speed)" |
243 |
246 self name |
244 nm := name ? self name. |
247 ]. |
245 |
248 |
246 ^ nm == #winXP |
249 ^ name == #winXP or:[name == #winVista] |
247 or:[nm == #winVista] |
250 ! ! |
248 ! ! |
251 |
249 |
252 !ViewStyle methodsFor:'special'! |
250 !ViewStyle methodsFor:'special'! |
253 |
251 |
254 newDerivedStyle |
252 newDerivedStyle |
278 ! ! |
276 ! ! |
279 |
277 |
280 !ViewStyle class methodsFor:'documentation'! |
278 !ViewStyle class methodsFor:'documentation'! |
281 |
279 |
282 version |
280 version |
283 ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.33 2008-10-24 13:17:08 cg Exp $' |
281 ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.34 2008-10-24 13:18:18 cg Exp $' |
284 ! ! |
282 ! ! |