UIPainter.st
changeset 1195 64f3537ca061
parent 1194 651885033545
child 1197 ef91ed58b7d4
equal deleted inserted replaced
1194:651885033545 1195:64f3537ca061
  2949     galleryWindow := selectionPanel window.
  2949     galleryWindow := selectionPanel window.
  2950 
  2950 
  2951     myOrg := myWindow origin.
  2951     myOrg := myWindow origin.
  2952     myCorner := myWindow corner.
  2952     myCorner := myWindow corner.
  2953 
  2953 
  2954     canvasOrg := 0@0.
  2954     canvasOrg := 10@20.
  2955     myOrg := (device width - myWindow width - 20) @ 0.
  2955     myOrg := (device width - myWindow width - 20) @ 20.
  2956     galleryOrg := (device width - galleryWindow width - 20) 
  2956     galleryOrg := (device width - galleryWindow width - 20) 
  2957                   @ 
  2957                   @ 
  2958                   ((myWindow height + 20) min:(device height - galleryWindow height - 20)).
  2958                   ((myWindow height + 20) min:(device height - galleryWindow height - 20)).
  2959     myWindow origin:myOrg.
  2959     myWindow origin:myOrg.
  2960 
  2960 
  2962     galleryWindow origin:galleryOrg.
  2962     galleryWindow origin:galleryOrg.
  2963 
  2963 
  2964     galleryWindow raise.
  2964     galleryWindow raise.
  2965     canvasWindow raise.
  2965     canvasWindow raise.
  2966 
  2966 
  2967 
  2967     "Modified: / 13.7.1999 / 21:26:52 / cg"
  2968     "Modified: / 22.8.1998 / 17:41:34 / cg"
       
  2969 ! !
  2968 ! !
  2970 
  2969 
  2971 !UIPainter methodsFor:'user actions'!
  2970 !UIPainter methodsFor:'user actions'!
  2972 
  2971 
  2973 accept
  2972 accept