Squeak
  links to this page:    
View this PageEdit this PageUploads to this PageHistory of this PageTop of the SwikiRecent ChangesSearch the SwikiHelp Guide
InspectorBrowser buildWith: builder
Last updated at 3:46 pm UTC on 16 September 2017
buildWith: builder

	| window fieldSpec valueSpec msgSpec codeSpec |
	
	window := builder pluggableWindowSpec new
		model: self;
		children: OrderedCollection new;
		yourself.
		
	fieldSpec := builder pluggableListSpec new
		model: self;
		list: #fieldList;
		getIndex: #selectionIndex;
		setIndex: #toggleIndex:;
		menu: #fieldListMenu:;
		frame: (0@0 corner: 0.3@0.5).
	
	valueSpec := builder pluggableTextSpec new
		model: self;
		getText: #contents;
		setText: #accept:;
		menu: #codePaneMenu:shifted:;
		frame: (0.3@0 corner: 1.0@0.5).

	msgSpec := builder pluggableListSpec new
		model: self;
		list: #msgList;
		getIndex: #msgListIndex;
		setIndex: #msgListIndex:;
		menu: #msgListMenu;
		frame: (0@0.5 corner: 0.3@1.0).
		
	codeSpec := builder pluggableTextSpec new
		model: self;
		getText: #msgText;
		setText: #msgAccept:from:;
		menu: #msgPaneMenu:shifted:;
		frame: (0.3@0.5 corner: 1.0@1.0).
	
	window children addAll: {fieldSpec. valueSpec. msgSpec. codeSpec}.
	^ builder build: window