From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:48:05 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>OpaqueLabelExample</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none <imports></imports> <category>Examples-Help</category> <attributes> <package>OpaqueLabel-Example</package> </attributes> </class> <comment> Examples.OpaqueLabelExample
OpaqueLabelExample demonstrates using OpaqueImage for a label or button. OpaqueImage is more efficient for masking than applying a mask repeatedly.
</comment> <methods> Examples.OpaqueLabelExample class <category>resources</category>
opaqueLogo ^OpaqueImage figure: self logoImage shape: self logoMask
logoImage "UIMaskEditor new openOnClass: self andSelector: #logoImage" <resource: #image> ^(Image extent: 89@28 depth: 1 bitsPerPixel: 1 palette: (MappedPalette withColors: ((Array new: 2) at: 1 put: ColorValue black; at: 2 put: ColorValue red; yourself)) usingBits: (ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@G<@@@@O8P@@@@@@@DN@@@@H\0@@@@@@@DB@@@@HD0@@@@@@@DB@@@@HD0@@@@@@@DF_CX^HL1<C1<@@@FXA#)BL00FHRD@@@D@@#ABH@0BHVF@@@D@L#C@H@02XG>@@@D@P#C@H@1BXF@@@@D@0#C@H@3BXF@@@@D@1#A H@3FLC@@@@D@\#@>H@12G18@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'))
logoMask "UIMaskEditor new openOnClass: self andSelector: #logoMask" <resource: #image> ^(Image extent: 89@28 depth: 1 bitsPerPixel: 1 palette: CoveragePalette monoMaskPalette usingBits: (ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@G<@@@@O8P@@@@@@@DN@@@@H\0@@@@@@@DB@@@@HD0@@@@@@@DB@@@@HD0@@@@@@@DF_CX^HL1<C1<@@@FXA#)BL00FHRD@@@D@@#ABH@0BHVF@@@D@L#C@H@02XG>@@@D@P#C@H@1BXF@@@@D@0#C@H@3BXF@@@@D@1#A H@3FLC@@@@D@\#@>H@12G18@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'))
</methods> <methods> Examples.OpaqueLabelExample class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#FullSpec #window: #(#WindowSpec #label: 'Opaque Label Image' #bounds: #(#Rectangle 639 311 888 421 ) #isEventDriven: true ) #component: #(#SpecCollection #collection: #( #(#ActionButtonSpec #layout: #(#Rectangle 132 59 229 90 ) #label: #opaqueLogo #hasCharacterOrientedLabel: false #defaultable: true ) #(#LabelSpec #layout: #(#Point 134 18 ) #label: #logoImage #hasCharacterOrientedLabel: false ) #(#LabelSpec #layout: #(#Point 4 24 ) #label: 'Image as Label' ) #(#LabelSpec #layout: #(#Point 9 56 ) #label: 'OpaqueImage' ) #(#LabelSpec #layout: #(#Point 28 73 ) #label: 'as Label' ) ) ) )
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>ApplicationModel</name> <environment>UI</environment> <super>UI.Model</super> <private>false</private> none builder uiSession eventHandlers savedWindowInformation <imports></imports> <category>UIBuilder-Framework</category> <attributes> <package>UIBuilder-Framework</package> </attributes> </class>