From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:46:39 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>ComboBoxExample</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none shipper shipperChoices <imports></imports> <category>Examples-Help</category> <attributes> <package>ComboBox-Example</package> </attributes> </class> <comment> Examples.ComboBoxExample
ComboBoxExample class demonstrates the use of a ComboBox widget on a simple List domain object.
</comment> <methods> Examples.ComboBoxExample <category>initialize-release</category>
initialize | list | shipper := 'Courier' asValue. list := List new. list add: 'Courier'; add: 'FedEx'; add: 'UPS'; add: 'USPS'. shipperChoices := list asValue.
</methods> <methods> Examples.ComboBoxExample <category>aspects</category>
shipper ^shipper
shipperChoices ^shipperChoices
</methods> <methods> Examples.ComboBoxExample class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#FullSpec #window: #(#WindowSpec #label: 'ComboBoxExample' #min: #(#Point 222 99 ) #max: #(#Point 222 99 ) #bounds: #(#Rectangle 448 417 670 516 ) ) #component: #(#SpecCollection #collection: #( #(#ComboBoxSpec #layout: #(#LayoutFrame 50 0 50 0 -50 1 75 0 ) #model: #shipper #type: #string #comboList: #shipperChoices ) #(#LabelSpec #layout: #(#AlignmentOrigin 0 0.5 25 0 0.5 0 ) #label: 'Menu lists choices for field' ) ) ) )
</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>