equal
deleted
inserted
replaced
2934 ! |
2934 ! |
2935 |
2935 |
2936 postOpenWith: aBuilder |
2936 postOpenWith: aBuilder |
2937 "sets the initial selection" |
2937 "sets the initial selection" |
2938 |
2938 |
2939 |myWindow canvasWindow canvasOrg galleryWindow myOrg myCorner| |
2939 |myWindow canvasWindow canvasOrg galleryWindow |
|
2940 galleryOrg myOrg myCorner| |
2940 |
2941 |
2941 super postOpenWith: aBuilder. |
2942 super postOpenWith: aBuilder. |
2942 treeView selection: #(1). |
2943 treeView selection: #(1). |
2943 |
2944 |
2944 "/ try to lay out things non-overlapping |
2945 "/ try to lay out things non-overlapping |
2948 galleryWindow := selectionPanel window. |
2949 galleryWindow := selectionPanel window. |
2949 |
2950 |
2950 myOrg := myWindow origin. |
2951 myOrg := myWindow origin. |
2951 myCorner := myWindow corner. |
2952 myCorner := myWindow corner. |
2952 |
2953 |
2953 (myCorner x + canvasWindow width + 20) <= device width ifTrue:[ |
2954 canvasOrg := 0@0. |
2954 canvasOrg := (myCorner x + canvasWindow width) @ (myOrg y). |
2955 myOrg := (device width - myWindow width - 20) @ 0. |
2955 ] ifFalse:[ |
2956 galleryOrg := (device width - galleryWindow width - 20) |
2956 canvasOrg := 0@0. |
2957 @ |
2957 myOrg := (device width - myWindow width - 20) @ 0. |
2958 ((myWindow height + 20) min:(device height - galleryWindow height - 20)). |
2958 myWindow origin:myOrg. |
2959 myWindow origin:myOrg. |
2959 ]. |
|
2960 |
2960 |
2961 canvasWindow origin:canvasOrg. |
2961 canvasWindow origin:canvasOrg. |
|
2962 galleryWindow origin:galleryOrg. |
2962 |
2963 |
2963 galleryWindow raise. |
2964 galleryWindow raise. |
2964 canvasWindow raise. |
2965 canvasWindow raise. |
2965 |
2966 |
2966 galleryWindow |
|
2967 origin:((myOrg corner:myCorner) topCenter x - (galleryWindow width // 2)) rounded |
|
2968 @ |
|
2969 (device height - galleryWindow height - 20). |
|
2970 |
2967 |
2971 "Modified: / 22.8.1998 / 17:41:34 / cg" |
2968 "Modified: / 22.8.1998 / 17:41:34 / cg" |
2972 ! ! |
2969 ! ! |
2973 |
2970 |
2974 !UIPainter methodsFor:'user actions'! |
2971 !UIPainter methodsFor:'user actions'! |