--- a/ArrowButton.st Wed Dec 01 18:39:23 1999 +0100
+++ b/ArrowButton.st Wed Dec 01 20:56:26 1999 +0100
@@ -453,9 +453,11 @@
DownArrowFormFile notNil ifTrue:[
form := Image fromFile:DownArrowFormFile resolution:100 on:aDevice.
form isNil ifTrue:[
- form := Image fromFile:('bitmaps/' , DownArrowFormFile) resolution:100 on:aDevice.
+ form := Smalltalk bitmapFromFileNamed:DownArrowFormFile inPackage:#'stx:libwidg'.
form isNil ifTrue:[
'ArrowButton [info]: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintCR.
+ ] ifFalse:[
+ form := form onDevice:aDevice.
]
]
]
@@ -524,9 +526,11 @@
LeftArrowFormFile notNil ifTrue:[
form := Image fromFile:LeftArrowFormFile resolution:100 on:aDevice.
form isNil ifTrue:[
- form := Image fromFile:'bitmaps/' , LeftArrowFormFile resolution:100 on:aDevice.
+ form := Smalltalk bitmapFromFileNamed:LeftArrowFormFile inPackage:#'stx:libwidg'.
form isNil ifTrue:[
'ArrowButton [info]: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintCR.
+ ] ifFalse:[
+ form := form onDevice:aDevice.
]
]
]
@@ -595,9 +599,11 @@
RightArrowFormFile notNil ifTrue:[
form := Image fromFile:RightArrowFormFile resolution:100 on:aDevice.
form isNil ifTrue:[
- form := Image fromFile:'bitmaps/' , RightArrowFormFile resolution:100 on:aDevice.
+ form := Smalltalk bitmapFromFileNamed:RightArrowFormFile inPackage:#'stx:libwidg'.
form isNil ifTrue:[
'ArrowButton [info]: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintCR.
+ ] ifFalse:[
+ form := form onDevice:aDevice.
]
]
]
@@ -666,9 +672,11 @@
UpArrowFormFile notNil ifTrue:[
form := Image fromFile:UpArrowFormFile resolution:100 on:aDevice.
form isNil ifTrue:[
- form := Image fromFile:'bitmaps/' , UpArrowFormFile resolution:100 on:aDevice.
+ form := Smalltalk bitmapFromFileNamed:UpArrowFormFile inPackage:#'stx:libwidg'.
form isNil ifTrue:[
'ArrowButton [info]: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintCR.
+ ] ifFalse:[
+ form := form onDevice:aDevice.
]
]
]
@@ -986,5 +994,5 @@
!ArrowButton class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.55 1999-08-18 15:14:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.56 1999-12-01 19:56:26 cg Exp $'
! !