UIPainter.st
changeset 1563 bf3439f7e277
parent 1554 d5e4612bf7cf
child 1565 3282f44c5ca4
equal deleted inserted replaced
1562:5bf39bbb2eb4 1563:bf3439f7e277
  3100     "/ the selectionPanel ...
  3100     "/ the selectionPanel ...
  3101 
  3101 
  3102     selectionPanel := self selectionPanelClass new.
  3102     selectionPanel := self selectionPanelClass new.
  3103     selectionPanel allButOpenInterface:#windowSpec.
  3103     selectionPanel allButOpenInterface:#windowSpec.
  3104     (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup).
  3104     (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup).
  3105     selectionPanel openWindow.
       
  3106     selectionPanel masterApplication:self.
  3105     selectionPanel masterApplication:self.
  3107 
  3106 
  3108     icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class.
  3107     icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class.
  3109     topView iconLabel:'GUI Painter'.
  3108     topView iconLabel:'GUI Painter'.
  3110     topView icon:icon.
  3109     topView icon:icon.