#REFACTORING by stefan
class: VariablePanel
added:
#horizontalResizeCursor
#verticalResizeCursor
changed: #cursorForOrientation:onDevice:
Remove image reading from xbm files
--- 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'!