--- a/Button.st Thu Dec 19 14:48:24 1996 +0100
+++ b/Button.st Thu Dec 19 14:50:56 1996 +0100
@@ -857,7 +857,7 @@
(ReturnForm notNil and:[aDevice == ReturnForm graphicsDevice]) ifTrue:[
^ ReturnForm
].
- f := Form fromFile:'Return.xbm' resolution:100 on:aDevice.
+ f := Image fromFile:'bitmaps/Return.xbm' resolution:100 on:aDevice.
f isNil ifTrue:[
f := Form width:24 height:16 fromArray:#[2r00000000 2r00000000 2r00000000
2r00000000 2r00000000 2r00000000
@@ -880,7 +880,7 @@
ReturnForm := f.
^ f
- "Modified: 5.7.1996 / 17:58:32 / cg"
+ "Modified: 19.12.1996 / 19:18:03 / cg"
!
returnLightFormOn:aDevice
@@ -892,7 +892,7 @@
(ReturnLightForm notNil and:[aDevice == ReturnLightForm graphicsDevice]) ifTrue:[
^ ReturnLightForm
].
- f := Form fromFile:'ReturnLight.xbm' resolution:100 on:aDevice.
+ f := Image fromFile:'bitmaps/ReturnLight.xbm' resolution:100 on:aDevice.
f isNil ifTrue:[
f := Form width:24 height:16 fromArray:#[2r00000000 2r00000000 2r00000000
2r00000000 2r00000000 2r00000000
@@ -915,7 +915,7 @@
ReturnLightForm := f.
^ f
- "Modified: 5.7.1996 / 17:58:30 / cg"
+ "Modified: 19.12.1996 / 01:00:00 / cg"
!
returnShadowFormOn:aDevice
@@ -927,7 +927,7 @@
(ReturnShadowForm notNil and:[aDevice == ReturnShadowForm graphicsDevice]) ifTrue:[
^ ReturnShadowForm
].
- f := Form fromFile:'ReturnShadow.xbm' resolution:100 on:aDevice.
+ f := Image fromFile:'bitmaps/ReturnShadow.xbm' resolution:100 on:aDevice.
f isNil ifTrue:[
f := Form width:24 height:16 fromArray:#[2r00000000 2r00000000 2r00000000
2r00000000 2r00000000 2r00000000
@@ -950,7 +950,7 @@
ReturnShadowForm := f.
^ f
- "Modified: 5.7.1996 / 17:58:28 / cg"
+ "Modified: 1.1.1970 / 01:00:00 / cg"
!
updateStyleCache
@@ -2017,5 +2017,5 @@
!Button class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.67 1996-11-06 17:01:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.68 1996-12-19 13:50:04 cg Exp $'
! !