equal
deleted
inserted
replaced
449 - they do not really fit into the general (bitmap) scheme ... |
449 - they do not really fit into the general (bitmap) scheme ... |
450 (i.e. they are computed instead of drawn from a bitmap) |
450 (i.e. they are computed instead of drawn from a bitmap) |
451 " |
451 " |
452 styleSymbol ~~ #st80 ifTrue:[ |
452 styleSymbol ~~ #st80 ifTrue:[ |
453 DownArrowFormFile notNil ifTrue:[ |
453 DownArrowFormFile notNil ifTrue:[ |
454 form := Smalltalk bitmapFromFileNamed:DownArrowFormFile forClass:self. |
454 form := Smalltalk imageFromFileNamed:DownArrowFormFile forClass:self. |
455 form isNil ifTrue:[ |
455 form isNil ifTrue:[ |
456 'ArrowButton [info]: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintCR. |
456 'ArrowButton [info]: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintCR. |
457 ] ifFalse:[ |
457 ] ifFalse:[ |
458 form := form onDevice:aDevice. |
458 form := form onDevice:aDevice. |
459 ] |
459 ] |
519 - they do not really fit into the general (bitmap) scheme ... |
519 - they do not really fit into the general (bitmap) scheme ... |
520 (i.e. they are computed instead of drawn from a bitmap) |
520 (i.e. they are computed instead of drawn from a bitmap) |
521 " |
521 " |
522 styleSymbol ~~ #st80 ifTrue:[ |
522 styleSymbol ~~ #st80 ifTrue:[ |
523 LeftArrowFormFile notNil ifTrue:[ |
523 LeftArrowFormFile notNil ifTrue:[ |
524 form := Smalltalk bitmapFromFileNamed:LeftArrowFormFile forClass:self. |
524 form := Smalltalk imageFromFileNamed:LeftArrowFormFile forClass:self. |
525 form isNil ifTrue:[ |
525 form isNil ifTrue:[ |
526 'ArrowButton [info]: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintCR. |
526 'ArrowButton [info]: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintCR. |
527 ] ifFalse:[ |
527 ] ifFalse:[ |
528 form := form onDevice:aDevice. |
528 form := form onDevice:aDevice. |
529 ] |
529 ] |
589 - they do not really fit into the general (bitmap) scheme ... |
589 - they do not really fit into the general (bitmap) scheme ... |
590 (i.e. they are computed instead of drawn from a bitmap) |
590 (i.e. they are computed instead of drawn from a bitmap) |
591 " |
591 " |
592 styleSymbol ~~ #st80 ifTrue:[ |
592 styleSymbol ~~ #st80 ifTrue:[ |
593 RightArrowFormFile notNil ifTrue:[ |
593 RightArrowFormFile notNil ifTrue:[ |
594 form := Smalltalk bitmapFromFileNamed:RightArrowFormFile forClass:self. |
594 form := Smalltalk imageFromFileNamed:RightArrowFormFile forClass:self. |
595 form isNil ifTrue:[ |
595 form isNil ifTrue:[ |
596 'ArrowButton [info]: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintCR. |
596 'ArrowButton [info]: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintCR. |
597 ] ifFalse:[ |
597 ] ifFalse:[ |
598 form := form onDevice:aDevice. |
598 form := form onDevice:aDevice. |
599 ] |
599 ] |
659 - they do not really fit into the general (bitmap) scheme ... |
659 - they do not really fit into the general (bitmap) scheme ... |
660 (i.e. they are computed instead of drawn from a bitmap) |
660 (i.e. they are computed instead of drawn from a bitmap) |
661 " |
661 " |
662 styleSymbol ~~ #st80 ifTrue:[ |
662 styleSymbol ~~ #st80 ifTrue:[ |
663 UpArrowFormFile notNil ifTrue:[ |
663 UpArrowFormFile notNil ifTrue:[ |
664 form := Smalltalk bitmapFromFileNamed:UpArrowFormFile forClass:self. |
664 form := Smalltalk imageFromFileNamed:UpArrowFormFile forClass:self. |
665 form isNil ifTrue:[ |
665 form isNil ifTrue:[ |
666 'ArrowButton [info]: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintCR. |
666 'ArrowButton [info]: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintCR. |
667 ] ifFalse:[ |
667 ] ifFalse:[ |
668 form := form onDevice:aDevice. |
668 form := form onDevice:aDevice. |
669 ] |
669 ] |
980 ! ! |
980 ! ! |
981 |
981 |
982 !ArrowButton class methodsFor:'documentation'! |
982 !ArrowButton class methodsFor:'documentation'! |
983 |
983 |
984 version |
984 version |
985 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.57 1999-12-01 20:03:25 cg Exp $' |
985 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.58 1999-12-09 11:16:45 cg Exp $' |
986 ! ! |
986 ! ! |