Mercurial Mercurial > hg > stx-libwidg / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SelectionInListView.st
changeset 2062 1af54949ac53
parent 2037 3d3eebdbed6c
child 2070 519d3a5ea1fb 
--- a/SelectionInListView.st	Wed Dec 01 21:29:16 1999 +0100
+++ b/SelectionInListView.st	Wed Dec 01 21:31:04 1999 +0100
@@ -828,8 +828,10 @@
     f := StyleSheet at:#'selection.rightArrowForm'.
     f isNil ifTrue:[
         fn := StyleSheet at:#'selection.rightArrowFormFile' default:'RightArrow.xbm'.
-        f := Image fromFile:fn resolution:100 on:aDevice.
-        f isNil ifTrue:[
+        f := Smalltalk bitmapFromFileNamed:fn forClass:self.
+        f notNil ifTrue:[
+            f := f onDevice:aDevice.
+        ] ifFalse:[
             DefaultRightArrowStyle == #solid ifTrue:[
                 bits := #[2r00000000 2r00000000 
                           2r00000000 2r00000000 
@@ -884,8 +886,10 @@
     ((aDevice == Display) and:[RightArrowLightForm notNil]) ifTrue:[
         ^ RightArrowLightForm
     ].
-    f := Image fromFile:'bitmaps/RightArrowLight.xbm' resolution:100 on:aDevice.
-    f isNil ifTrue:[
+    f := Smalltalk bitmapFromFileNamed:'RightArrowLight.xbm' forClass:self.
+    f notNil ifTrue:[
+        f := f onDevice:aDevice.
+    ] ifFalse:[
         f := Form width:16 height:16 fromArray:#[2r00000000 2r00000000 
                                                  2r00000000 2r00000000 
                                                  2r00000000 2r00000000 
@@ -920,8 +924,10 @@
     ((aDevice == Display) and:[RightArrowShadowForm notNil]) ifTrue:[
         ^ RightArrowShadowForm
     ].
-    f := Image fromFile:'bitmaps/RightArrowShadow.xbm' resolution:100 on:aDevice.
-    f isNil ifTrue:[
+    f := Smalltalk bitmapFromFileNamed:'RightArrowShadow.xbm' forClass:self.
+    f notNil ifTrue:[
+        f := f onDevice:aDevice.
+    ] ifFalse:[
         f := Form width:16 height:16 fromArray:#[2r00000000 2r00000000 
                                                  2r00000000 2r00000000 
                                                  2r00000000 2r00000000 
@@ -956,8 +962,10 @@
     ((aDevice == Display) and:[SmallRightArrowLightForm notNil]) ifTrue:[
         ^ SmallRightArrowLightForm
     ].
-    f := Image fromFile:'bitmaps/SmallRightArrowLight.xbm' resolution:100 on:aDevice.
-    f isNil ifTrue:[
+    f := Smalltalk bitmapFromFileNamed:'SmallRightArrowLight.xbm' forClass:self.
+    f notNil ifTrue:[
+        f := f onDevice:aDevice.
+    ] ifFalse:[
         f := Form width:9 height:9 fromArray:#[2r00000000 2r00000000 
                                                2r01100000 2r00000000 
                                                2r01011000 2r00000000 
@@ -985,8 +993,10 @@
     ((aDevice == Display) and:[SmallRightArrowShadowForm notNil]) ifTrue:[
         ^ SmallRightArrowShadowForm
     ].
-    f := Image fromFile:'bitmaps/SmallRightArrowShadow.xbm' resolution:100 on:aDevice.
-    f isNil ifTrue:[
+    f := Smalltalk bitmapFromFileNamed:'SmallRightArrowShadow.xbm' forClass:self.
+    f notNil ifTrue:[
+        f := f onDevice:aDevice.
+    ] ifFalse:[
         f := Form width:9 height:9 fromArray:#[2r00000000 2r00000000 
                                                2r00000000 2r00000000 
                                                2r00000000 2r00000000 
@@ -3614,5 +3624,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.151 1999-10-14 14:17:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.152 1999-12-01 20:31:04 cg Exp $'
 ! !
hg/stx-libwidg