From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:47:28 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>LineExample</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none <imports></imports> <category>Examples-Help</category> <attributes> <package>Line-Example</package> </attributes> </class> <comment> Examples.LineExample
LineExample demonstrates adding lines, boxes and regions as visual grouping devices in a window. This class contains only a windowSpec.
</comment> <methods> Examples.LineExample class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#FullSpec #window: #(#WindowSpec #label: 'RoboCanvas' #min: #(#Point 50 50 ) #bounds: #(#Rectangle 346 317 733 795 ) ) #component: #(#SpecCollection #collection: #( #(#DividerSpec #layout: #(#Rectangle 112 415 283 419 ) ) #(#RegionSpec #layout: #(#Rectangle 66 68 167 72 ) #lineWidth: 4 ) #(#GroupBoxSpec #layout: #(#Rectangle 141 251 241 351 ) ) #(#RegionSpec #layout: #(#Rectangle 172 268 265 369 ) #isOpaque: true #colors: #(#LookPreferences #setForegroundColor: #(#ColorValue #black ) ) #lineWidth: 4 ) #(#RegionSpec #layout: #(#Rectangle 214 101 332 181 ) #lineWidth: 1 #regionType: #ellipse ) #(#RegionSpec #layout: #(#Rectangle 47 100 165 180 ) #isOpaque: true #colors: #(#LookPreferences #setBackgroundColor: #(#ColorValue 8191 5631 3072 ) ) #lineWidth: 2 #regionType: #ellipse ) #(#RegionSpec #layout: #(#Rectangle 223 91 324 94 ) #lineWidth: 2 ) #(#RegionSpec #layout: #(#Rectangle 264 105 323 177 ) #lineWidth: 1 #regionType: #ellipse ) #(#RegionSpec #layout: #(#Rectangle 98 105 154 175 ) #isOpaque: true #colors: #(#LookPreferences #setBackgroundColor: #(#ColorValue 2048 2048 8191 ) ) #lineWidth: 2 #regionType: #ellipse ) ) ) )
</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>