From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:48:00 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>Notebook4Example</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none majorKeys <imports></imports> <category>Examples-Help</category> <attributes> <package>Notebook4-Example</package> </attributes> </class> <comment> Examples.Notebook4Example
Notebook4Example demonstrates the use of a subcanvas within a notebook widget, making each page of the notebook a different application.
</comment> <methods> Examples.Notebook4Example <category>change messages</category>
changedExample | sel exampleClass | sel := self majorKeys selection. sel isNil ifTrue: [^self]. exampleClass := Examples at: sel value. (self builder componentAt: #pageHolder) widget client: exampleClass new spec: #windowSpec
</methods> <methods> Examples.Notebook4Example <category>initialize-release</category>
initialize | exampleClasses | exampleClasses := OrderedCollection new. exampleClasses := Examples keys select: [:c | ((Examples at: c) respondsTo: #windowSpec) and: [('Notebook*' match: c) not]]. majorKeys := SelectionInList with: exampleClasses asSortedCollection. majorKeys selectionIndexHolder onChangeSend: #changedExample to: self
</methods> <methods> Examples.Notebook4Example <category>aspects</category>
majorKeys ^majorKeys
</methods> <methods> Examples.Notebook4Example class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#FullSpec #window: #(#WindowSpec #label: 'Notebook4Example' #min: #(#Point 472 344 ) #bounds: #(#Rectangle 416 329 1056 809 ) ) #component: #(#SpecCollection #collection: #( #(#NoteBookSpec #layout: #(#LayoutFrame 10 0 40 0 -10 1 -10 1 ) #name: #pageHolder #model: #majorKeys #binderWidth: 20 #rightInset: 150 #bottomInset: 0 ) #(#LabelSpec #layout: #(#AlignmentOrigin 0 0.5 10 0 0.5 0 ) #label: 'A notebook with different page layouts (canvases)' #style: #large ) ) ) )
</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>