From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:46:56 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>Dataset4Example</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none dsvList selectedRow <imports></imports> <category>Examples-Help</category> <attributes> <package>Dataset4-Example</package> </attributes> </class> <comment> Examples.Dataset4Example
Dataset4Example demonstrates adding a graphic as a column label. Expands on Dataset3Example. Instance Variables: dsvList - List of rows selectedRow - Employee instance of the selected row
</comment> <methods> Examples.Dataset4Example <category>aspects</category>
dsvList "This method was generated by UIDefiner. Any edits made here may be lost whenever methods are automatically defined. The initialization provided below may have been preempted by an initialize method." ^dsvList isNil ifTrue: [dsvList := SelectionInList new. dsvList selectionIndexHolder compute: [:v | self selectedRow value: dsvList selection]. dsvList] ifFalse: [dsvList]
selectedRow "This method was generated by UIDefiner. Any edits made here may be lost whenever methods are automatically defined. The initialization provided below may have been preempted by an initialize method." ^selectedRow isNil ifTrue: [selectedRow := nil asValue] ifFalse: [selectedRow]
</methods> <methods> Examples.Dataset4Example <category>initialize-release</category>
initialize | aList anEmp | aList := List new. "The aspect for the dataset should be a list of Employee instances. Create an employee to put in the list." anEmp := Employee new initialize. anEmp name: 'Tami Hayes'; empNo: '341-2'; citizen: true. aList add: anEmp. "Create an employee to put in the list." anEmp := Employee new initialize. anEmp name: 'Leo Mazon'; empNo: '786-9'; citizen: false. aList add: anEmp. "Set the list for the dataset aspect. This list appears when you start." self dsvList list: aList. super initialize.
</methods> <methods> Examples.Dataset4Example class <category>resources</category>
number ^('Employee Number' asText emphasizeAllWith: (Array with: #bold with: #color->ColorValue red)) asComposedText
</methods> <methods> Examples.Dataset4Example class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#FullSpec #window: #(#WindowSpec #label: 'Dataset4Example' #bounds: #(#Rectangle 399 297 735 531 ) ) #component: #(#SpecCollection #collection: #( #(#DataSetSpec #layout: #(#Rectangle 11 18 314 196 ) #model: #dsvList #columns: #( #(#DataSetColumnSpec #model: #'selectedRow name' #label: 'Name' #labelIsImage: false #width: 80 #rendererType: #Text #editorType: #InputField #noScroll: false ) #(#DataSetColumnSpec #model: #'selectedRow empNo' #label: 'number' #labelIsImage: true #width: 114 #rendererType: #Text #editorType: #InputField #noScroll: false ) #(#DataSetColumnSpec #model: #'selectedRow citizen' #label: 'U.S. Citizen' #labelIsImage: false #width: 80 #rendererType: #CheckBox #editorType: #CheckBox #noScroll: false ) ) ) ) ) )
</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>