--- a/DSVColumnView.st Sat Jul 18 17:12:58 1998 +0200
+++ b/DSVColumnView.st Sun Jul 19 21:42:18 1998 +0200
@@ -88,29 +88,22 @@
!DSVColumnView class methodsFor:'accessing forms'!
rowSelector
-
- RowSelector isNil ifTrue:[
- RowSelector := Form
- width:8
- height:11
- fromArray:#[2r01000000
- 2r01100000
- 2r01110000
- 2r01111000
- 2r01111100
- 2r01111110
- 2r01111100
- 2r01111000
- 2r01110000
- 2r01100000
- 2r01000000]
- on:Display.
-
- RowSelector := RowSelector asImage.
- ].
- ^ RowSelector
-
-! !
+ "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 rowSelector inspect
+ ImageEditor openOnClass:self andSelector:#rowSelector
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'DSVColumnView rowSelector'
+ ifAbsentPut:[(Depth2Image new) width: 8; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'T@A4@E4@]4A]4G]8W^A7 E8@^@B @@@a') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 8; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'0NC0>O3>?O#08L@b') ; yourself); yourself]! !
!DSVColumnView class methodsFor:'defaults'!
@@ -447,7 +440,7 @@
rowSelectorForm
"returns the bitmap of a selected row
"
- rowSelectorForm isNil ifTrue:[
+ rowSelectorForm isNil ifTrue:[
rowSelectorForm := (self class rowSelector) on:device
].
^ rowSelectorForm
@@ -2671,5 +2664,5 @@
!DSVColumnView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.40 1998-07-18 15:12:58 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.41 1998-07-19 19:42:18 tz Exp $'
! !