From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:48:10 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>Size2Example</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none <imports></imports> <category>Examples-Help</category> <attributes> <package>Size2-Example</package> </attributes> </class> <comment> Examples.Size2Example
Size2Example demonstrates the use of bounded and unbounded widgets.
</comment> <methods> Examples.Size2Example class <category>resources</category>
boundedIcon "UIMaskEditor new openOnClass: self andSelector: #toBoundedIcon" <resource: #image> ^Image extent: 21@13 depth: 1 palette: CoveragePalette monoMaskPalette bits: #[0 112 0 0 127 255 240 0 64 112 16 0 64 0 16 0 64 0 16 0 224 0 56 0 224 0 56 0 224 0 56 0 64 0 16 0 64 0 16 0 64 112 16 0 127 255 240 0 0 112 0 0 ] pad: 32
originSizeIcon "UIMaskEditor new openOnClass: self andSelector: #originSizeIcon" <resource: #image> ^(Image extent: 22@14 depth: 1 bitsPerPixel: 1 palette: CoveragePalette monoMaskPalette usingBits: #[0 112 0 0 127 255 240 0 64 112 16 0 64 0 56 0 64 0 56 0 224 0 124 0 224 0 84 0 224 0 16 0 64 0 16 0 64 3 0 0 64 1 192 0 79 255 240 0 0 1 192 0 0 3 0 0])
unboundedIcon "UIMaskEditor new openOnClass: self andSelector: #toUnboundedIcon" <resource: #image> ^Image extent: 20@12 depth: 1 palette: CoveragePalette monoMaskPalette bits: #[0 112 0 0 127 255 240 0 64 112 16 0 64 0 0 0 64 0 16 0 224 112 16 0 224 112 0 0 224 112 16 0 64 0 16 0 64 0 0 0 64 0 16 0 91 109 176 0 ] pad: 32
</methods> <methods> Examples.Size2Example class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'Size2Example' #min: #(#{Core.Point} 400 200 ) #max: #(#{Core.Point} 800 400 ) #bounds: #(#{Graphics.Rectangle} 800 600 1352 896 ) ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} -55 0.5 145 0 55 0.5 168 0 ) #name: #ActionButton9 #label: 'Extremely long label' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} -55 0.5 109 0 55 0.5 133 0 ) #name: #ActionButton7 #label: 'Much longer label' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutFrame} -55 0.5 74 0 55 0.5 98 0 ) #name: #ActionButton6 #label: 'Short label' #defaultable: true ) #(#{UI.CompositeSpecCollection} #collection: #( #(#{UI.LabelSpec} #layout: #(#{Graphics.LayoutOrigin} 0 0 4 0 ) #name: #Label2 #label: #boundedIcon #hasCharacterOrientedLabel: false ) #(#{UI.LabelSpec} #layout: #(#{Graphics.LayoutOrigin} 24 0 0 0 ) #name: #Label3 #label: 'Bounded' #style: #small ) ) #compositeSpec: #(#{UI.CompositeSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.5 46 0 0.5 0 ) #name: #Composite2 ) ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutSizedOrigin} -40 0.75 75 0 80 23 ) #name: #ActionButton1 #label: 'Short label' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutSizedOrigin} -61 0.75 110 0 122 23 ) #name: #ActionButton2 #label: 'Much longer label' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.LayoutSizedOrigin} -68 0.75 145 0 137 23 ) #name: #ActionButton3 #label: 'Extremely long label' #defaultable: true ) #(#{UI.CompositeSpecCollection} #collection: #( #(#{UI.LabelSpec} #layout: #(#{Graphics.LayoutOrigin} 0 0 4 0 ) #name: #Label6 #label: #originSizeIcon #hasCharacterOrientedLabel: false ) #(#{UI.LabelSpec} #layout: #(#{Graphics.LayoutOrigin} 23 0 0 0 ) #name: #Label7 #label: 'Origin + size' #style: #small ) ) #compositeSpec: #(#{UI.CompositeSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.75 46 0 0.5 0 ) #name: #Composite1 ) ) #(#{UI.CompositeSpecCollection} #collection: #( #(#{UI.LabelSpec} #layout: #(#{Graphics.LayoutOrigin} 0 0 4 0 ) #name: #Label4 #label: #unboundedIcon #hasCharacterOrientedLabel: false ) #(#{UI.LabelSpec} #layout: #(#{Graphics.LayoutOrigin} 23 0 0 0 ) #name: #Label5 #label: 'Unbounded (default)' #style: #small ) ) #compositeSpec: #(#{UI.CompositeSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.25 46 0 0.5 0 ) #name: #Composite3 ) ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.25 75 0 0.5 0 ) #name: #ActionButton4 #label: 'Short label' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.25 110 0 0.5 0 ) #name: #ActionButton5 #label: 'Much longer label' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.25 145 0 0.5 0 ) #name: #ActionButton8 #label: 'Extremely long label' #defaultable: true ) #(#{UI.CheckBoxSpec} #layout: #(#{Graphics.LayoutOrigin} 0 0.442029 232 0 ) #name: #CheckBox1 #label: 'Check Box' ) #(#{UI.RadioButtonSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.748188 232 0 0.5 0 ) #name: #RadioButton1 #label: 'Radio Button' ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.150362 230 0 0.5 0 ) #name: #Label1 #label: 'Label' ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.AlignmentOrigin} 0 0.356884 232 0 1 0 ) #name: #ActionButton10 #label: 'Action' #defaultable: true ) #(#{UI.GroupBoxSpec} #layout: #(#{Graphics.LayoutFrame} 40 0 196 0 -40 1 266 0 ) #name: #GroupBox1 #label: 'Unbounded widgets' ) ) ) )
</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>