# HG changeset patch # User Claus Gittinger # Date 1244734231 -7200 # Node ID db71c37b1f2956655cf102bc93aa9c873aa0e4a6 # Parent 00edcadc2f2feeb10bc9bf6824860c8ce9e1e60e *** empty log message *** diff -r 00edcadc2f2f -r db71c37b1f29 UISelectionPanel.st --- a/UISelectionPanel.st Wed Jun 10 22:36:33 2009 +0200 +++ b/UISelectionPanel.st Thu Jun 11 17:30:31 2009 +0200 @@ -114,6 +114,10 @@ !UISelectionPanel class methodsFor:'image specs'! sketchImageIcon + ^ self sketchImageIcon2 +! + +sketchImageIcon1 "This resource specification was automatically generated by the ImageEditor of ST/X." @@ -129,7 +133,7 @@ ^Icon - constantNamed:'UISelectionPanel class sketchImageIcon' + constantNamed:'UISelectionPanel class sketchImageIcon1' ifAbsentPut:[(Depth24Image new) width: 62; height: 48; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:' 4M? / + + ^Icon + constantNamed:'UISelectionPanel class sketchImageIcon2' + ifAbsentPut:[(Depth8Image new) width: 96; height: 78; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' +PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@ +PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@ +PDA@PDA@PDA@PDA@PC49A9"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X&I"X +&I"X&I"X&I"X&I"X&I"XA3%@PC%0I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\'' +I2\''I2\''I2\''I2\''I2\''I2\''I2\''HPI@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\'' +I2\''I2\''I2\''I2\''I2\''I2\''\GA0\G@?O3/+:>UR4.,%P*/B"V/+J1KX*2M)JRMX(5"#X6MX&IK+D8=OS4=NVM@ +P@\=I2\''I6X/K2/B*>UR:2U +%Z2M^W%9^W%K%YV,R6I"X&D=OS4=NVM@P@\=I2\''I4>P$IBP$IBP$IBP^W&P$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$G%9X!!<_X&I"X&H_R:2,+J>U ++:>U+EJ,X&I9^W%9^W$_+J2,+D-"#VD=OS4=NVM@P@\=I2\''I4>P$IBP$IBP^W%=G1=9^W%9X''59%IBP$IBP$IBP$IBT^W%9^YRT%IRT^W%9X!!<_X&I"X$-K ++J2,+J=,+:1KX&I"X*2UR86M#X4_G:2UG:0_X&D=OS4=NVM@P@\=I2\''I4>P$IQ9^W%9^Z1RT%J,+EIRT*2,X''%9^YRT%G%9^W%9^W%9^W%9^W%9^W%9^VIK +G1<_R4.,+J1R+2T%IP*,G1>,B (%B%I"X&H_+IV,X&IKR6D=OS4=NVM@P@\=I2\''I4>T^W%9^W%"G4.,+:=,[J>/[F1,[A==^W5=_W5=_VI"_W5=_W5=_W59 +^W%=_VH_+J2,T*2,+J2U+2T%B"TJ+J1R+:=,%Z1"X&IK+A="X&I"X&D=OS4=NVM@P@\=I2\''I3)9^W5"X&J,R:1R+:>,T*2,%Z>/+:<_G1<__W5=G1<_G6I= +_W5=_W5=_W5=X&I"G1=RT*1RT)V/B*>U+2T%IRT%[J>UR6I"X&I"X&I"X&I"X&D=OS4=NVM@P@\=I2\''I3)=X&H_%YUR+EJ/T*2,+J2,T*>/%UJ,+J2,G1<_ +G1=)G1<__W5=_W5=_W5"X&I"X!!>/%YV/+9V/+9UR%Z>/[F2/+62/R6I"X&I"X&I"X&I"X&D=OS4=NVM@P@\=I2\''I3)"+EIR+9V/%YV,+D.,+J2U+:>/%Z1R +T%IRT*1)G6&,+F$_G75=_W5=_VI"X&H_G:1,+:>/+:=,+:2,R4,_G:2,+:=RR1<_G1<_G1<_G6H_G6D=OS4=NVM@P@\=I2\''I2IR%Z>/+:>UT%J,R:2,+J1R +%YVU+:=,+:>/+9URG1>,T%J,ZQ<_G6I"X&I"G1<_G1=K+J1K+J>/+9V,R4.,R4.,+D.,+D-KR4,_G1<_R4-KG6T=OS4=NVM@P@\=I2\''I2J/+:>/+:>U%UJ, ++J2,+J2,+EJU+61,+:>/[F1,+5IRT%IRT*2,G1<_G1<_G1<_R4-KR4-KR:2/T*1RR4-KR:2/+5J/B&1,[J=KR4-K+J2,R6T=OS4=NVM@P@\=I2\''I2J/+:>/ ++:>U+5J,+J2,+J1RT)V/+:>/[F1,[F1,[J>UT%IR%UJ,+J1)G1<_R4-KR4-KR:2,+JU+J2,+FT=OS4=NVM@P@\=I2\'' +I2JU%YVU%UIRT*2,+J2,+EJU%YVU+62/+:>/[@(J+9VU%YURT%IRT%IR+J2,+J2,+J2,+J2,%Z=,B */B"T%IZ>U%V0%B&1,%P(%IRT%IYV,+FT=OS4=NVM@ +P@\=I2\''I2JUT)VU%Z2,+J2,+J1R%YVU%YV/+:>/+:>/+:>/%YURT%J,+EJU%YVUT%IR+J2,+J2,+J2,%YVU+9VU+:/%YVU%YV,+J2,+EJU%YVU%YVU+:>UL:2,B */%YVU%YVU%YU,%YVU+0(JB (J+0),+:>/ ++60%B$8=OS4=NVM@P@\=I2\''I6VU%YVU%YVU%YVU%YVU%YVU%YVU%YV/+:>/%YVU%Z2,+J2,+IVU%YVU%Z>/+0),%YU,B"T%+9VU%YVU%Z>/%YV/B */+:>/ +%Z>/+:>/+0(%IS$=OS4=NVM@P@\=I2\''I7TIV''LVE*2U%YU_IG8I\9VU%YVU%YVU+:>/%YVU%SL3+CNU%YVU%YV/[F2/+0(%IRT%B*>/%YVU%YVU%YVU%YV/ ++:>U%YVU%YV/+:>/+60JB$8=OS4=NVM@P@\=I2\''I1V.+''8$Z&*.V"Q*Z''9>%7NU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%Z=,+:>/+0*/+:>/+:>U%YVU%YVU +%YVU%YVU%YVU%YVU%Z>/+:>/B"T%IS$=OS4=NVM@P@\=I2\''I1V._'':.+''9>_&)''Z''9>TC!!Y+9VU%YVU%YVU%YVU%YVU%YVU%YVU%YVU+:>/B */+:>/+:>/ +%YVU%YVU%Z>/+:>/+:>/+:>/+:>/+:>/[@(JIT8=OS4!!T6M@P@\=I2\''I1V.+*9*+*:.+&)*_''9>_%@8VZ>/%YVU%YVU%YVU%YVU%YVU%YVU%YVU+:/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:=,B (%B$8=ORD!!T6M@P@\=I2\''I1U''Z*:.+*:._&)*_''9>_''9PCHZ/M9VU%YVU%YVU%YVU%YVU%YVU%Z>/ +M0(%B#\7M3\7M3^/+:>/+:>/+:>/+:>/+:>/+:<7+3\7M0(JB (%IT8!!HRD!!T6M@P@\=I2\''I1U''Y6]*Z*:.+&)*_''8;_''8;BY\M*C\7M3\7+:<7+:>/+3\7 ++3^/M3\7M0(JB (7M3\7M3\7M3\7+3\7+3^/M3\7M3\7M3\7M3\JB (JB"T%IT8!!HRD!!T6M@P@\=I2\''I1U''Y6]''Y6)*Z''9*_''9>_''8;BP$I[: 7M3\7M3\7 +M3\7M3\7M3\7M3\7M0(JB#\7M3\7M3\7M3\7M3\7M3\7M3\7M3\7M3\JB (JB (JB"T%B$8!!HRD!!T6M@P@\=I2\''I1U''Y6]''Y6)*Z*9*_''9>_#,;BY\I+ &F +[7MJ+3\7M3\7M3\7M3\7B#\7B (JB#\7M3\7M3\7M3\7M3\7M3\7M3\7M3\7B (JB (JB (JB (JB$8!!HRD!!T6M@P@\=I2\''I1U''Y6]''Y6]''Z&)*Z&)>_''8; +BP$IBP$IBS,I,%>(M3\7B (JB (JB (JB (JB (7M3\7M3\7M3\7M0(7B (JB (JB (JB (JB (JB (JB (JB$8!!HRD!!T6M@P@\=I2\''I;Z%Y6]''Y6]''Y6^+ +SH:N#"A>_#,$I@$IBP$IBP$I\3\JB (JB (JB (JB (JB (7M3\7M3\JB (JB (JB (JB (JB (JB (JB (JB (JB"TJB$8!!HRD!!T6M@P@\=I2\''I02^'':]'' +H:-L(JB (I:^'')>8.W]>IBR._*8IBZ:.BRR2\ (JB (JB */+:/+J2U+3\7+:>/+0(JB (JB (JB (JB (JB (JB (JB"T%IT8!!HRD!!T6M@P@\=I2\'' +I8VG(JF!!''): (JB (JB ''):_'';!!7]7:.+*:.BRR.+ $IBUQZW(_+F%:Y''*:.+)RB (JB (JB (JB (JB (JB (JIRT%IT8!!HRD!!T6M@ +P@\=I2\''I8VI!!8^!!(I:^!!8^G(JB (I:!!''9>9.[&N+*:.+*:.+*8$+ %3B (JT''6Q$YFQ$YFQ$W*Q+G*:.+(2(:N#S4_!!0DMCR9.[&KAF>:$YFQ$YFQ.+*#(:N#(:N#(3H:[BT%IRT% +IRT%IRT%IRT%IS$!!HRD!!A6M@P@\=I2\''I8VL"X&I!!8*J)ZV%(X^I"X^G!!8^G!!:F"#*F_#+&N#(:N#(:N.X9^.[&9.[&9.[$0A@$IBP&2WK*:L*N#(:N#(:N# +(1)!!XRH%IRT%IRT%IRT%IS$!!HRD!!A6M@P@\=I2\''I8VL#H&I"X&I"X&G"(^G"X^I!!8^G!!8]H)ZV%(+"9.[&)#+&9.[%^W#Q^.[&9.X.K"8.9.X.KTE!!\P%"2 +BSX\.PR2\ZN#(:N:[BT%IRT%IRT%IS$!!HRDWE11WFD?I2\''I2\''I3$!!HS0&)%>***Y!!XVE%YVE!!S \9NS$9A6M@P@\=\GA0 +\E6B (JB (JB (JB,XB@ HB@ (B@ HA-!!F5-[V-+DQDQI"X)D!!L)I"$)I"X)"H"H''R$)JX"]''R$)"AI\#8=\P%<.)%2&)%=_W6E%A&E!!YVE%*''<9NS$9A6M@ +P@\=\GA0\E6B (JB &!!(ZHJB HB@ HB@ HA-Z65-[[M+Z;M+DQDQI"X)JR$)JR$)JR$)JR&OJR$RD":OD!!H)K"8.WB:&)*Z*W8>&XU<.W5>*YVV*YVU%*''<9 +NS$9A6M@P@\=\G@?O7"B (ITU(ITUEQT[UQT[V5-[UQ-[V5+,;LQDQD&I"X)I"$QDR$)JR$)JQH)JR$RD2$RJQLRJR8R)"8R#28.)%2&)(=_*%>&**Y!!YZY!! +YVUNA T9NS$9A6M@P@\=\C&)*Y\)*ZOWB8.YVV&R T9NS$9A6M@P@\=O34=OR5--UQTUEQTUEQ-[V63,;N3,;N3DQDQJQDQDQD&DQDQDQD&I!!DQJQDQJRX)JQD&JR8)I"$) +JR$.D!!HRD$6&D!!J&WJX.JU2&K"8SSZZ&W0XR) T9NS$9A6M@P@\=OS4=OR5T[[N3D[N\-[N5-[N3,;N5,;N3,;N3,;N3,1DQDQDQDQD)JR$&DQF3DQDQJRXQ +D[LQZ;LQDQH)D!!H.WJY_WB9\WJZ&)*Z&)%1\D!!LRW28RK*(9NS$9A6M@P@\=OS4=OR5TUERSUEQTUF!!TUEQT[V63,;N5[[L)JQDQ,1F3DQDQDR$SDRX)DR$) +JRX)JR$)I"%XJR$)D( .D"$RJQHSK"$R)!!H.JPX.D!!H.D"8.K*Z&W7<9NS$9A6M@P@\=OS4=OR63,;M-UEQT[UQTUF5TUF63D[N5UEQT,;N3,;N3,;LQ,1D& +DR$)JR$)DRXQDRXQJR$SK!!L)K!!HRD"8SK%2*WB$)K!!LRWJXF)!!I\#:Y_**Z&W7<9NS$9A6M@P@\=OS4=OW!!(ZF!!TZF5TUEQTUF5-[V5-Z65-[V5-[V.D[V.D +DV--[V.D!!AE-[QDQJQDQDXPQ!!F.DZ1D)JQD)DR:7D45ZVALSSR5_^B&7K%<.D:Z&)*Z**''<9NS$9A6M@P@\=OS4=OS4=OS4=OS4=OS4=OS4=ORD!!HRD!!TUEQ +TS%QTUD9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4=OS4=OS4=OS4=OS4=OS4=OS4= +OS4=OS4=OS4=OS4=OS4=HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!OC0_??????????????>_??????????????>_??????????????>_??????????????>_??????? +???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> +_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? +???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> +_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? +???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> +_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? +???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> +_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????? +???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????> +_??????????????>_??????????????>@@@@@@@@@@@@@@@@') ; yourself); yourself] ! ! -!UISelectionPanel class methodsFor:'interface - standard specifications'! +!UISelectionPanel class methodsFor:'interface specs'! + +nameAndSelectorSpec + "This resource specification was automatically generated + by the UIPainter of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIPainter may not be able to read the specification." + + " + UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec + UISelectionPanel new openInterface:#nameAndSelectorSpec + " + + + + ^ + #(FullSpec + name: nameAndSelectorSpec + window: + (WindowSpec + label: 'Painter' + name: 'Painter' + min: (Point 10 10) + bounds: (Rectangle 14 46 329 262) + ) + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Class & selectors to access user specs:' + name: 'title' + layout: (Point 5 10) + resizeForLabel: true + adjust: left + ) + (LabelSpec + label: 'Class:' + name: 'classLabel' + layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'classField' + layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) + tabable: true + model: className + type: string + acceptOnPointerLeave: false + ) + (LabelSpec + label: 'Labels:' + name: 'labelsLabel' + layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'labelsField' + layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) + tabable: true + model: labelsKey + type: symbolOrNil + acceptOnPointerLeave: false + ) + (LabelSpec + label: 'Specifications:' + name: 'specsLabel' + layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'specsField' + layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) + tabable: true + model: specsKey + type: symbolOrNil + acceptOnPointerLeave: false + ) + (HorizontalPanelViewSpec + name: 'commitPanel' + layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) + horizontalLayout: fitSpace + verticalLayout: fit + horizontalSpace: 3 + verticalSpace: 3 + reverseOrderIfOKAtLeft: true + component: + (SpecCollection + collection: ( + (ActionButtonSpec + label: 'cancel' + name: 'cancel' + tabable: true + model: cancel + extent: (Point 153 23) + ) + (ActionButtonSpec + label: 'ok' + name: 'accept' + tabable: true + model: accept + isDefault: true + extent: (Point 153 23) + ) + ) + + ) + ) + (CheckBoxSpec + label: 'Update Default Resources' + name: 'updateDefaultResources' + layout: (Point 5 133) + model: updateDefaultResources + ) + ) + + ) + ) +! + +windowSpec + "This resource specification was automatically generated + by the UIPainter of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIPainter may not be able to read the specification." + + " + UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec + UISelectionPanel new openInterface:#windowSpec + UISelectionPanel open + " + + + + ^ + #(FullSpec + name: windowSpec + window: + (WindowSpec + label: 'Widget Gallery' + name: 'Widget Gallery' + min: (Point 100 280) + bounds: (Rectangle 14 46 508 348) + ) + component: + (SpecCollection + collection: ( + (NoteBookViewSpec + name: 'NoteBook1' + layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) + model: majorChannel + menu: majorList + direction: right + useIndex: true + canvas: gallery + ) + ) + + ) + ) +! ! + +!UISelectionPanel class methodsFor:'interface specs-standard gallery'! specifications @@ -1304,7 +1589,7 @@ ) (SketchMorphSpec name: 'SketchMorph1' - layout: (LayoutFrame 217 0 150 0 279 0 198 0) + layout: (LayoutFrame 280 0 10 0 373 0 90 0) image: sketchImageIcon ) ) @@ -1482,172 +1767,6 @@ ) ! ! -!UISelectionPanel class methodsFor:'interface specs'! - -nameAndSelectorSpec - "This resource specification was automatically generated - by the UIPainter of ST/X." - - "Do not manually edit this!! If it is corrupted, - the UIPainter may not be able to read the specification." - - " - UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec - UISelectionPanel new openInterface:#nameAndSelectorSpec - " - - - - ^ - #(FullSpec - name: nameAndSelectorSpec - window: - (WindowSpec - label: 'Painter' - name: 'Painter' - min: (Point 10 10) - bounds: (Rectangle 14 46 329 262) - ) - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Class & selectors to access user specs:' - name: 'title' - layout: (Point 5 10) - resizeForLabel: true - adjust: left - ) - (LabelSpec - label: 'Class:' - name: 'classLabel' - layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) - resizeForLabel: true - adjust: right - ) - (InputFieldSpec - name: 'classField' - layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) - tabable: true - model: className - type: string - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Labels:' - name: 'labelsLabel' - layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) - resizeForLabel: true - adjust: right - ) - (InputFieldSpec - name: 'labelsField' - layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) - tabable: true - model: labelsKey - type: symbolOrNil - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Specifications:' - name: 'specsLabel' - layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) - resizeForLabel: true - adjust: right - ) - (InputFieldSpec - name: 'specsField' - layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) - tabable: true - model: specsKey - type: symbolOrNil - acceptOnPointerLeave: false - ) - (HorizontalPanelViewSpec - name: 'commitPanel' - layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) - horizontalLayout: fitSpace - verticalLayout: fit - horizontalSpace: 3 - verticalSpace: 3 - reverseOrderIfOKAtLeft: true - component: - (SpecCollection - collection: ( - (ActionButtonSpec - label: 'cancel' - name: 'cancel' - tabable: true - model: cancel - extent: (Point 153 23) - ) - (ActionButtonSpec - label: 'ok' - name: 'accept' - tabable: true - model: accept - isDefault: true - extent: (Point 153 23) - ) - ) - - ) - ) - (CheckBoxSpec - label: 'Update Default Resources' - name: 'updateDefaultResources' - layout: (Point 5 133) - model: updateDefaultResources - ) - ) - - ) - ) -! - -windowSpec - "This resource specification was automatically generated - by the UIPainter of ST/X." - - "Do not manually edit this!! If it is corrupted, - the UIPainter may not be able to read the specification." - - " - UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec - UISelectionPanel new openInterface:#windowSpec - UISelectionPanel open - " - - - - ^ - #(FullSpec - name: windowSpec - window: - (WindowSpec - label: 'Widget Gallery' - name: 'Widget Gallery' - min: (Point 100 280) - bounds: (Rectangle 14 46 508 348) - ) - component: - (SpecCollection - collection: ( - (NoteBookViewSpec - name: 'NoteBook1' - layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) - model: majorChannel - menu: majorList - direction: right - useIndex: true - canvas: gallery - ) - ) - - ) - ) -! ! - !UISelectionPanel class methodsFor:'menus'! menuSelected