Mercurial Mercurial > hg > stx-libtool2 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UIPainter.st
changeset 1270 8e1a2c6db256
parent 1247 6fb170b75302
child 1273 4703a5b17114
equal deleted inserted replaced
1269:eacc3d198771 1270:8e1a2c6db256 
  2810 !
 
  2810 !
 
  2811 
  2811 
  2812 openInterface:aSymbol
 
  2812 openInterface:aSymbol
 
  2813     "opens the interface on the selector aSymbol"
 
  2813     "opens the interface on the selector aSymbol"
 
  2814 
  2814 
  2815     |cls painterView painter topView galleryWindow|
 
  2815     |cls painterView painter topView galleryWindow icon|
 
  2816 
  2816 
  2817     modified := false.
 
  2817     modified := false.
 
  2818 
  2818 
  2819     aspects := IdentityDictionary new.
 
  2819     aspects := IdentityDictionary new.
 
  2820 
  2820 
  2868     selectionPanel allButOpenInterface:#windowSpec.
 
  2868     selectionPanel allButOpenInterface:#windowSpec.
 
  2869     (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup).
 
  2869     (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup).
 
  2870     selectionPanel openWindow.
 
  2870     selectionPanel openWindow.
 
  2871     selectionPanel masterApplication:self.
 
  2871     selectionPanel masterApplication:self.
 
  2872 
  2872 
       
  2873     icon := Smalltalk bitmapFromFileNamed:'UIPainter.xbm' forClass:self class.
 
  2873     topView iconLabel:'GUI Painter'.
 
  2874     topView iconLabel:'GUI Painter'.
 
  2874     topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 
  2875     topView icon:icon.
 
  2875 
  2876 
  2876     painterView iconLabel:'GUI Canvas'.
 
  2877     painterView iconLabel:'GUI Canvas'.
 
  2877     painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 
  2878     painterView icon:icon.
 
  2878 
  2879 
  2879     topView bePartner.
 
  2880     topView bePartner.
 
  2880     painterView bePartner.
 
  2881     painterView bePartner.
 
  2881     galleryWindow bePartner.
 
  2882     galleryWindow bePartner.
 
  2882 
  2883 
  2883     galleryWindow iconLabel:'GUI Gallery'.
 
  2884     galleryWindow iconLabel:'GUI Gallery'.
 
  2884     galleryWindow icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 
  2885     galleryWindow icon:icon.
 
  2885 
  2886 
  2886     painterView topView raise.
 
  2887     painterView topView raise.
 
  2887 
  2888 
  2888 !
 
  2889 !
 
  2889 
  2890
hg/stx-libtool2