#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Mon, 09 May 2016 19:23:40 +0200
changeset 5728 ae8ed1215e4d
parent 5727 59553507b326
child 5729 bbd01417740f
#REFACTORING by stefan class: VariablePanel added: #horizontalResizeCursor #verticalResizeCursor changed: #cursorForOrientation:onDevice: Remove image reading from xbm files
VariablePanel.st
--- a/VariablePanel.st	Mon May 09 11:09:02 2016 +0200
+++ b/VariablePanel.st	Mon May 09 19:23:40 2016 +0200
@@ -628,11 +628,9 @@
             cursor := DefaultVCursor
         ] ifFalse:[
             device isWindowsPlatform ifFalse:[
-                cursor := Cursor 
-                            sourceForm:(Smalltalk imageFromFileNamed:'VVPanel.xbm' forClass:self)
-                            maskForm:(Smalltalk imageFromFileNamed:'VVPanel_m.xbm' forClass:self)
-                            hotX:8
-                            hotY:8.
+                cursor := Cursor
+                            fromImage:self verticalResizeCursor
+                            hotSpot:8@8.
             ].
 
             "
@@ -653,11 +651,9 @@
             cursor := DefaultHCursor
         ] ifFalse:[
             device isWindowsPlatform ifFalse:[
-                cursor := Cursor 
-                            sourceForm:(Smalltalk imageFromFileNamed:'VHPanel.xbm' forClass:self)
-                            maskForm:(Smalltalk imageFromFileNamed:'VHPanel_m.xbm' forClass:self)
-                            hotX:8
-                            hotY:8.
+                cursor := Cursor
+                            fromImage:self horizontalResizeCursor
+                            hotSpot:8@8.
             ].
             "
              if bitmaps are not available or under Win95, 
@@ -769,6 +765,28 @@
 
 !VariablePanel class methodsFor:'image specs'!
 
+horizontalResizeCursor
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self horizontalResizeCursor inspect
+     ImageEditor openOnClass:self andSelector:#horizontalResizeCursor
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'VariablePanel horizontalResizeCursor'
+        ifAbsentPut:[(Depth1Image width:16 height:16) bits:(ByteArray fromPackedString:'@X@A @F@@X@!!!!AFHBYC=/0&PDX !!!!@F@@X@A @F@@@@b')
+            colorMapFromArray:#[255 255 255 0 0 0]
+            mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@<@C0@O@X<Y33#/\????????N=133&OF@<@C0@O@@@@b'); yourself); yourself]
+!
+
 snapIconDown
     <resource: #image>
     "This resource specification was automatically generated
@@ -960,6 +978,28 @@
                             yourself);
                 yourself
         ]
+!
+
+verticalResizeCursor
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self verticalResizeCursor inspect
+     ImageEditor openOnClass:self andSelector:#verticalResizeCursor
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'VariablePanel verticalResizeCursor'
+        ifAbsentPut:[(Depth1Image width:16 height:16) bits:(ByteArray fromPackedString:'@P@A@@$ AT@C @D@@@C??/?>@@@A@@N@AT@IH@D@@P@b')
+            colorMapFromArray:#[255 255 255 0 0 0]
+            mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@8@[,A?0C>@G0@N@??;??/?>??8C @_@C>@_<A.0@8@b'); yourself); yourself]
 ! !
 
 !VariablePanel methodsFor:'accessing-look'!