UIPainter.st
changeset 274 2db2e583b3b4
parent 272 99de6af43afa
child 280 1dd13e8107e2
equal deleted inserted replaced
273:f5284b712b5f 274:2db2e583b3b4
  1789 
  1789 
  1790     super openInterface.
  1790     super openInterface.
  1791 
  1791 
  1792     topView := self window.
  1792     topView := self window.
  1793     topView bePartner.
  1793     topView bePartner.
  1794     topView label:'Interface Builder'.
  1794     topView label:'GUI Builder'.
  1795     topView icon:(Image fromFile:'bitmaps/Builder.xbm' resolution:100).
  1795     topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
  1796 
  1796 
  1797     painterView openInGroup:(topView windowGroup).
  1797     painterView openInGroup:(topView windowGroup).
  1798     painterView bePartner.
  1798     painterView bePartner.
  1799     painterView application:self.
  1799     painterView application:self.
  1800     painterView open.
  1800     painterView open.
  1804     selectionPanel allButOpenInterface:#windowSpec.
  1804     selectionPanel allButOpenInterface:#windowSpec.
  1805     selectionPanel window openInGroup:(topView windowGroup).
  1805     selectionPanel window openInGroup:(topView windowGroup).
  1806     selectionPanel window bePartner.
  1806     selectionPanel window bePartner.
  1807     selectionPanel openWindow.
  1807     selectionPanel openWindow.
  1808     selectionPanel masterApplication:self.
  1808     selectionPanel masterApplication:self.
       
  1809 
       
  1810     "Modified: 1.8.1997 / 14:22:10 / cg"
  1809 !
  1811 !
  1810 
  1812 
  1811 openNewWindowCanvas
  1813 openNewWindowCanvas
  1812     "open new
  1814     "open new
  1813     "
  1815     "