equal
deleted
inserted
replaced
457 form := self classVarAt:formVariableName. |
457 form := self classVarAt:formVariableName. |
458 (form notNil and:[form device == aDevice]) ifTrue:[ |
458 (form notNil and:[form device == aDevice]) ifTrue:[ |
459 ^ form |
459 ^ form |
460 ]. |
460 ]. |
461 |
461 |
462 form := StyleSheet at:styleSheetName default:nil. |
462 form := self styleSheet at:styleSheetName default:nil. |
463 form isNil ifTrue:[ |
463 form isNil ifTrue:[ |
464 formFile := StyleSheet at:styleSheetFileName default:nil. |
464 formFile := StyleSheet at:styleSheetFileName default:nil. |
465 formFile notNil ifTrue:[ |
465 formFile notNil ifTrue:[ |
466 form := Smalltalk imageFromFileNamed:formFile forClass:self. |
466 form := Smalltalk imageFromFileNamed:formFile forClass:self. |
467 form isNil ifTrue:[ |
467 form isNil ifTrue:[ |
498 |
498 |
499 styleSymbol = #st80 ifTrue:[ |
499 styleSymbol = #st80 ifTrue:[ |
500 ^ self defaultST80ArrowButtonFormForDirection:direction onDevice:aDevice. |
500 ^ self defaultST80ArrowButtonFormForDirection:direction onDevice:aDevice. |
501 ]. |
501 ]. |
502 |
502 |
503 StyleSheet isWindowsStyle ifTrue:[ |
503 self styleSheet isWindowsStyle ifTrue:[ |
504 ^ self defaultWIN32ArrowButtonFormForDirection:direction onDevice:aDevice |
504 ^ self defaultWIN32ArrowButtonFormForDirection:direction onDevice:aDevice |
505 ]. |
505 ]. |
506 |
506 |
507 ^ self defaultMACArrowButtonFormForDirection:direction onDevice:aDevice |
507 ^ self defaultMACArrowButtonFormForDirection:direction onDevice:aDevice |
508 |
508 |
1042 ! ! |
1042 ! ! |
1043 |
1043 |
1044 !ArrowButton class methodsFor:'documentation'! |
1044 !ArrowButton class methodsFor:'documentation'! |
1045 |
1045 |
1046 version |
1046 version |
1047 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.66 2002-10-14 16:14:14 stefan Exp $' |
1047 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.67 2003-08-18 17:13:14 cg Exp $' |
1048 ! ! |
1048 ! ! |