From VisualWorks® NonCommercial, 7.4.1 of May 30, 2006 on January 26, 2007 at 10:25:37 am CS2340 Smalltalk false private Smalltalk.* CS2340 CS2340 MyBadParent CS2340 Core.Object false none CS2340 CS2340 CS2340DemoApp CS2340 UI.ApplicationModel false none universeName CS2340 CS2340 Employee CS2340 UI.Model false none name CS2340 CS2340 MyBadChild CS2340 CS2340.MyBadParent false none CS2340 CS2340 MyException CS2340 Core.Exception false none My Classes CS2340 EmployeeList CS2340 UI.Model false none employees CS2340 CS2340 AspectAdaptorExampleApp CS2340 UI.ApplicationModel false none employeeCount employeeName list employee CS2340 CS2340 Foo CS2340 Core.Object false none rows CS2340 CS2340 CS2340.CS2340DemoApp class interface specs windowSpec "Tools.UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'CS2340 Demo' #bounds: #(#{Graphics.Rectangle} 512 384 835 608 ) #colors: #(#{UI.LookPreferences} #setBackgroundColor: #(#{Graphics.ColorValue} 8191 8191 2048 ) ) ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.Rectangle} 86 157 233 185 ) #name: #ActionButton1 #model: #destroyAll #label: 'Destroy The Universe' #defaultable: true ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 32 28 ) #name: #Label1 #label: 'Universe Name:' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 32 59 312 88 ) #name: #InputField1 #model: #universeName #type: #string ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.Rectangle} 83 116 230 146 ) #name: #ActionButton2 #flags: 40 #model: #disable #label: 'Disable' #defaultable: true ) ) ) ) CS2340.CS2340DemoApp aspects universeName "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." ^universeName isNil ifTrue: [universeName := String new asValue] ifFalse: [universeName] CS2340.CS2340DemoApp actions disable universeName value: 'NaDa'. (self wrapperAt: #InputField1) disable. (self wrapperAt:#ActionButton1) disable. (self wrapperAt:#ActionButton2) enable. self closeRequest destroyAll Transcript show: universeName value ; cr. self mainWindow unmap. (Delay forSeconds:3) wait. self mainWindow map. (self wrapperAt: #ActionButton2) enable. (self wrapperAt:#ActionButton1) disable. CS2340.Foo class instance creation new "Answer a newly created and initialized instance." ^super new initialize CS2340.Foo comparing work 3 timesRepeat: [rows add: OrderedCollection new]. (rows at: 1) add: 1. rows inspect. CS2340.Foo initialize-release initialize "Initialize a newly created instance. This method must answer the receiver." rows := OrderedCollection new. " *** Replace this comment with the appropriate initialization code *** " ^self CS2340.Employee class instance creation new "Answer a newly created and initialized instance." ^super new initialize CS2340.Employee accessing name: aName name := aName. self changed: #name. name ^name. CS2340.Employee initialize-release initialize "Initialize a newly created instance. This method must answer the receiver." name:='Bob'. " *** Replace this comment with the appropriate initialization code *** " ^self CS2340.MyBadParent class instance creation new "Answer a newly created and initialized instance." ^super new initialize CS2340.MyBadParent overrides doWork ^5 doSpecialWork self subclassResponsibility CS2340.MyBadParent initialize-release initialize "Initialize a newly created instance. This method must answer the receiver." " *** Replace this comment with the appropriate initialization code *** " ^self CS2340.MyBadChild class instance creation new "Answer a newly created and initialized instance." ^super new initialize CS2340.MyBadChild exceptions doWithException [ MyException raiseSignal ] on: MyException do: [ :ex | Transcript show: 'The reactor will blow in 30 seconds' ; cr. ]. CS2340.MyBadChild overrides doWork self shouldNotImplement doSpecialWork ^7 doTaskQuickly Transcript show: 'Trying to do it fast';cr. MyException raiseSignal. doTaskEfficiently Transcript show: 'Trying to do it better';cr. ^ 'ok' CS2340.MyBadChild initialize-release initialize "Initialize a newly created instance. This method must answer the receiver." " *** Replace this comment with the appropriate initialization code *** " ^self CS2340.EmployeeList class initialize-release new ^ super new initialize. CS2340.EmployeeList initialize-release initialize "Initialize a newly created instance. This method must answer the receiver." " *** Edit the following to properly initialize instance variables ***" employees := OrderedCollection new. " *** And replace this comment with additional initialization code *** " ^self CS2340.EmployeeList accessing employees: anObject employees := anObject addEmployee: aEmp employees add: aEmp. self changed: #count count ^employees size. employees ^employees CS2340.AspectAdaptorExampleApp class interface specs windowSpec "Tools.UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'AspectAdapter Example' #bounds: #(#{Graphics.Rectangle} 512 384 837 605 ) ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 117 19 217 42 ) #name: #InputField1 #model: #employeeCount #type: #number ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 21 18 ) #name: #Label1 #label: 'Employee Count:' ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 27 64 ) #name: #Label2 #label: 'EmployeeName:' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 118 66 276 90 ) #name: #InputField2 #model: #employeeName ) #(#{UI.ActionButtonSpec} #layout: #(#{Graphics.Rectangle} 119 142 200 166 ) #name: #ActionButton1 #model: #run #label: 'Run' #defaultable: true ) ) ) ) CS2340.AspectAdaptorExampleApp aspects employeeName "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." ^employeeName isNil ifTrue: [employeeName := String new asValue] ifFalse: [employeeName] employeeCount "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." ^employeeCount isNil ifTrue: [employeeCount := 0 asValue] ifFalse: [employeeCount] CS2340.AspectAdaptorExampleApp initialize-release initialize super initialize. self employee: Employee new. employee name: 'Fred'. self list: EmployeeList new. list addEmployee: employee. CS2340.AspectAdaptorExampleApp accessing employee: anEmp employee := anEmp. employeeName := (AspectAdaptor subject: employee sendsUpdates: true) forAspect: #foo. list: anEmployeeList list := anEmployeeList. employeeCount:= (AspectAdaptor subject: list sendsUpdates: true) forAspect: #count. CS2340.AspectAdaptorExampleApp actions run list addEmployee: Employee new. list addEmployee: Employee new. employee name: 'Sally' CS2340.MyException initialize-release initialize "Initialize a newly created instance. This method must answer the receiver." super initialize. " *** Replace this comment with the appropriate initialization code *** " ^self