From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:46:49 pm (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <class> <name>CursorExample</name> <environment>Examples</environment> <super>Core.Object</super> <private>false</private> none <imports></imports> <category>Examples-Help</category> <attributes> <package>Cursor-Example</package> </attributes> </class> <comment> Examples.CursorExample
CursorExample provides three resource methods that define images, which can be used to assemble a Cursor or Icon. The townCrier and shadow methods were created by the Mask Editor. The townCrierForCursor method is the same as townCrier, but substitutes a color-based palette as required when creating a Cursor.
</comment> <methods> Examples.CursorExample class <category>resources</category>
shadow "UIMaskEditor new openOnClass: self andSelector: #shadow" <resource: #image> ^Image extent: 16@16 depth: 1 palette: CoveragePalette monoMaskPalette bits: #[15 240 0 0 63 252 0 0 127 254 0 0 255 255 0 0 255 255 0 0 255 255 0 0 255 255 0 0 255 255 0 0 255 255 0 0 255 255 0 0 255 255 0 0 255 255 0 0 255 255 0 0 127 254 0 0 63 252 0 0 15 240 0 0 ] pad: 32
townCrier "UIMaskEditor new openOnClass: self andSelector: #townCrier" <resource: #image> ^Image extent: 16@16 depth: 1 palette: CoveragePalette monoMaskPalette bits: #[0 0 0 0 7 224 0 0 24 24 0 0 32 4 0 0 66 66 0 0 76 50 0 0 64 2 0 0 64 2 0 0 64 2 0 0 65 130 0 0 67 194 0 0 67 194 0 0 33 132 0 0 24 24 0 0 7 224 0 0 0 0 0 0 ] pad: 32
townCrierForCursor "UIMaskEditor new openOnClass: self andSelector: #townCrier" <resource: #image> ^Image extent: 16@16 depth: 1 palette: MappedPalette whiteBlack bits: #[0 0 0 0 7 224 0 0 24 24 0 0 32 4 0 0 66 66 0 0 76 50 0 0 64 2 0 0 64 2 0 0 64 2 0 0 65 130 0 0 67 194 0 0 67 194 0 0 33 132 0 0 24 24 0 0 7 224 0 0 0 0 0 0 ] pad: 32
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>Object</name> <environment>Core</environment> <super></super> <private>false</private> none <imports></imports> <category>Kernel-Objects</category> <attributes> <package>Kernel-Objects</package> </attributes> </class>