--- a/Scroller.st Thu Dec 19 14:38:46 1996 +0100
+++ b/Scroller.st Thu Dec 19 14:47:18 1996 +0100
@@ -33,7 +33,7 @@
category:'Views-Interactors'
!
-!Scroller class methodsFor:'documentation'!
+!Scroller class methodsFor:'documentation'!
copyright
"
@@ -271,7 +271,7 @@
"
! !
-!Scroller class methodsFor:'defaults'!
+!Scroller class methodsFor:'defaults'!
handleLightFormOn:aDisplay
"answer the form used for the handles light area;
@@ -280,24 +280,26 @@
|f|
((aDisplay == Display) and:[HandleLightForm notNil]) ifTrue:[
- ^ HandleLightForm
+ ^ HandleLightForm
].
- f := Form fromFile:'HandleLight.xbm' resolution:100 on:aDisplay.
+ f := Image fromFile:'bitmaps/HandleLight.xbm' resolution:100 on:aDisplay.
f isNil ifTrue:[
- f := Form width:8 height:8 fromArray:#[2r00000000
- 2r00000010
- 2r00000011
- 2r00000011
- 2r00000011
- 2r00000011
- 2r00000110
- 2r00111100]
- on:aDisplay
+ f := Form width:8 height:8 fromArray:#[2r00000000
+ 2r00000010
+ 2r00000011
+ 2r00000011
+ 2r00000011
+ 2r00000011
+ 2r00000110
+ 2r00111100]
+ on:aDisplay
].
(aDisplay == Display) ifTrue:[
- HandleLightForm := f
+ HandleLightForm := f
].
^ f
+
+ "Modified: 23.10.2031 / 01:00:00 / cg"
!
handleShadowFormOn:aDisplay
@@ -307,24 +309,26 @@
|f|
((aDisplay == Display) and:[HandleShadowForm notNil]) ifTrue:[
- ^ HandleShadowForm
+ ^ HandleShadowForm
].
- f := Form fromFile:'HandleShadow.xbm' resolution:100 on:aDisplay.
+ f := Image fromFile:'bitmaps/HandleShadow.xbm' resolution:100 on:aDisplay.
f isNil ifTrue:[
- f := Form width:8 height:8 fromArray:#[2r00111100
- 2r01100000
- 2r11000000
- 2r11000000
- 2r11000000
- 2r11000000
- 2r01000000
- 2r00000000]
- on:aDisplay
+ f := Form width:8 height:8 fromArray:#[2r00111100
+ 2r01100000
+ 2r11000000
+ 2r11000000
+ 2r11000000
+ 2r11000000
+ 2r01000000
+ 2r00000000]
+ on:aDisplay
].
(aDisplay == Display) ifTrue:[
- HandleShadowForm := f
+ HandleShadowForm := f
].
^ f
+
+ "Modified: 19.12.1996 / 01:00:00 / cg"
!
updateStyleCache
@@ -1809,8 +1813,8 @@
"Modified: 19.7.1996 / 20:45:35 / cg"
! !
-!Scroller class methodsFor:'documentation'!
+!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.65 1996-08-01 16:21:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.66 1996-12-19 13:47:18 cg Exp $'
! !