From VisualWorks® NonCommercial, 7.4.1 of May 30, 2006 on January 26, 2007 at 10:27:13 am InClass Smalltalk false private Smalltalk.* InClass InClass MyView InClass UI.View false none keyboardProcessor keyboardProcessor My Classes InClass MyCustomView InClass UI.ApplicationModel false none view view InClass InClass MyController InClass UI.ControllerWithMenu false none InClass InClass MyCustomViewApp InClass UI.ApplicationModel false none view view InClass InClass InClass.MyCustomViewApp class resources mainmenu "Tools.MenuEditor new openOnClass: self andSelector: #mainmenu" <resource: #menu> ^#(#{UI.Menu} #( #(#{UI.MenuItem} #rawLabel: 'File' #submenu: #(#{UI.Menu} #( #(#{UI.MenuItem} #rawLabel: 'Open' #value: #openDoc ) #(#{UI.MenuItem} #rawLabel: 'Exit' #value: #exitDoc ) ) #(2 ) nil ) ) ) #(1 ) nil ) decodeAsLiteralArray InClass.MyCustomViewApp class interface specs windowSpec "Tools.UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'Shapes' #bounds: #(#{Graphics.Rectangle} 512 384 947 584 ) #flags: 4 #menu: #mainmenu ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.ArbitraryComponentSpec} #layout: #(#{Graphics.Rectangle} 4 12 423 193 ) #name: #ViewHolder1 #component: #myView ) ) ) ) InClass.MyCustomViewApp accessing myView ^view. InClass.MyCustomViewApp initialize-release initialize super initialize. view := MyView new. view model: self. InClass.MyCustomViewApp actions exitDoc self closeRequest InClass.MyController events redButtonPressedEvent: aEvent Transcript show: (self sensor cursorPointFor: aEvent) ; cr. desiresFocus ^true. keyPressedEvent: anEvent Transcript show: anEvent keyValue printString; cr. InClass.MyController 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 InClass.MyView displaying displayOn: aContext aContext paint: ColorValue red. (Rectangle origin: 10@10 corner: 50@50) displayFilledOn: aContext. InClass.MyView 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 InClass.MyView accessing keyboardProcessor: kb keyboardProcessor := kb. keyboardProcessor ^keyboardProcessor. defaultControllerClass ^ MyController. desiresFocus ^true InClass.MyCustomView class resources mainmenu "Tools.MenuEditor new openOnClass: self andSelector: #mainmenu" <resource: #menu> ^#(#{UI.Menu} #( #(#{UI.MenuItem} #rawLabel: 'File' #submenu: #(#{UI.Menu} #( #(#{UI.MenuItem} #rawLabel: 'New' #value: #newDoc ) #(#{UI.MenuItem} #rawLabel: 'Open' #value: #openDoc ) #(#{UI.MenuItem} #rawLabel: 'Exit' #value: #exitDoc ) ) #(2 1 ) nil ) ) ) #(1 ) nil ) decodeAsLiteralArray InClass.MyCustomView class interface specs windowSpec "Tools.UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'Shapes' #bounds: #(#{Graphics.Rectangle} 512 384 977 687 ) #flags: 4 #menu: #mainmenu ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.ArbitraryComponentSpec} #layout: #(#{Graphics.Rectangle} -4 -2 464 306 ) #name: #ViewHolder1 #component: #myView ) ) ) ) InClass.MyCustomView accessing myView ^view. InClass.MyCustomView initialize-release initialize super initialize. view := MyView new. view model: self. InClass.MyCustomView actions exitDoc self closeRequest. openDoc newDoc