From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:48:30 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>Table1Example</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none tableInterface sightingsTable cellContents <imports></imports> <category>Examples-Help</category> <attributes> <package>Table1-Example</package> </attributes> </class> <comment> Examples.Table1Example
Table1Example demonstrates using a Table widget to display data. Instance Variables: tableInterface holding table data for the widget sightingsTable a SelectionInTable holding a TwoDList and a cell coordinates
</comment> <methods> Examples.Table1Example <category>initialize-release</category>
initialize | list | super initialize. "Create a collection of sightings data." list := TwoDList on: #('Vulcans' 188 173 192 'Romulans' 26 26 452) copy columns: 4 rows: 2. sightingsTable := SelectionInTable with: list. "Create a table interface and load it with the sightings." tableInterface := TableInterface new selectionInTable: sightingsTable. tableInterface columnWidths: #(100 40).
</methods> <methods> Examples.Table1Example <category>aspects</category>
sightingsTable ^sightingsTable
tableInterface ^tableInterface
</methods> <methods> Examples.Table1Example class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#FullSpec #window: #(#WindowSpec #label: 'Table1Example' #bounds: #(#Rectangle 399 326 730 526 ) ) #component: #(#SpecCollection #collection: #( #(#TableViewSpec #layout: #(#Rectangle 22 4 288 156 ) #model: #tableInterface #showHGrid: true #showVGrid: true ) ) ) )
</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>