initialization
initializeWidgets

	menu := MenuModel new
		addGroup: [ :group |
			group addItem: [ :item |
				item 
					name: 'File';
					icon: Smalltalk ui icons openIcon;
					subMenu: self subMenu ].
			group addItem: [ :item |
				item
					name: nil;
					description: 'Open file';
					icon: Smalltalk ui icons openIcon;
					action: [ self inform: 'Open File' ] ].
			group addItem: [ :item |
				item 
					name: nil;
					description: 'Save File';
					icon: Smalltalk ui icons smallSaveIcon;
					action: [ self inform: 'Save File' ] ].
			group addItem: [ :item |
				item
					name: nil;
					description: 'Print file';
					icon: Smalltalk ui icons smallPrintIcon;
					action: [ self inform: 'Print file' ] ] ];
		addGroup: [ :group |
			group addItem: [ :item |
				item
					name: nil;
					description: 'Undo';
					icon: Smalltalk ui icons smallUndoIcon;
					action: [ self inform: 'Undo' ] ].
			group addItem: [ :item |
				item
					name: nil;
					description: 'Redo';
					icon: Smalltalk ui icons smallRedoIcon;
					action: [ self inform: 'Redo' ] ] ].
		
	menu applyTo: self.
	text := self newText.
	self focusOrder add: text