UISelectionPanel.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 14 Nov 2018 12:07:51 +0100
branchjv
changeset 3630 5e718e0a754e
parent 3323 9c579009a14b
permissions -rw-r--r--
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present

- All source *.st files are now Unicode UTF8 without BOM
Files are in two groups (fileOut works this way in Smalltalk/X):
- containing a unicode character have "{ Encoding: utf8 }" at the header
- ASCII only are without the header
ca@93
     1
"
ca@182
     2
 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
tm@987
     3
              All Rights Reserved
ca@93
     4
ca@93
     5
 This software is furnished under a license and may be used
ca@93
     6
 only in accordance with the terms of that license and with the
ca@93
     7
 inclusion of the above copyright notice.   This software may not
ca@93
     8
 be provided or otherwise made available to, or used by, any
ca@93
     9
 other person.  No title to or ownership of the software is
ca@93
    10
 hereby transferred.
ca@93
    11
"
cg@1408
    12
"{ Package: 'stx:libtool2' }"
cg@1408
    13
cg@3226
    14
"{ NameSpace: Smalltalk }"
cg@3226
    15
ca@112
    16
ApplicationModel subclass:#UISelectionPanel
cg@1142
    17
	instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection
cg@1142
    18
		clipBoardSpec'
cg@1044
    19
	classVariableNames:'UserClass UserSpecs UserLabels'
cg@1044
    20
	poolDictionaries:''
cg@1044
    21
	category:'Interface-UIPainter'
ca@93
    22
!
ca@93
    23
cg@387
    24
Object subclass:#UserDefinedGallery
cg@1044
    25
	instanceVariableNames:''
cg@1044
    26
	classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber'
cg@1044
    27
	poolDictionaries:''
cg@1044
    28
	privateIn:UISelectionPanel
ca@207
    29
!
ca@207
    30
ca@93
    31
!UISelectionPanel class methodsFor:'documentation'!
ca@93
    32
ca@93
    33
copyright
ca@93
    34
"
ca@182
    35
 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
tm@987
    36
              All Rights Reserved
ca@93
    37
ca@93
    38
 This software is furnished under a license and may be used
ca@93
    39
 only in accordance with the terms of that license and with the
ca@93
    40
 inclusion of the above copyright notice.   This software may not
ca@93
    41
 be provided or otherwise made available to, or used by, any
ca@93
    42
 other person.  No title to or ownership of the software is
ca@93
    43
 hereby transferred.
ca@93
    44
"
ca@93
    45
ca@182
    46
ca@93
    47
!
ca@93
    48
ca@93
    49
documentation
ca@93
    50
"
ca@93
    51
    implements a selection panel, keeping widgets which could be placed
ca@93
    52
    into the UIPainter by drag & drop.
ca@93
    53
ca@182
    54
    [start with:]
tm@987
    55
        UISelectionPanel open
ca@182
    56
ca@93
    57
    [author:]
tm@987
    58
        Claus Gittinger
tm@987
    59
        Claus Atzkern
ca@93
    60
ca@93
    61
    [see also:]
tm@987
    62
        TabView
tm@987
    63
        NoteBookView
tm@987
    64
        UIGalleryView
tm@987
    65
        UIPainter
ca@104
    66
ca@93
    67
"
ca@93
    68
ca@93
    69
! !
ca@93
    70
ca@207
    71
!UISelectionPanel class methodsFor:'initialization'!
ca@207
    72
ca@207
    73
initialize
cg@387
    74
    UserClass  := UISelectionPanel::UserDefinedGallery.
ca@207
    75
    UserSpecs  := #listOfSelectors.
ca@207
    76
    UserLabels := #listOfLabels.
cg@387
    77
cg@387
    78
    "Modified: / 8.12.1997 / 18:53:06 / cg"
ca@207
    79
! !
ca@207
    80
ca@182
    81
!UISelectionPanel class methodsFor:'accessing'!
ca@93
    82
cg@387
    83
userClass
cg@387
    84
    "return the class which provides the user defined gallery specs."
cg@387
    85
cg@387
    86
    ^ UserClass
cg@387
    87
cg@387
    88
    "Created: / 5.12.1997 / 15:12:50 / cg"
cg@387
    89
!
cg@387
    90
cg@387
    91
userClass:aClass specSelector:aSpecAccessSelector labelSelector:aLabelListAccessSelector
cg@387
    92
    "change the class which provides the user defined gallery specs."
cg@387
    93
cg@387
    94
    UserClass := aClass.
cg@387
    95
    UserSpecs := aSpecAccessSelector.
cg@387
    96
    UserLabels := aLabelListAccessSelector.
cg@387
    97
cg@387
    98
    "
cg@387
    99
     UISelectionPanel 
tm@987
   100
        userClass:UISelectionPanel::VariableUserDefinedGallery
tm@987
   101
        specSelector:#listOfSelectors
tm@987
   102
        labelSelector:#listOfLabels
cg@387
   103
    "
cg@387
   104
cg@387
   105
    "Modified: / 5.12.1997 / 13:54:47 / cg"
cg@387
   106
    "Created: / 5.12.1997 / 13:56:10 / cg"
ca@93
   107
! !
ca@93
   108
penk@1602
   109
!UISelectionPanel class methodsFor:'classAccess'!
penk@1602
   110
penk@1602
   111
galleryClass
penk@1602
   112
penk@1602
   113
    ^ UserDefinedGallery
penk@1602
   114
! !
penk@1602
   115
cg@2562
   116
!UISelectionPanel class methodsFor:'image specs'!
cg@2562
   117
cg@2562
   118
sketchImageIcon
cg@2566
   119
    ^ self sketchImageIcon2
cg@2566
   120
!
cg@2566
   121
cg@2566
   122
sketchImageIcon1
cg@2562
   123
    "This resource specification was automatically generated
cg@2562
   124
     by the ImageEditor of ST/X."
cg@3226
   125
cg@2562
   126
    "Do not manually edit this!! If it is corrupted,
cg@2562
   127
     the ImageEditor may not be able to read the specification."
cg@3226
   128
cg@2562
   129
    "
cg@3226
   130
     self sketchImageIcon1 inspect
cg@3226
   131
     ImageEditor openOnClass:self andSelector:#sketchImageIcon1
cg@3226
   132
     Icon flushCachedIcons
cg@3226
   133
    "
cg@3226
   134
cg@3226
   135
    <resource: #image>
cg@3226
   136
cg@3226
   137
    ^Icon
cg@3226
   138
        constantNamed:'UISelectionPanel sketchImageIcon1'
cg@3226
   139
        ifAbsentPut:[(Depth8Image new) width:62; height:48; bits:(ByteArray fromPackedString:'
cg@3226
   140
&RH"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H)$"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3226
   141
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3226
   142
@@@@@@@"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3226
   143
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@3226
   144
@@@@@@@@@@@@@@@"H @@@@@@(+Z6O*6-D1LSX6LSD1LSB*6-,[F1,[D>W%9^W&&"(*H[S4=OED*D!!H>O#5)Z]GQ4$9L@@@@@@BH"@@@@@@@>G(Z[&51;\%]W
cg@3226
   145
U5]2\%L-WH.K"8.[_W5=[V4^G& O)*Z;.;.]''Y6R"H"HMH6M#X59V @@@@@@H"H@@@@@@A9=&512U40HJR$)JP!!L@0L2 XD9NS$-KX.K_W5=-KRVC:YH.;,$
cg@3226
   146
''Y6R"H"HMCP4#Q%9@@@@@@@"H @@@@@@G)-\U:PH+:(QDQD]+:<)S@LCL(FANS$-WH.K&75=-KQ(C:Z&.;.]''YJR"H!!EMCRMFW$@@@@@@BH"@@@@@@ANWG.$
cg@3226
   147
+:)6YP0LQ7Z_GZ<)FD0C@3JA XD9WE2K&75=!!+RVC:YH.2R]''YJH"DT4MCPY^P@@@@@@H"H@@@@@@DI;U:<QYP@@@@@@@K!!,DQ6/JT0C@0L2 XESWGIW\''-\
cg@3226
   148
&;POC:YH.2R]$("HQSP4MA%9@@@@@@@"H @@@@@@&3Y *+ @@@@@@@@@@F),DQ4)JQ C@0L2 XDCSE]W\''-\_Q8OC4!!HII6]$(!!EMCP4#W$@@@@@@BH"@@@@
cg@3226
   149
@@A\U6B_@@@@@@@@@@@@LGY,GX()FA!!L@0L2 T1L\U]W^7-\G <O)$!!HC0>U^H 4MCRM^P@@@@@@H"H@@@@@@E23+6(@@@@@@@@@@@@@Z&0QGZ<)FD1L@0NA
cg@3226
   150
SD1LU5]2^9.4G >&R@<B@ >U$#P4MH59@@@@@@@"H @@@@@@WKN/.@@@@@@@@@@@@@AG])(]""$)FD0C@0L=@0M1U5]\_[P^C0=HR@HBC4"HMCP4#W$@@@@@
cg@3226
   151
@BH"@@@@@@A\,:>8@@@@@@@@@@@@@F)6&!!6JJR$XSD0C@0M2\%1\WI-=!!!!9(C:YH.59/$(!!EMCRM^P@@@@@@H"H@@@@@@E1WE''X@@@@@@@@@@@@@HV0QGX()
cg@3226
   152
JQ XS@LCOWI2WE2K&75=G!!8OC4";[96R"DT4MH59@@@@@@@"H @@@@@@&5] *&T@@@@@@@@@@D]6[AD]+2$)FD1LS@LC WI\WH.[_W4^G <ORD";''YJH"CP4
cg@3226
   153
#W$@@@@@@BH"@@@@@@B[^;N/''3@@@@@@@@@L]&0QGX()JQ XFD1L@0NA\%M\"9-=_Q8^C0=HRBR]''X"HMCPY^P@@@@@@H"H@@@@@@D9\U42*D[ 0@@@0Z''Y,
cg@3226
   154
DQ6J+2$)FA!!LS@LC@8E2WE1\&76[&9,^C:YH.6>]"H 4MA%9@@@@@@@"H @@@@@@G)-\U0"/DY=,[F1,DQD]"*<)JR$XSD1L@0L=\''ISWH.[_U1\WDHORD";
cg@3226
   155
[96H"CRMFW$@@@@@@BH"@@@@@@@^_Y-;U42/+14]GQ4]+:<)JR$XFD1LS@LC@352\%1\"9-=&9.[G >&RE:]''X"HMH4Y^P@@@@@@H"H@@@@@@@>4_U1;U:QL
cg@3226
   156
JR&/+2$)JR$XSD1LS@LC@0L=\''I2WE2K&76FG!!8OC4";W)6R"H 4#Q%9@@@@@@@"H @@@@@@C;R4_X-\\%\CSD1LSD1LSD1LS@LC@0LCOWI2\%1\"8.[_Q8^
cg@3226
   157
G >&RK-/''YJHQSPYFW$@@@@@@BH"@@@@@@B&Y;RF_Y-\WGJAOPLC@0LC@0LC@0LCOS52\''I\WE2K&75=G!!8OC:YHW&>]$(!!E#Q$Y^P@@@@@@H"H@J"(*@D O
cg@3226
   158
Y;Q-_Y.KWE12 XFAOS4COPL=OXFA\''I2WE1\"9-=_R0^G <ORD!!^''Y6R"CRMFQ%9@B(*J @"H @*J"(@RJXOY;R4_Y.K"51\WGI2\''I2\(FA\''I2\%1\WH.[
cg@3226
   159
&75=G!!8OC:YH.6>]''X"HMH4Y^W$@J"(*@BH"@B(*J"Z;)*XO%+Q-_W6["51\WE1S\''I2\''I2\%M\WE2K&9-=_Q8^G <O)$!!^[96R"DVM#Q%9^RX*J"(@H"H@
cg@3226
   160
J"(*I)DG&JF:.+*:(P8(NEH_R5YI]WI\WE1\WE1\"9.[_W4,X''0E#DMT-R<#SZV%)XAMH7N\I"(*J @"H @*J"(*BU%>A XFA''9PTEAPVSLR*Z&)(Q\<U&YA
cg@3226
   161
"9.[Z7^L ;^''):2,+C,1LSD1%IRT%CE:^''(*J"(*@BH"@A(ZF"(IQDA@(:N#(:N#(0XFA XFA XFTE@R*Y"QW[U.%1TUV8TA@PDA@PFP''):^''):^*J"(*B(Z
cg@3226
   162
F!!(@H"H@F!!(ZJ*T1%IRTB0-@PDA@PDB#(:N#(:N#A XFA''9PVU&,DB-!!XVF.+*:.J:B @PDA@PDA@YB^J!!(ZF @"H @ZF!!(*O1B(*A0\%IRT%IRT%IPKB4A@
cg@3226
   163
PDA@PJN#(:N#Q@YYO1T+CP5UQ&E!!XVE!!XZ:.+*8+(J@*F!!(Z@BH"@A(ZF"*''''):^''):^''*"(*J"(GA2T%IRT%IRT%@,KPDA@PDB#QC<UJ;B9CP4MCP4MCUUF
cg@3226
   164
XVE!!XR(ZF!!(@H"H@F!!(ZF)\A(@DA@PDA@PFP''):^''):^*J"(*J \GIRT%IRT%IRTB4B2V2^G!!5EQTUF0,K$MCP4MF!!(ZF @"H @ZF!!(ZEZ9!!XVF.+*:.J:B 
cg@3226
   165
@PDA@PDA@YB^''):^''):(*J"(*A0\%IP1N",%IPPD!!8^G!!8^GTUDZF!!(Z@BH"@A(ZF!!)?I04MCP5UQ&E!!XVE!!XZ:.+*8+(J@A@PDA@PDA$I:^''):^''*"(%CTD
cg@3226
   166
K"T%IRT%IRT%AA(ZF!!(@H"H@F!!(ZF%>0TUEQ,KB9CP4MCP4MCUUFXVE!!XVE!!+*:.+". (@DA@PDA@PFP''",%VE!!XVE 7M28.F!!(ZF @"H @ZF!!(ZMX\DAH^G
cg@3226
   167
!!8^G!!5EQTUF0,K$MCP4MCP4MUTY!!XVE!!XVF.+*:.J:B @TX  "@ HB@ HB@ZF!!(Z@BH"I*.+*1)0IR8%IRT%IRT%IPPD!!8^G!!8^GTUEQT[B0.P4MCP4MCP5U
cg@3226
   168
Q&E!!XVE!!++BI"X&I"X&IYA*+*:,&H"H**:.+F"\7HE!!XVE!!XM3\.K"T%IRT%IRT%A@RG!!8^G!!8]QTUEQ,KB9CP4MCP4MCRBN#(:N"X&IF*.+*2("H"*+*:.+
cg@3226
   169
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B+*:.+J"H"J*.+*:.+F!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(Z
cg@3226
   170
F!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(ZF!!(Z*:.+*:,*H"H**:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*2("
cg@3226
   171
H"*+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+*:.+J"H"@B(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*
cg@3226
   172
J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(*J"(@H)$"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"
cg@3226
   173
H"H"H"JY') ; colorMapFromArray:#[255 255 255 160 208 95 96 160 224 143 207 255 127 176 63 143 192 207 208 240 128 208 239 176 159 207 255 223 240 160 95 175 223 192 224 111 239 240 255 143 192 64 223 240 176 95 160 224 176 223 111 176 223 255 224 255 144 96 175 223 48 143 208 176 223 127 160 207 240 208 239 191 144 208 255 48 127 208 240 240 240 63 144 208 176 224 111 175 223 255 96 175 224 191 224 207 96 175 47 207 239 255 191 207 208 192 224 160 79 144 224 112 176 48 255 240 255 143 192 80 208 240 176 159 208 255 240 240 255 159 207 95 111 175 224 127 191 255 111 176 48 191 224 160 240 255 255 191 224 127 128 207 255 223 255 144 48 128 223 159 207 96 143 191 240 111 175 48 207 239 191 127 192 255 191 223 127 191 224 128 192 224 207 143 192 255 80 159 223 207 239 143 192 239 127 128 192 224 112 176 224 160 207 176 207 239 128 63 128 223 144 192 80 223 240 255 80 159 224 159 208 223 48 143 207 176 223 208 144 207 255 207 239 160 111 176 224 63 143 208 223 240 143 128 191 63 192 239 191 127 192 240 175 208 175 144 192 64 175 223 208 143 192 240 111 175 47 223 240 144 47 127 207 175 223 111 127 191 240 191 224 176 79 159 223 160 208 96 159 207 240 144 207 80 112 176 223 111 175 223 95 160 47 224 240 255 159 207 223 95 160 240 95 175 224 64 159 208 208 239 255 127 191 224 191 224 255 96 176 240 176 223 143 79 144 223 144 207 95 143 207 240 128 192 240 191 223 175 32 127 207 144 207 224 192 224 255 143 192 208 80 144 223 47 127 208 192 224 127 128 191 240 127 191 208 111 176 240 208 240 143 175 208 111 208 239 160 128 192 255 96 160 47 160 208 175 48 128 207 175 208 96 111 175 240 127 191 63 63 143 223 95 160 31 160 223 255 112 191 240 144 207 191 48 128 208 80 160 31 47 128 207 175 208 95 207 239 176 64 143 223 32 112 191 191 224 111 95 159 224 95 175 240 191 223 128 223 240 175 208 223 224 176 224 255 112 176 240 176 208 175 64 144 223 175 223 96 191 223 255 159 208 95 224 240 175 64 144 208 207 239 127 144 207 240 208 239 144 80 160 224 192 224 143 176 223 96 224 255 160 175 208 255 239 239 240 192 224 128 95 160 223 159 207 80 160 208 255 128 191 64 80 160 223 192 239 128 144 192 240 96 175 240 176 223 175 79 159 208 176 223 144 223 239 255 128 192 64 224 255 175 79 159 224]; mask:((ImageMask new) width:62; height:48; bits:(ByteArray fromPackedString:'
cg@2562
   174
??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O??
cg@2562
   175
???????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3?????
cg@2562
   176
?????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<????????
cg@2562
   177
??3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<??????????3??????????O?????????<
cg@3226
   178
??????????3??????????O?????????<') ; yourself); yourself]
cg@2566
   179
!
cg@2566
   180
cg@2566
   181
sketchImageIcon2
sv@3115
   182
    <resource: #image>
cg@2566
   183
    "This resource specification was automatically generated
cg@2566
   184
     by the ImageEditor of ST/X."
cg@2566
   185
    "Do not manually edit this!! If it is corrupted,
cg@2566
   186
     the ImageEditor may not be able to read the specification."
cg@2566
   187
    "
cg@2566
   188
     self sketchImageIcon2 inspect
cg@2566
   189
     ImageEditor openOnClass:self andSelector:#sketchImageIcon2
sv@3115
   190
     Icon flushCachedIcons"
sv@3115
   191
    
sv@3115
   192
    ^ Icon constantNamed:'UISelectionPanel class sketchImageIcon2'
sv@3115
   193
        ifAbsentPut:[
sv@3115
   194
            (Depth8Image new)
sv@3115
   195
                width:96;
sv@3115
   196
                height:78;
sv@3115
   197
                photometric:(#palette);
sv@3115
   198
                bitsPerSample:(#[ 8 ]);
sv@3115
   199
                samplesPerPixel:(1);
sv@3115
   200
                bits:(ByteArray 
sv@3115
   201
                            fromPackedString:'
cg@2566
   202
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@
cg@2566
   203
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@
cg@2566
   204
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
cg@2566
   205
&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\''
cg@2566
   206
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\''
cg@2566
   207
I2\''I2\''I2\''I2\''I2\''I2\''\GA0\G@?O3<?NPA@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''
cg@2566
   208
I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2]0\GA0O3<?O3<=NVM@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''
cg@2566
   209
I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''\GA0\G@?O3<?OS4=NVM@P@\=I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''
cg@2566
   210
I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2\''I2]0\GA0O3<?O3<=OS4=NVM@P@\=I2\''I5]OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=O
cg@2566
   211
S4=OS4=!!XVE!!XVE!!XVE!!XVE!!XVE!!XVE!!XVE%XVE!!XVE!!YT9NS$9NNS$9NS%NS%T=OS4=NVM@P@\=I2\''I6YGQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]G
cg@2566
   212
Q4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]DQB</KB0,E84_G22$EB0,KB2$R9VU+9V/B"TJ+3N,R6D=OS4=NVM@P@\=I2\''I6YGQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]G
cg@2566
   213
Q4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQDP/K20,KB19%YV,+6I6#R0WX$.,+IV/+0(J%RTJ+D-"X&D=OS4=NVM@P@\=I2\''I6YGQ4]GQ4]GQ4]GQ4]GQ4]G
cg@2566
   214
Q4]GQ4]GQ4]GQ4]GQ4\[F1-GQ4]GQ4]GQ4]GK2</E1^PKI@_R6IKR6IK+:=6#ZRMB *U+J2U+@*,+J1"X&I"X&D=OS4=NVM@P@\=I2\''I6X[F1,[F1,[F1,[
cg@2566
   215
F1,[F1,[F1,[F1,[F1,[F1,[K2</K2</K1,[F1,[K2</K1^P^W4_X*2U+62/+D.,+0*,#VJU+IVU]&IK+D.MX(6M#VI"X&D=OS4=NVM@P@\=I2\''I6X/K2</
cg@2566
   216
K2</K2</K2</K2</K2</K2</K2</K2</K2</K0LCK2</K2</K2<CE9A=G1=R+9VU%Z03%Z<JIP(JR3^U])U")JQ"+FJM#X6M#VI"X&T=OS4=NVM@P@\=I2\''
cg@2566
   217
I6X/K2</K2</K2</K2</K2</K2</K2</K2</K2</K2<C@0LCK0L/K2</K0LW$G%)T*>/+:>UR4.,%P*/B"V/+J1KX*2M)JRMX(5"#X6MX&IK+D8=OS4=NVM@
cg@2566
   218
P@\=I2\''I6X/K2</K2</K2</K2</K2</K2</K2</K2</K0LC@0LC@1\W@0LC@0LC@0LCE7%)+9VU+D-KX&IK+IVUB"TJ+A="R4-"R6J$)G%"X&I"X!!=KR6T=
cg@2566
   219
OS4=NVM@P@\=I2\''I6XC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LCE1\WE0LC@0LC@1\WE7$_+J1KG6I"X*2/+J0JIP*/+FI"+H6MX''&$)G&MR4-K
cg@2566
   220
G6H_X&D=OS4=NVM@P@\=I2\''I8DC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LCE1\W$IBP$A\WE1\WE9BP$G4_G6I"X&I"X*2/+J<JIS^/+FIK%T-"#W&$
cg@2566
   221
^W%K+EJ,R6I"X&D=OS4=NVM@P@\=I2\''I4<WE1\WE1\WE1\WE1\WE1\WE1\WE1\WE1\WE1\W$IBP$IBP$IBP$IBP$IA9^Q=KX&I"X&I"G9VU+J>/B*>UR:2U
cg@2566
   222
%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
cg@2566
   223
+:>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
cg@2566
   224
+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
cg@2566
   225
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
cg@2566
   226
^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=
cg@2566
   227
_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<_
cg@2566
   228
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
cg@2566
   229
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
cg@2566
   230
%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,
cg@2566
   231
+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/+:>/
cg@2566
   232
+:>U+5J,+J2,+J1RT)V/+:>/[F1,[F1,[J>UT%IR%UJ,+J1)G1<_R4-KR4-KR:2,+J<JIP),[J<J+61,+2U,+60%IRT%[J>U+J2,+FT=OS4=NVM@P@\=I2\''
cg@2566
   233
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@
cg@2566
   234
P@\=I2\''I2JUT)VU%Z2,+J2,+J1R%YVU%YV/+:>/+:>/+:>/%YURT%J,+EJU%YVUT%IR+J2,+J2,+J2,%YVU+9VU+:<J+9VU+0(%IRT%+60%[J<JIRV/+FT=
cg@2566
   235
OS4=NVM@P@\=I2\''I2JU%YVU%Z2,+J2U%YVU%YVU%YVU%YV/[J>/%YVU%YV,+J2,+EJU%YVU%YVU+:>UL:2,B */%YVU%YVU%YU,%YVU+0(JB (J+0),+:>/
cg@2566
   236
+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 */+:>/
cg@2566
   237
%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/
cg@2566
   238
+:>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
cg@2566
   239
%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 */+:>/+:>/
cg@2566
   240
%YVU%YVU%Z>/+:>/+:>/+:>/+:>/+:>/[@(JIT8=OS4!!T6M@P@\=I2\''I1V.+*9*+*:.+&)*_''9>_%@8VZ>/%YVU%YVU%YVU%YVU%YVU%YVU%YVU+:<JB */
cg@2566
   241
+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:>/+:=,B (%B$8=ORD!!T6M@P@\=I2\''I1U''Z*:.+*:._&)*_''9>_''9PCHZ/M9VU%YVU%YVU%YVU%YVU%YVU%Z>/
cg@2566
   242
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
cg@2566
   243
+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
cg@2566
   244
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
cg@2566
   245
[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;
cg@2566
   246
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^+
cg@2566
   247
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^'':]''
cg@2566
   248
H:-L(JB (I:^'')>8.W]>IBR._*8IBZ:.BRR2\ (JB (JB */+:<JB*>/+J2U+3\7+:>/+0(JB (JB (JB (JB (JB (JB (JB"T%IT8!!HRD!!T6M@P@\=I2\''
cg@2566
   249
I8VG(JF!!''): (JB (JB ''):_'';!!7]7:.+*:.BRR.+ $IBU<JB (JB%JQG1<_T!!>QZW(_+F%:Y''*:.+)RB (JB (JB (JB (JB (JB (JIRT%IT8!!HRD!!T6M@
cg@2566
   250
P@\=I2\''I8VI!!8^!!(I:^!!8^G(JB (I:!!''9>9.[&N+*:.+*:.+*8$+ %3B (JT''6Q$YFQ$YFQ$W*Q+G*:.+(2(:N#S4<HB (JB (JB (JB (%IRT%IRT%IT8!!
cg@2566
   251
HRD!!A6M@P@\=I2\''I8VI!!4"!!(ZV!!(X^G!!8^G(JB ''):_#+&9.W:.Z&*.+*9*+*8$P4):$YF:.+*:$YFQ$YFQ$YF:.+*#(:N#(:N#S0(%IRT%IRT%IRT%IRT%
cg@2566
   252
IRT%IS$!!HRD!!A6M@P@\=I2\''I8VI"X&!!)ZV")ZV!!!!8^G!!8^G(JB )X:9.[$4_&*.+*:.Z*9>_!!0DMCR9.[&KAF>:$YFQ$YFQ.+*#(:N#(:N#(3H:[BT%IRT%
cg@2566
   253
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#
cg@2566
   254
(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
cg@2566
   255
BSX\.PR2\ZN#(:N:[BT%IRT%IRT%IS$!!HRD<A6M@P@\=I2\''I8VL#H2I"X&I"X&I"X&I"X^G!!8&G!!8^J"*VJ(T"!!RJVN(%:'')ZJ9W+&9W%9^#(:".[&N.[&9
cg@2566
   256
LA29.[%[.[$+AC@0LCX>WE11WFD?I2\''I2\''I3$!!HS0<A6M@P@\=I2\''I8VL#H&L#H2I"X&I"X&I"X&I"X&I"X^J"*V%)ZV%RJV''(*J%)ZJ"#%9^W%9^#(:"
cg@2566
   257
((:"(*J"(%8DW%:9W+&NW#B9#+&9AC@0AA0\G$FROS<?O48<OC0<A6M@P@\=I2\''I8VL#H2I"X2I"X&I"X&I"X&I"X&I"Q!! "&A;RT&%)ZV%)ZV%(*J%($&"
cg@2566
   258
)ZJ'')5:"(*J")ZV%)ZI^YE:N.U9^V5:9#+%^A@PDV0P0.U,1LSYXQT4<OC0<A6M@P@\=I2\''I8VL#H2L"X&I"X&I"X&I"X&I"X&I"X&IXGQ ]FB%^:U4XH*%
cg@2566
   259
)ZV"RT%IRT&''RT&''RZJ%)T"%)ZV%(%:"#*I^#(9^W%9^W%8YA@PDA@P1A@PDMQT<OC09A6M@P@\=I2\''I8VL#H&I"X&I"X&I"X&I"X&I"X$XFH&IFA X"&A 
cg@2566
   260
XFB%XFA ^:V%)ZV%)ZUIRZJ"RZV")Q4]GQ4])ZJ")ZJ%(*J''YH9^AE9^W&Q^W%8YAA%[A@<<OC$9A6M@P@\=I2\''I56-+Z6-+Z6-+Z6-+Z6-+P,K%)ZV%+B0
cg@2566
   261
,KB0,KB0,KB0,KB1 HB@ I*Z&)*Z&)*Z&)&Y 8L(JI.[&9,PD5!!XVE!!XV%)ZP$H-KR4-J$Y_Q%=_@PT9NS$9A6M@P@\=I2\''I54K%)ZV%)ZV%)ZV%)ZB%(JB
cg@2566
   262
,[F1,[FB,[F1,XB@ KF@ HBZ&)*@&)*Z!!HRD-8RD!!B (J[\)JQLSD5 SVE!!BD$IBP$I\Q$Y_W4Y_XVU%YVU%R \9NS$9A6M@P@\=I2\''\B6B (JB (JB,XJB
cg@2566
   263
,[F1 HB@ HB@ HB@&(BZ HBD HRZ!!KRD!!HRD!!K^DJR )JR$)JR%XVE RD%!!.D!!HRD!!IBQ%2&)%=_Q%=_XVU%YT9NR$9NS \9NS$9A6M@P@\=I2]0\E6B (JB
cg@2566
   264
 (JB,[FB,XB1 HB1 HB@ HBZ!!HBD!!AFDDQDQDQD)I"$QDQD)JR$)C"$R''R&]''Y4RD%1\D*Y\QTV&W6F&)%>&)%>***Y!!XVE%YVE!!S \9NS$9A6M@P@\=\GA0
cg@2566
   265
\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@
cg@2566
   266
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
cg@2566
   267
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!!
cg@2566
   268
YVUNA T9NS$9A6M@P@\=\C<?O7"B (JBU%QT (ITUF"BZF"BZEQ-,;N3,1F3I!!DQDQDQDQD)I"$)JR$QI"$RJQLRJR$RJQH.D":&D1I\K"8RK":O#:Z&SU=_
cg@2566
   269
P*Z*W4:*W5<FR T9NS$9A6M@P@\=O3<?O7"B %QT &!!(ZEQ(UEQTUF5+[[LQDQF3,;N3DQDQDRXQDR$)JR$QJR$)DQD)DQD)DQD&DQH)JR$)JQHRD8=\WJZ&
cg@2566
   270
W52&WD5\) Z&A&F*W:Z&W:(9NS$9A6M@P@\=O3<=OR5TUEQTUEQTUEQT[V5+[V5+[[V3,1DQ,;LQI!!F3JQD&DQDQDQD&JQL)DR$)JRX)JR$)JQJOWAH.D!!J&
cg@2566
   271
K"9_WD5%W5>&)*Y\)*ZOWB8.YVV&R T9NS$9A6M@P@\=O34=OR5--UQTUEQTUEQ-[V63,;N3,;N3DQDQJQDQDQD&DQDQDQD&I!!DQJQDQJRX)JQD&JR8)I"$)
cg@2566
   272
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
cg@2566
   273
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$)
cg@2566
   274
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&
cg@2566
   275
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
cg@2566
   276
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
cg@2566
   277
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=
cg@2566
   278
OS4=OS4=OS4=OS4=OS4=HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!OC0<OC0<NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4=OS4=OS4=OS4=OS4=
cg@2566
   279
OS4=OS4=OS4=OS4=OS4=OS4=OS4!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HS0<OC0<OC09NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4=OS4=OS4=
cg@2566
   280
OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!OC0<OC0<NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A6M@P@\=OS4=
cg@2566
   281
OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4=OS4!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HS0<OC0<OC$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9A0A@
cg@2566
   282
PC$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NS$9NUMST5MST5MST5MST5MST0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\G
cg@2566
   283
A0\GA0A@PBDG@FM#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#X6M#
cg@2566
   284
X6M#X6M#X6L@_@]@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@
sv@3115
   285
PDA@PDA@PDA@PDA@PDA@PDA@');
sv@3115
   286
                colorMapFromArray:#[ 176 176 180 176 208 210 192 192 190 96 160 255 96 160 130 192 208 210 176 192 220 208 208 210 192 224 240 112 160 140 224 255 255 48 80 130 144 176 140 128 176 160 96 160 180 144 176 160 112 144 160 80 128 180 112 160 190 112 144 180 96 192 255 160 176 180 160 208 220 96 176 255 48 80 80 80 160 130 160 192 220 80 144 255 112 176 130 64 96 100 128 192 140 160 208 255 96 128 110 240 240 220 208 224 240 80 112 130 112 144 140 240 255 255 80 144 180 255 255 255 96 128 160 96 144 180 144 192 190 80 160 100 80 176 255 144 176 190 128 160 190 80 160 255 96 160 110 96 176 130 144 176 220 176 240 255 96 144 110 96 176 140 112 176 140 208 255 255 128 176 130 224 224 220 192 208 240 112 144 130 240 224 220 240 240 240 112 176 180 240 240 255 0 0 0 160 208 180 128 176 190 144 176 180 64 160 255 112 160 210 144 192 210 64 144 255 64 96 80 64 128 110 192 224 220 160 224 255 80 112 100 160 176 210 208 224 220 176 208 240 112 160 130 224 240 220 192 224 255 224 208 210 48 112 160 224 224 240 48 96 160 224 224 255 112 160 180 160 208 190 128 160 180 80 160 110 128 176 210 144 160 180 80 144 110 160 192 210 48 96 100 176 208 220 144 208 255 176 160 180 80 144 130 192 208 220 160 192 240 80 128 130 48 112 140 176 208 255 96 128 130 64 128 160 224 240 255 64 112 160 112 176 190 128 176 180 255 240 255 112 176 210 160 192 190 160 208 210 48 112 100 176 192 190 144 224 255 96 144 100 144 160 190 128 192 255 160 208 240 64 112 110 192 176 180 144 192 255 96 144 130 192 192 210 64 112 140 176 192 240 48 96 140 96 128 140 80 128 160 144 160 140 144 192 180 48 96 60 96 144 190 48 80 60 48 96 80 96 160 100 48 64 60 128 208 255 80 128 100 128 160 210 112 176 255 144 192 240 208 224 210 32 112 140 128 176 255 192 240 255 48 96 130 128 176 140 208 192 210 80 128 140 80 112 140 96 144 160 48 112 180 96 160 190 64 112 60 64 128 80 64 96 60 64 112 80 64 128 100 128 176 220 112 192 255 64 112 100 144 176 210 80 128 110 192 240 240 112 160 110 176 192 210 80 112 110 176 224 255 48 80 110 96 144 140 208 240 255 64 96 130 64 96 140 112 160 160 64 128 180 80 112 160 64 112 180 160 176 160 96 128 180 80 128 80 80 144 100 144 192 220 ];
sv@3115
   287
                mask:((ImageMask new)
sv@3115
   288
                            width:96;
sv@3115
   289
                            height:78;
sv@3115
   290
                            bits:(ByteArray 
sv@3115
   291
                                        fromPackedString:'
cg@2566
   292
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_???????
cg@2566
   293
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>
cg@2566
   294
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_???????
cg@2566
   295
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>
cg@2566
   296
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_???????
cg@2566
   297
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>
cg@2566
   298
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_???????
cg@2566
   299
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>
cg@2566
   300
_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_???????
cg@2566
   301
???????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>_??????????????>
sv@3115
   302
_??????????????>_??????????????>@@@@@@@@@@@@@@@@');
sv@3115
   303
                            yourself);
sv@3115
   304
                yourself
sv@3115
   305
        ]
cg@2562
   306
! !
cg@2562
   307
cg@2566
   308
!UISelectionPanel class methodsFor:'interface specs'!
cg@2566
   309
cg@2566
   310
nameAndSelectorSpec
cg@2566
   311
    "This resource specification was automatically generated
cg@2566
   312
     by the UIPainter of ST/X."
cg@2566
   313
cg@2566
   314
    "Do not manually edit this!! If it is corrupted,
cg@2566
   315
     the UIPainter may not be able to read the specification."
cg@2566
   316
cg@2566
   317
    "
cg@2566
   318
     UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec
cg@2566
   319
     UISelectionPanel new openInterface:#nameAndSelectorSpec
cg@2566
   320
    "
cg@2566
   321
cg@2566
   322
    <resource: #canvas>
cg@2566
   323
cg@2566
   324
    ^ 
cg@2566
   325
     #(FullSpec
cg@2566
   326
        name: nameAndSelectorSpec
cg@2566
   327
        window: 
cg@2566
   328
       (WindowSpec
cg@2566
   329
          label: 'Painter'
cg@2566
   330
          name: 'Painter'
cg@2566
   331
          min: (Point 10 10)
cg@2566
   332
          bounds: (Rectangle 14 46 329 262)
cg@2566
   333
        )
cg@2566
   334
        component: 
cg@2566
   335
       (SpecCollection
cg@2566
   336
          collection: (
cg@2566
   337
           (LabelSpec
cg@2566
   338
              label: 'Class & selectors to access user specs:'
cg@2566
   339
              name: 'title'
cg@2566
   340
              layout: (Point 5 10)
cg@2566
   341
              resizeForLabel: true
cg@2566
   342
              adjust: left
cg@2566
   343
            )
cg@2566
   344
           (LabelSpec
cg@2566
   345
              label: 'Class:'
cg@2566
   346
              name: 'classLabel'
cg@2566
   347
              layout: (AlignmentOrigin 68 0.11 51 0 1 0.5)
cg@2566
   348
              resizeForLabel: true
cg@2566
   349
              adjust: right
cg@2566
   350
            )
cg@2566
   351
           (InputFieldSpec
cg@2566
   352
              name: 'classField'
cg@2566
   353
              layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
cg@2566
   354
              tabable: true
cg@2566
   355
              model: className
cg@2566
   356
              type: string
cg@2566
   357
              acceptOnPointerLeave: false
cg@2566
   358
            )
cg@2566
   359
           (LabelSpec
cg@2566
   360
              label: 'Labels:'
cg@2566
   361
              name: 'labelsLabel'
cg@2566
   362
              layout: (AlignmentOrigin 68 0.11 74 0 1 0.5)
cg@2566
   363
              resizeForLabel: true
cg@2566
   364
              adjust: right
cg@2566
   365
            )
cg@2566
   366
           (InputFieldSpec
cg@2566
   367
              name: 'labelsField'
cg@2566
   368
              layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
cg@2566
   369
              tabable: true
cg@2566
   370
              model: labelsKey
cg@2566
   371
              type: symbolOrNil
cg@2566
   372
              acceptOnPointerLeave: false
cg@2566
   373
            )
cg@2566
   374
           (LabelSpec
cg@2566
   375
              label: 'Specifications:'
cg@2566
   376
              name: 'specsLabel'
cg@2566
   377
              layout: (AlignmentOrigin 68 0.11 99 0 1 0.5)
cg@2566
   378
              resizeForLabel: true
cg@2566
   379
              adjust: right
cg@2566
   380
            )
cg@2566
   381
           (InputFieldSpec
cg@2566
   382
              name: 'specsField'
cg@2566
   383
              layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
cg@2566
   384
              tabable: true
cg@2566
   385
              model: specsKey
cg@2566
   386
              type: symbolOrNil
cg@2566
   387
              acceptOnPointerLeave: false
cg@2566
   388
            )
cg@2566
   389
           (HorizontalPanelViewSpec
cg@2566
   390
              name: 'commitPanel'
cg@2566
   391
              layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
cg@2566
   392
              horizontalLayout: fitSpace
cg@2566
   393
              verticalLayout: fit
cg@2566
   394
              horizontalSpace: 3
cg@2566
   395
              verticalSpace: 3
cg@2566
   396
              reverseOrderIfOKAtLeft: true
cg@2566
   397
              component: 
cg@2566
   398
             (SpecCollection
cg@2566
   399
                collection: (
cg@2566
   400
                 (ActionButtonSpec
cg@2566
   401
                    label: 'cancel'
cg@2566
   402
                    name: 'cancel'
cg@2566
   403
                    tabable: true
cg@2566
   404
                    model: cancel
cg@2566
   405
                    extent: (Point 153 23)
cg@2566
   406
                  )
cg@2566
   407
                 (ActionButtonSpec
cg@2566
   408
                    label: 'ok'
cg@2566
   409
                    name: 'accept'
cg@2566
   410
                    tabable: true
cg@2566
   411
                    model: accept
cg@2566
   412
                    isDefault: true
cg@2566
   413
                    extent: (Point 153 23)
cg@2566
   414
                  )
cg@2566
   415
                 )
cg@2566
   416
               
cg@2566
   417
              )
cg@2566
   418
            )
cg@2566
   419
           (CheckBoxSpec
cg@2566
   420
              label: 'Update Default Resources'
cg@2566
   421
              name: 'updateDefaultResources'
cg@2566
   422
              layout: (Point 5 133)
cg@2566
   423
              model: updateDefaultResources
cg@2566
   424
            )
cg@2566
   425
           )
cg@2566
   426
         
cg@2566
   427
        )
cg@2566
   428
      )
cg@2566
   429
!
cg@2566
   430
cg@2566
   431
windowSpec
cg@2566
   432
    "This resource specification was automatically generated
cg@2566
   433
     by the UIPainter of ST/X."
cg@2566
   434
cg@2566
   435
    "Do not manually edit this!! If it is corrupted,
cg@2566
   436
     the UIPainter may not be able to read the specification."
cg@2566
   437
cg@2566
   438
    "
cg@2566
   439
     UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec
cg@2566
   440
     UISelectionPanel new openInterface:#windowSpec
cg@2566
   441
     UISelectionPanel open
cg@2566
   442
    "
cg@2566
   443
cg@2566
   444
    <resource: #canvas>
cg@2566
   445
cg@2566
   446
    ^ 
cg@2566
   447
     #(FullSpec
cg@2566
   448
        name: windowSpec
cg@2566
   449
        window: 
cg@2566
   450
       (WindowSpec
cg@2566
   451
          label: 'Widget Gallery'
cg@2566
   452
          name: 'Widget Gallery'
cg@2566
   453
          min: (Point 100 280)
cg@2566
   454
          bounds: (Rectangle 14 46 508 348)
cg@2566
   455
        )
cg@2566
   456
        component: 
cg@2566
   457
       (SpecCollection
cg@2566
   458
          collection: (
cg@2566
   459
           (NoteBookViewSpec
cg@2566
   460
              name: 'NoteBook1'
cg@2566
   461
              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
cg@2566
   462
              model: majorChannel
cg@2566
   463
              menu: majorList
cg@2566
   464
              direction: right
cg@2566
   465
              useIndex: true
cg@2566
   466
              canvas: gallery
cg@2566
   467
            )
cg@2566
   468
           )
cg@2566
   469
         
cg@2566
   470
        )
cg@2566
   471
      )
cg@2566
   472
! !
cg@2566
   473
cg@2566
   474
!UISelectionPanel class methodsFor:'interface specs-standard gallery'!
ca@182
   475
cg@2486
   476
specifications
cg@2486
   477
cg@2486
   478
    ^ #(
cg@2486
   479
        #( 'Standard'  #( 
cg@2486
   480
                            #('Buttons' standardButtons)
cg@2486
   481
                            #('Menus'   standardMenus)
cg@2486
   482
                            #('Text'    standardTexts)
cg@2486
   483
                            #('Lists'   standardLists)
cg@2486
   484
                            #('Trees'   standardTrees)
cg@2486
   485
                            #('Groups'  standardGroups)
cg@2486
   486
                            #('Embed'       standardEmbed)
cg@2506
   487
                            #('Geometric'   standardMorphs1)
cg@2486
   488
                            #('Misc'    standardMisc)
cg@2486
   489
                         )
cg@2486
   490
         )
cg@2486
   491
cg@2486
   492
        #( 'Clipboard'  #(
cg@2486
   493
                            #('Copy & Paste Buffer'     clipBoardSpec)
cg@2486
   494
                          )
cg@2486
   495
         )
cg@2486
   496
cg@2486
   497
        #( 'User Def.'   #userDefined )
cg@2486
   498
     )
cg@2486
   499
cg@2486
   500
    "Modified: / 21.4.1998 / 12:04:22 / cg"
cg@2486
   501
!
cg@2486
   502
tz@677
   503
standardButtons
tz@753
   504
    "This resource specification was automatically generated
tz@753
   505
     by the UIPainter of ST/X."
ca@182
   506
tz@753
   507
    "Do not manually edit this!! If it is corrupted,
tz@753
   508
     the UIPainter may not be able to read the specification."
ca@182
   509
ca@182
   510
    "
tz@677
   511
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardButtons
tz@677
   512
     UISelectionPanel new openInterface:#standardButtons
ca@93
   513
    "
ca@93
   514
ca@93
   515
    <resource: #canvas>
ca@93
   516
cg@1142
   517
    ^ 
cg@3059
   518
    #(FullSpec
cg@3059
   519
       name: standardButtons
cg@3059
   520
       window: 
cg@3059
   521
      (WindowSpec
cg@3059
   522
         label: 'Buttons'
cg@3059
   523
         name: 'Buttons'
cg@3059
   524
         min: (Point 10 10)
cg@3128
   525
         bounds: (Rectangle 0 0 477 241)
cg@3059
   526
       )
cg@3059
   527
       component: 
cg@3059
   528
      (SpecCollection
cg@3059
   529
         collection: (
cg@3059
   530
          (ActionButtonSpec
cg@3059
   531
             label: 'Button'
cg@3059
   532
             name: 'Button'
cg@3059
   533
             layout: (LayoutFrame 2 0 1 0 127 0 23 0)
cg@1142
   534
           )
cg@3059
   535
          (ActionButtonSpec
cg@3059
   536
             label: 'OK'
cg@3059
   537
             name: 'Button - OK'
cg@3059
   538
             layout: (LayoutFrame 2 0 33 0 127 0 55 0)
cg@3059
   539
             translateLabel: true
cg@3128
   540
             model: accept
cg@3059
   541
           )
cg@3059
   542
          (ActionButtonSpec
cg@3059
   543
             label: 'Cancel'
cg@3059
   544
             name: 'Button - Cancel'
cg@3059
   545
             layout: (LayoutFrame 2 0 65 0 127 0 87 0)
cg@3059
   546
             translateLabel: true
cg@3128
   547
             model: cancel
cg@3059
   548
           )
cg@3059
   549
          (ActionButtonSpec
cg@3059
   550
             label: 'Help'
cg@3059
   551
             name: 'Button - Help'
cg@3059
   552
             layout: (LayoutFrame 2 0 97 0 127 0 119 0)
cg@3059
   553
             translateLabel: true
cg@3059
   554
             model: help
cg@3059
   555
           )
cg@3059
   556
          (ActionButtonSpec
cg@3059
   557
             label: 'Close'
cg@3059
   558
             name: 'Button - Close'
cg@3059
   559
             layout: (LayoutFrame 2 0 129 0 127 0 151 0)
cg@3059
   560
             translateLabel: true
cg@3059
   561
             model: closeRequest
cg@3059
   562
           )
cg@3059
   563
          (ToggleSpec
cg@3059
   564
             label: 'Toggle'
cg@3059
   565
             name: 'Toggle'
cg@3059
   566
             layout: (LayoutFrame 144 0 1 0 280 0 23 0)
cg@3059
   567
             isTriggerOnDown: true
cg@3059
   568
             lampColor: (Color 100.0 100.0 0.0)
cg@3059
   569
           )
cg@3059
   570
          (RadioButtonSpec
cg@3059
   571
             label: 'Radio Button'
cg@3059
   572
             name: 'Radio Button'
cg@3059
   573
             layout: (LayoutFrame 144 0.0 33 0 280 0 55 0)
cg@3059
   574
             isTriggerOnDown: true
cg@3059
   575
           )
cg@3059
   576
          (CheckBoxSpec
cg@3059
   577
             label: 'Check Box'
cg@3059
   578
             name: 'Check Box'
cg@3059
   579
             layout: (LayoutFrame 142 0 65 0 278 0 87 0)
cg@3059
   580
           )
cg@3059
   581
          (CheckToggleSpec
cg@3059
   582
             name: 'Check Toggle'
cg@3059
   583
             layout: (LayoutOrigin 146 0 99 0)
cg@3059
   584
             isTriggerOnDown: true
cg@3059
   585
             showLamp: false
cg@3059
   586
             lampColor: (Color 100.0 100.0 0.0)
cg@3059
   587
           )
cg@3059
   588
          (LabelSpec
cg@3059
   589
             label: 'Check Toggle'
cg@3059
   590
             name: 'CheckToggleLabel'
cg@3059
   591
             layout: (AlignmentOrigin 166 0 98 0 0 0)
cg@3059
   592
             resizeForLabel: true
cg@3059
   593
             adjust: left
cg@3059
   594
             canUIDrag: false
cg@3059
   595
           )
cg@3059
   596
          (TriggerBoxSpec
cg@3059
   597
             label: 'Trigger Box'
cg@3059
   598
             name: 'TriggerBox1'
cg@3059
   599
             layout: (LayoutFrame 142 0 129 0 278 0 151 0)
cg@3059
   600
           )
cg@3059
   601
          (ButtonSpec
cg@3059
   602
             label: 'Model Button'
cg@3059
   603
             name: 'Model Button'
cg@3059
   604
             layout: (LayoutFrame 296 0 1 0 432 0 23 0)
cg@3059
   605
           )
cg@3059
   606
          (LabelSpec
cg@3059
   607
             label: 'Spin Button'
cg@3059
   608
             name: 'UpDownButtonLabel'
cg@3059
   609
             layout: (AlignmentOrigin 348 0 35 0 0 0)
cg@3059
   610
             resizeForLabel: true
cg@3059
   611
             adjust: left
cg@3059
   612
             canUIDrag: false
cg@3059
   613
           )
cg@3059
   614
          (UpDownButtonSpec
cg@3059
   615
             name: 'UpDown Button'
cg@3059
   616
             layout: (LayoutFrame 296 0 33 0 341 0 55 0)
cg@3059
   617
             orientation: horizontal
cg@3059
   618
           )
cg@3059
   619
          (LabelSpec
cg@3059
   620
             label: 'Arrow Button'
cg@3059
   621
             name: 'ArrowButtonsLabel'
cg@3059
   622
             layout: (AlignmentOrigin 348 0 69 0 0 0)
cg@3059
   623
             resizeForLabel: true
cg@3059
   624
             adjust: left
cg@3059
   625
             canUIDrag: false
cg@3059
   626
           )
cg@3059
   627
          (ArrowButtonSpec
cg@3059
   628
             name: 'Arrow Button'
cg@3059
   629
             layout: (LayoutFrame 296 0 65 0 318 0 87 0)
cg@3059
   630
             isTriggerOnDown: true
cg@3059
   631
             direction: right
cg@3059
   632
           )
cg@3059
   633
          (ActionButtonSpec
cg@3059
   634
             label: '...'
cg@3059
   635
             name: 'Button1'
cg@3128
   636
             layout: (LayoutFrame 296 0 98 0 316 0 120 0)
cg@3059
   637
             translateLabel: true
cg@3059
   638
             model: someAction
cg@3059
   639
           )
cg@3128
   640
          (LabelSpec
cg@3128
   641
             label: 'Ok/Cancel Panel'
cg@3128
   642
             name: 'Label2'
cg@3128
   643
             layout: (LayoutFrame 3 0 -49 1 208 0 -26 1)
cg@3128
   644
             adjust: left
cg@3128
   645
             canUIDrag: false
cg@3128
   646
           )
cg@3128
   647
          (HorizontalPanelViewSpec
cg@3128
   648
             keepUILayout: true
cg@3128
   649
             name: 'OkCancelPanel'
cg@3128
   650
             layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
cg@3279
   651
             reverseOrderIfOKAtLeft: true
cg@3128
   652
             horizontalLayout: center
cg@3128
   653
             verticalLayout: center
cg@3128
   654
             horizontalSpace: 3
cg@3128
   655
             verticalSpace: 3
cg@3128
   656
             component: 
cg@3128
   657
            (SpecCollection
cg@3128
   658
               collection: (
cg@3128
   659
                (ActionButtonSpec
cg@3128
   660
                   label: 'Cancel'
cg@3128
   661
                   name: 'Button2'
cg@3128
   662
                   translateLabel: true
cg@3128
   663
                   model: cancel
cg@3128
   664
                   extent: (Point 125 22)
cg@3128
   665
                 )
cg@3128
   666
                (ActionButtonSpec
cg@3128
   667
                   label: 'OK'
cg@3128
   668
                   name: 'Button3'
cg@3128
   669
                   translateLabel: true
cg@3128
   670
                   model: accept
cg@3128
   671
                   extent: (Point 125 22)
cg@3128
   672
                 )
cg@3128
   673
                )
cg@3128
   674
              
cg@3128
   675
             )
cg@3128
   676
           )
cg@3059
   677
          )
cg@3059
   678
        
cg@3059
   679
       )
cg@3059
   680
     )
tz@677
   681
!
tz@677
   682
cg@1168
   683
standardEmbed
cg@1168
   684
    "This resource specification was automatically generated
cg@1168
   685
     by the UIPainter of ST/X."
cg@1168
   686
cg@1168
   687
    "Do not manually edit this!! If it is corrupted,
cg@1168
   688
     the UIPainter may not be able to read the specification."
cg@1168
   689
cg@1168
   690
    "
cg@1168
   691
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardEmbed
cg@1168
   692
     UISelectionPanel new openInterface:#standardEmbed
cg@1168
   693
    "
cg@1168
   694
cg@1168
   695
    <resource: #canvas>
cg@1168
   696
cg@1168
   697
    ^ 
sv@1737
   698
     #(FullSpec
sv@1737
   699
        name: standardEmbed
sv@1737
   700
        window: 
sv@1737
   701
       (WindowSpec
sv@1737
   702
          label: 'Misc'
sv@1737
   703
          name: 'Misc'
sv@1737
   704
          min: (Point 10 10)
sv@1737
   705
          bounds: (Rectangle 14 46 456 269)
cg@1168
   706
        )
sv@1737
   707
        component: 
sv@1737
   708
       (SpecCollection
sv@1737
   709
          collection: (
sv@1737
   710
           (ArbitraryComponentSpec
sv@1737
   711
              name: 'Arbitrary Component'
sv@1737
   712
              layout: (LayoutFrame 3 0 3 0 128 0 104 0)
sv@1737
   713
              hasBorder: false
cg@1168
   714
            )
sv@1737
   715
           (LabelSpec
sv@1737
   716
              label: 'Scrollable'
sv@1737
   717
              name: 'ScrollableArbitraryLabel1'
sv@1737
   718
              layout: (AlignmentOrigin 7 0 7 0 0 0)
sv@1737
   719
              resizeForLabel: true
sv@1737
   720
              adjust: left
sv@1737
   721
              canUIDrag: false
cg@1168
   722
            )
sv@1737
   723
           (LabelSpec
sv@1737
   724
              label: 'Arbitrary-'
sv@1737
   725
              name: 'ScrollableArbitraryLabel2'
sv@1737
   726
              layout: (AlignmentOrigin 7 0 23 0 0 0)
sv@1737
   727
              resizeForLabel: true
sv@1737
   728
              adjust: left
sv@1737
   729
              canUIDrag: false
cg@1549
   730
            )
sv@1737
   731
           (LabelSpec
sv@1737
   732
              label: 'Component'
sv@1737
   733
              name: 'ScrollableArbitraryLabel3'
sv@1737
   734
              layout: (AlignmentOrigin 7 0 39 0 0 0)
sv@1737
   735
              resizeForLabel: true
sv@1737
   736
              adjust: left
sv@1737
   737
              canUIDrag: false
cg@1168
   738
            )
sv@1737
   739
           (UISubSpecification
sv@1737
   740
              name: 'SubSpecification'
sv@1737
   741
              layout: (LayoutFrame 145 0 3 0 280 0 104 0)
cg@1168
   742
            )
sv@1737
   743
           (LabelSpec
sv@1737
   744
              label: 'SubSpecification'
sv@1737
   745
              name: 'SubSpecificationLabel'
sv@1737
   746
              layout: (Point 149 7)
sv@1737
   747
              resizeForLabel: true
sv@1737
   748
              canUIDrag: false
cg@1168
   749
            )
sv@1737
   750
           (SubCanvasSpec
sv@1737
   751
              name: 'SubCanvas'
sv@1737
   752
              layout: (LayoutFrame 297 0 3 0 433 0 104 0)
sv@1737
   753
              hasHorizontalScrollBar: true
sv@1737
   754
              hasVerticalScrollBar: true
cg@1168
   755
            )
sv@1737
   756
           (LabelSpec
sv@1737
   757
              label: 'SubCanvas'
sv@1737
   758
              name: 'SubCanvasLabel'
sv@1737
   759
              layout: (AlignmentOrigin 324 0 7 0 0 0)
sv@1737
   760
              resizeForLabel: true
sv@1737
   761
              adjust: left
sv@1737
   762
              canUIDrag: false
cg@1168
   763
            )
sv@1737
   764
           (NonScrollableArbitraryComponentSpec
sv@1737
   765
              name: 'NonSrollable Arbitrary Component'
sv@1737
   766
              layout: (LayoutFrame 3 0 120 0 128 0 221 0)
ca@1434
   767
            )
sv@1737
   768
           (LabelSpec
sv@1737
   769
              label: 'NonScrollable'
sv@1737
   770
              name: 'NonScrollableArbitraryLabel1'
sv@1737
   771
              layout: (AlignmentOrigin 7 0 124 0 0 0)
sv@1737
   772
              resizeForLabel: true
sv@1737
   773
              adjust: left
sv@1737
   774
              canUIDrag: false
ca@1434
   775
            )
sv@1737
   776
           (LabelSpec
sv@1737
   777
              label: 'Arbitrary-'
sv@1737
   778
              name: 'NonScrollableArbitraryLabel2'
sv@1737
   779
              layout: (AlignmentOrigin 7 0 140 0 0 0)
sv@1737
   780
              resizeForLabel: true
sv@1737
   781
              adjust: left
sv@1737
   782
              canUIDrag: false
cg@1549
   783
            )
sv@1737
   784
           (LabelSpec
sv@1737
   785
              label: 'Component'
sv@1737
   786
              name: 'NonScrollableArbitraryLabel3'
sv@1737
   787
              layout: (AlignmentOrigin 7 0 156 0 0 0)
sv@1737
   788
              resizeForLabel: true
sv@1737
   789
              adjust: left
sv@1737
   790
              canUIDrag: false
ca@1434
   791
            )
cg@1168
   792
           )
cg@1168
   793
         
cg@1168
   794
        )
cg@1168
   795
      )
cg@1168
   796
!
cg@1168
   797
tz@677
   798
standardGraphs
cg@1142
   799
    "This resource specification was automatically generated
cg@1142
   800
     by the UIPainter of ST/X."
tz@677
   801
cg@1142
   802
    "Do not manually edit this!! If it is corrupted,
cg@1142
   803
     the UIPainter may not be able to read the specification."
tz@677
   804
tz@677
   805
    "
tz@677
   806
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardGraphs
tz@677
   807
     UISelectionPanel new openInterface:#standardGraphs
tz@677
   808
    "
tz@677
   809
tz@677
   810
    <resource: #canvas>
tz@677
   811
cg@1142
   812
    ^ 
sv@1737
   813
     #(FullSpec
sv@1737
   814
        name: standardGraphs
sv@1737
   815
        window: 
sv@1737
   816
       (WindowSpec
sv@1737
   817
          label: 'Graphs'
sv@1737
   818
          name: 'Graphs'
sv@1737
   819
          min: (Point 10 10)
sv@1737
   820
          bounds: (Rectangle 14 46 453 161)
cg@1142
   821
        )
sv@1737
   822
        component: 
sv@1737
   823
       (SpecCollection
sv@1737
   824
          collection: (
sv@1737
   825
           (GraphColumnView2DSpec
sv@1737
   826
              name: 'GraphColumnView2D'
sv@1737
   827
              layout: (LayoutFrame 3 0 3 0 208 0 98 0)
sv@1737
   828
              gridX: 0
sv@1737
   829
              gridY: 0
cg@1142
   830
            )
sv@1737
   831
           (LabelSpec
sv@1737
   832
              label: 'GraphColumnViewView2D'
sv@1737
   833
              name: 'GraphColumnView2DLabel'
sv@1737
   834
              layout: (AlignmentOrigin 7 0 7 0 0 0)
sv@1737
   835
              resizeForLabel: true
sv@1737
   836
              adjust: left
sv@1737
   837
              canUIDrag: false
cg@1142
   838
            )
sv@1737
   839
           (GraphColumnView3DSpec
sv@1737
   840
              name: 'GraphColumnView3D'
sv@1737
   841
              layout: (LayoutFrame 228 0 3 0 433 0 98 0)
cg@1142
   842
            )
sv@1737
   843
           (LabelSpec
sv@1737
   844
              label: 'GraphColumnViewView3D'
sv@1737
   845
              name: 'GraphColumnView3DLabel'
sv@1737
   846
              layout: (AlignmentOrigin 232 0 7 0 0 0)
sv@1737
   847
              resizeForLabel: true
sv@1737
   848
              adjust: left
sv@1737
   849
              canUIDrag: false
cg@1142
   850
            )
cg@1142
   851
           )
cg@1142
   852
         
cg@1142
   853
        )
tz@677
   854
      )
tz@677
   855
!
tz@677
   856
tz@677
   857
standardGroups
cg@1142
   858
    "This resource specification was automatically generated
cg@1142
   859
     by the UIPainter of ST/X."
tz@677
   860
cg@1142
   861
    "Do not manually edit this!! If it is corrupted,
cg@1142
   862
     the UIPainter may not be able to read the specification."
tz@677
   863
tz@677
   864
    "
tz@677
   865
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardGroups
tz@677
   866
     UISelectionPanel new openInterface:#standardGroups
tz@677
   867
    "
tz@677
   868
tz@677
   869
    <resource: #canvas>
tz@677
   870
cg@1142
   871
    ^ 
cg@3128
   872
    #(FullSpec
cg@3128
   873
       name: standardGroups
cg@3128
   874
       window: 
cg@3128
   875
      (WindowSpec
cg@3128
   876
         label: 'Groups'
cg@3128
   877
         name: 'Groups'
cg@3128
   878
         min: (Point 10 10)
cg@3128
   879
         bounds: (Rectangle 0 0 450 267)
cg@3128
   880
       )
cg@3128
   881
       component: 
cg@3128
   882
      (SpecCollection
cg@3128
   883
         collection: (
cg@3128
   884
          (ViewSpec
cg@3128
   885
             name: 'Box'
cg@3128
   886
             layout: (LayoutFrame 3 0 3 0 95 0 95 0)
cg@3128
   887
           )
cg@3128
   888
          (TransparentBoxSpec
cg@3128
   889
             name: 'TBox1'
cg@3128
   890
             layout: (LayoutFrame 113 0 3 0 204 0 95 0)
cg@3128
   891
           )
cg@3128
   892
          (LabelSpec
cg@3128
   893
             label: 'TransparentBox'
cg@3128
   894
             name: 'Label1'
cg@3128
   895
             layout: (AlignmentOrigin 106 0 5 0 0 0)
sv@3323
   896
             translateLabel: true
cg@3128
   897
             resizeForLabel: true
cg@3128
   898
             adjust: left
cg@3128
   899
             canUIDrag: false
cg@3128
   900
           )
cg@3128
   901
          (LabelSpec
cg@3128
   902
             label: 'Box'
cg@3128
   903
             name: 'ViewLabel'
cg@3128
   904
             layout: (AlignmentOrigin 6 0 5 0 0 0)
sv@3323
   905
             translateLabel: true
cg@3128
   906
             resizeForLabel: true
cg@3128
   907
             adjust: left
cg@3128
   908
             canUIDrag: false
cg@3128
   909
           )
cg@3128
   910
          (LabelSpec
cg@3128
   911
             label: 'Variable Panels'
cg@3128
   912
             name: 'VPanelLabel'
cg@3128
   913
             layout: (LayoutFrame 3 0 104 0 208 0 127 0)
sv@3323
   914
             translateLabel: true
cg@3128
   915
             adjust: left
cg@3128
   916
             canUIDrag: false
cg@3128
   917
           )
cg@3128
   918
          (VariableHorizontalPanelSpec
cg@3128
   919
             name: 'Variable Horizontal Panel'
cg@3128
   920
             layout: (LayoutFrame 3 0 128 0 98 0 218 0)
cg@3128
   921
             component: 
cg@3128
   922
            (SpecCollection
cg@3128
   923
               collection: (
cg@3128
   924
                (LabelSpec
cg@3128
   925
                   label: 'A'
cg@3128
   926
                   name: 'label4'
cg@3128
   927
                   level: 2
sv@3323
   928
                   translateLabel: true
cg@3128
   929
                   canUIDrag: false
sv@1737
   930
                 )
cg@3128
   931
                (LabelSpec
cg@3128
   932
                   label: 'B'
cg@3128
   933
                   name: 'label5'
cg@3128
   934
                   level: 2
sv@3323
   935
                   translateLabel: true
cg@3128
   936
                   canUIDrag: false
sv@1737
   937
                 )
cg@3128
   938
                )
cg@3128
   939
              
cg@3128
   940
             )
cg@3128
   941
             handles: (Any 0.5 1.0)
cg@3128
   942
           )
cg@3128
   943
          (VariableVerticalPanelSpec
cg@3128
   944
             name: 'Variable Vertical Panel'
cg@3128
   945
             layout: (LayoutFrame 113 0 128 0 208 0 218 0)
cg@3128
   946
             component: 
cg@3128
   947
            (SpecCollection
cg@3128
   948
               collection: (
cg@3128
   949
                (LabelSpec
cg@3128
   950
                   label: 'A'
cg@3128
   951
                   name: 'label9'
cg@3128
   952
                   level: 2
sv@3323
   953
                   translateLabel: true
cg@3128
   954
                   canUIDrag: false
cg@1142
   955
                 )
cg@3128
   956
                (LabelSpec
cg@3128
   957
                   label: 'B'
cg@3128
   958
                   name: 'label10'
cg@3128
   959
                   level: 2
sv@3323
   960
                   translateLabel: true
cg@3128
   961
                   canUIDrag: false
cg@1142
   962
                 )
cg@3128
   963
                )
cg@3128
   964
              
cg@3128
   965
             )
cg@3128
   966
             handles: (Any 0.5 1.0)
cg@3128
   967
           )
cg@3128
   968
          (FramedBoxSpec
cg@3128
   969
             label: 'Framed Box'
cg@3128
   970
             name: 'Framed Box'
cg@3128
   971
             layout: (LayoutFrame 228 0 3 0 433 0 98 0)
cg@3128
   972
             labelPosition: topLeft
cg@3128
   973
             translateLabel: true
cg@3128
   974
           )
cg@3128
   975
          (LabelSpec
cg@3128
   976
             label: 'Panels'
cg@3128
   977
             name: 'PanelLabel'
cg@3128
   978
             layout: (LayoutFrame 228 0 104 0 433 0 127 0)
sv@3323
   979
             translateLabel: true
cg@3128
   980
             adjust: left
cg@3128
   981
             canUIDrag: false
cg@3128
   982
           )
cg@3128
   983
          (HorizontalPanelViewSpec
cg@3128
   984
             name: 'Horizontal Panel'
cg@3128
   985
             layout: (LayoutFrame 228 0 128 0 312 0 218 0)
cg@3128
   986
             horizontalLayout: center
cg@3128
   987
             verticalLayout: center
cg@3128
   988
             horizontalSpace: 3
cg@3128
   989
             verticalSpace: 3
cg@3128
   990
             component: 
cg@3128
   991
            (SpecCollection
cg@3128
   992
               collection: (
cg@3128
   993
                (LabelSpec
cg@3128
   994
                   label: 'A'
cg@3128
   995
                   name: 'label1'
cg@3128
   996
                   level: 2
sv@3323
   997
                   translateLabel: true
cg@3128
   998
                   extent: (Point 23 23)
cg@3128
   999
                   canUIDrag: false
cg@1142
  1000
                 )
cg@3128
  1001
                (LabelSpec
cg@3128
  1002
                   label: 'B'
cg@3128
  1003
                   name: 'label2'
cg@3128
  1004
                   level: 2
sv@3323
  1005
                   translateLabel: true
cg@3128
  1006
                   extent: (Point 23 23)
cg@3128
  1007
                   canUIDrag: false
cg@3128
  1008
                 )
cg@3128
  1009
                (LabelSpec
cg@3128
  1010
                   label: 'C'
cg@3128
  1011
                   name: 'label3'
cg@3128
  1012
                   level: 2
sv@3323
  1013
                   translateLabel: true
cg@3128
  1014
                   extent: (Point 23 23)
cg@3128
  1015
                   canUIDrag: false
cg@3128
  1016
                 )
cg@3128
  1017
                )
cg@3128
  1018
              
cg@3128
  1019
             )
cg@1142
  1020
           )
cg@3128
  1021
          (VerticalPanelViewSpec
cg@3128
  1022
             name: 'Vertical Panel'
cg@3128
  1023
             layout: (LayoutFrame 320 0 128 0 367 0 218 0)
cg@3128
  1024
             horizontalLayout: center
cg@3128
  1025
             verticalLayout: center
cg@3128
  1026
             horizontalSpace: 3
cg@3128
  1027
             verticalSpace: 3
cg@3128
  1028
             component: 
cg@3128
  1029
            (SpecCollection
cg@3128
  1030
               collection: (
cg@3128
  1031
                (LabelSpec
cg@3128
  1032
                   label: 'A'
cg@3128
  1033
                   name: 'label6'
cg@3128
  1034
                   level: 2
sv@3323
  1035
                   translateLabel: true
cg@3128
  1036
                   extent: (Point 23 23)
cg@3128
  1037
                   canUIDrag: false
cg@3128
  1038
                 )
cg@3128
  1039
                (LabelSpec
cg@3128
  1040
                   label: 'B'
cg@3128
  1041
                   name: 'label7'
cg@3128
  1042
                   level: 2
sv@3323
  1043
                   translateLabel: true
cg@3128
  1044
                   extent: (Point 23 23)
cg@3128
  1045
                   canUIDrag: false
cg@3128
  1046
                 )
cg@3128
  1047
                (LabelSpec
cg@3128
  1048
                   label: 'C'
cg@3128
  1049
                   name: 'label8'
cg@3128
  1050
                   level: 2
sv@3323
  1051
                   translateLabel: true
cg@3128
  1052
                   extent: (Point 23 23)
cg@3128
  1053
                   canUIDrag: false
cg@3128
  1054
                 )
cg@3128
  1055
                )
cg@3128
  1056
              
cg@3128
  1057
             )
cg@3128
  1058
           )
cg@3128
  1059
          (PanelViewSpec
cg@3128
  1060
             name: 'Panel'
cg@3128
  1061
             layout: (LayoutFrame 375 0 128 0 433 0 218 0)
cg@3128
  1062
             horizontalLayout: fitSpace
cg@3128
  1063
             verticalLayout: fitSpace
cg@3128
  1064
             horizontalSpace: 3
cg@3128
  1065
             verticalSpace: 3
cg@3128
  1066
             component: 
cg@3128
  1067
            (SpecCollection
cg@3128
  1068
               collection: (
cg@3128
  1069
                (LabelSpec
cg@3128
  1070
                   label: 'A'
cg@3128
  1071
                   name: 'label11'
cg@3128
  1072
                   level: 2
sv@3323
  1073
                   translateLabel: true
cg@3128
  1074
                   extent: (Point 23 23)
cg@3128
  1075
                   canUIDrag: false
cg@3128
  1076
                 )
cg@3128
  1077
                (LabelSpec
cg@3128
  1078
                   label: 'B'
cg@3128
  1079
                   name: 'label12'
cg@3128
  1080
                   level: 2
sv@3323
  1081
                   translateLabel: true
cg@3128
  1082
                   extent: (Point 23 23)
cg@3128
  1083
                   canUIDrag: false
cg@3128
  1084
                 )
cg@3128
  1085
                (LabelSpec
cg@3128
  1086
                   label: 'C'
cg@3128
  1087
                   name: 'label13'
cg@3128
  1088
                   level: 2
sv@3323
  1089
                   translateLabel: true
cg@3128
  1090
                   extent: (Point 23 23)
cg@3128
  1091
                   canUIDrag: false
cg@3128
  1092
                 )
cg@3128
  1093
                (LabelSpec
cg@3128
  1094
                   label: 'D'
cg@3128
  1095
                   name: 'label14'
cg@3128
  1096
                   level: 2
sv@3323
  1097
                   translateLabel: true
cg@3128
  1098
                   extent: (Point 23 23)
cg@3128
  1099
                   canUIDrag: false
cg@3128
  1100
                 )
cg@3128
  1101
                (LabelSpec
cg@3128
  1102
                   label: 'E'
cg@3128
  1103
                   name: 'label15'
cg@3128
  1104
                   level: 2
sv@3323
  1105
                   translateLabel: true
cg@3128
  1106
                   extent: (Point 23 23)
cg@3128
  1107
                   canUIDrag: false
cg@3128
  1108
                 )
cg@3128
  1109
                )
cg@3128
  1110
              
cg@3128
  1111
             )
cg@3128
  1112
           )
cg@3128
  1113
          )
cg@3128
  1114
        
cg@3128
  1115
       )
cg@3128
  1116
     )
ca@93
  1117
!
ca@93
  1118
tz@658
  1119
standardLists
cg@797
  1120
    "This resource specification was automatically generated
cg@797
  1121
     by the UIPainter of ST/X."
tz@658
  1122
cg@797
  1123
    "Do not manually edit this!! If it is corrupted,
cg@797
  1124
     the UIPainter may not be able to read the specification."
tz@658
  1125
tz@658
  1126
    "
tz@658
  1127
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardLists
tz@658
  1128
     UISelectionPanel new openInterface:#standardLists
tz@658
  1129
    "
tz@658
  1130
tz@658
  1131
    <resource: #canvas>
tz@658
  1132
cg@1142
  1133
    ^ 
sv@1737
  1134
     #(FullSpec
sv@1737
  1135
        name: standardLists
sv@1737
  1136
        window: 
sv@1737
  1137
       (WindowSpec
sv@1737
  1138
          label: 'Lists'
sv@1737
  1139
          name: 'Lists'
sv@1737
  1140
          min: (Point 10 10)
sv@1737
  1141
          bounds: (Rectangle 14 46 455 264)
cg@1142
  1142
        )
sv@1737
  1143
        component: 
sv@1737
  1144
       (SpecCollection
sv@1737
  1145
          collection: (
sv@1737
  1146
           (SequenceViewSpec
sv@1737
  1147
              name: 'List'
sv@1737
  1148
              layout: (LayoutFrame 3 0 3 0 208 0 101 0)
sv@1737
  1149
              hasHorizontalScrollBar: true
sv@1737
  1150
              hasVerticalScrollBar: true
sv@1737
  1151
              useIndex: false
cg@1142
  1152
            )
sv@1737
  1153
           (DataSetSpec
sv@1737
  1154
              name: 'Table'
sv@1737
  1155
              layout: (LayoutFrame 228 0 3 0 433 0 101 0)
sv@1737
  1156
              hasHorizontalScrollBar: true
sv@1737
  1157
              hasVerticalScrollBar: true
cg@1943
  1158
              has3Dseparators: false
cg@1142
  1159
            )
sv@1737
  1160
           (SelectionInListModelViewSpec
cg@2332
  1161
              name: 'SelectionInListModelView'
sv@1737
  1162
              layout: (LayoutFrame 3 0 110 0 208 0 208 0)
sv@1737
  1163
              hasHorizontalScrollBar: true
sv@1737
  1164
              hasVerticalScrollBar: true
sv@1737
  1165
              useIndex: false
sv@1737
  1166
              highlightMode: line
cg@1142
  1167
            )
cg@1142
  1168
           )
cg@1142
  1169
         
cg@1142
  1170
        )
ca@182
  1171
      )
ca@182
  1172
!
ca@182
  1173
ca@190
  1174
standardMenus
tz@753
  1175
    "This resource specification was automatically generated
tz@753
  1176
     by the UIPainter of ST/X."
ca@182
  1177
tz@753
  1178
    "Do not manually edit this!! If it is corrupted,
tz@753
  1179
     the UIPainter may not be able to read the specification."
ca@182
  1180
ca@182
  1181
    "
ca@302
  1182
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMenus
ca@302
  1183
     UISelectionPanel new openInterface:#standardMenus
ca@182
  1184
    "
ca@182
  1185
ca@182
  1186
    <resource: #canvas>
ca@182
  1187
cg@1142
  1188
    ^ 
sv@1737
  1189
     #(FullSpec
sv@1737
  1190
        name: standardMenus
sv@1737
  1191
        window: 
sv@1737
  1192
       (WindowSpec
sv@1737
  1193
          label: 'Menus'
sv@1737
  1194
          name: 'Menus'
sv@1737
  1195
          min: (Point 10 10)
sv@1737
  1196
          bounds: (Rectangle 14 46 491 269)
cg@1142
  1197
        )
sv@1737
  1198
        component: 
sv@1737
  1199
       (SpecCollection
sv@1737
  1200
          collection: (
sv@1737
  1201
           (MenuPanelSpec
sv@1737
  1202
              name: 'Tool Bar'
sv@1737
  1203
              layout: (LayoutFrame 4 0 134 0 129 0 166 0)
sv@1737
  1204
              textDefault: true
cg@1142
  1205
            )
sv@1737
  1206
           (LabelSpec
sv@1737
  1207
              label: 'Tool Bar'
sv@1737
  1208
              name: 'ToolBarLabel'
sv@1737
  1209
              layout: (AlignmentOrigin 4 0 134 0 0 1)
sv@1737
  1210
              resizeForLabel: true
sv@1737
  1211
              adjust: left
sv@1737
  1212
              canUIDrag: false
cg@1142
  1213
            )
sv@1737
  1214
           (MenuPanelSpec
sv@1737
  1215
              name: 'Menu Bar'
sv@1737
  1216
              layout: (LayoutFrame 4 0 188 0 129 0 210 0)
cg@1142
  1217
            )
sv@1737
  1218
           (LabelSpec
sv@1737
  1219
              label: 'Menu Bar'
sv@1737
  1220
              name: 'MenuBarLabel'
sv@1737
  1221
              layout: (AlignmentOrigin 4 0 187 0 0 1)
sv@1737
  1222
              resizeForLabel: true
sv@1737
  1223
              adjust: left
sv@1737
  1224
              canUIDrag: false
cg@1142
  1225
            )
sv@1737
  1226
           (PopUpListSpec
sv@1737
  1227
              label: 'PopUp List'
sv@1737
  1228
              name: 'PopUp List'
sv@1737
  1229
              layout: (LayoutFrame 4 0 3 0 129 0 25 0)
sv@1737
  1230
              tabable: true
cg@1142
  1231
            )
sv@1737
  1232
           (ComboListSpec
sv@1737
  1233
              name: 'Combo List'
sv@1737
  1234
              layout: (LayoutFrame 4 0 33 0 129 0 53 0)
sv@1737
  1235
              useIndex: false
cg@1142
  1236
            )
sv@1737
  1237
           (ComboBoxSpec
sv@1737
  1238
              name: 'Combo Box'
sv@1737
  1239
              layout: (LayoutFrame 4 0 61 0 129 0 81 0)
sv@1737
  1240
              acceptOnPointerLeave: false
cg@1142
  1241
            )
sv@1737
  1242
           (ExtendedComboBoxSpec
sv@1737
  1243
              name: 'Extended Combo Box'
sv@1737
  1244
              layout: (LayoutFrame 4 0 88 0 129 0 108 0)
sv@1737
  1245
              miniScrollerHorizontal: true
cg@1142
  1246
            )
sv@1737
  1247
           (TabViewSpec
sv@1737
  1248
              name: 'Tab Header'
sv@1737
  1249
              layout: (LayoutFrame 146 0 3 0 281 0 39 0)
cg@1142
  1250
            )
sv@1737
  1251
           (NoteBookViewSpec
sv@1737
  1252
              name: 'Note Book'
sv@1737
  1253
              layout: (LayoutFrame 146 0 46 0 281 0 138 0)
cg@1142
  1254
            )
sv@1737
  1255
           (UIGalleryViewSpec
sv@1737
  1256
              name: 'Gallery'
sv@1737
  1257
              layout: (LayoutFrame 298 0 3 0 434 0 138 0)
cg@1142
  1258
            )
sv@1737
  1259
           (ColorMenuSpec
sv@1737
  1260
              name: 'ColorMenu'
sv@1737
  1261
              layout: (LayoutFrame 143 0 188 0 -46 1.0 210 0)
sv@1737
  1262
              labelsAreColored: true
penk@1662
  1263
            )
sv@1737
  1264
           (LabelSpec
sv@1737
  1265
              label: 'Color Menu'
sv@1737
  1266
              name: 'Label1'
sv@1737
  1267
              layout: (AlignmentOrigin 142 0 187 0 0 1)
sv@1737
  1268
              resizeForLabel: true
sv@1737
  1269
              adjust: left
sv@1737
  1270
              canUIDrag: false
penk@1662
  1271
            )
cg@1142
  1272
           )
cg@1142
  1273
         
cg@1142
  1274
        )
ca@142
  1275
      )
ca@142
  1276
!
ca@142
  1277
tz@658
  1278
standardMisc
tz@753
  1279
    "This resource specification was automatically generated
tz@753
  1280
     by the UIPainter of ST/X."
ca@93
  1281
tz@753
  1282
    "Do not manually edit this!! If it is corrupted,
tz@753
  1283
     the UIPainter may not be able to read the specification."
ca@93
  1284
ca@93
  1285
    "
sv@1737
  1286
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMisc
sv@1737
  1287
     UISelectionPanel new openInterface:#standardMisc
ca@93
  1288
    "
ca@93
  1289
ca@93
  1290
    <resource: #canvas>
ca@93
  1291
cg@1142
  1292
    ^ 
sv@1737
  1293
     #(FullSpec
sv@1737
  1294
        name: standardMisc
sv@1737
  1295
        window: 
sv@1737
  1296
       (WindowSpec
sv@1737
  1297
          label: 'NewApplication'
sv@1737
  1298
          name: 'NewApplication'
sv@1737
  1299
          min: (Point 10 10)
sv@1737
  1300
          bounds: (Rectangle 14 46 453 289)
cg@1142
  1301
        )
sv@1737
  1302
        component: 
sv@1737
  1303
       (SpecCollection
sv@1737
  1304
          collection: (
sv@1737
  1305
           (LabelSpec
sv@1737
  1306
              label: 'StepSlider'
sv@1737
  1307
              name: 'StepSliderLabel'
sv@1737
  1308
              layout: (AlignmentOrigin 87 0 9 0 1 0)
sv@1737
  1309
              resizeForLabel: true
sv@1737
  1310
              canUIDrag: false
cg@1142
  1311
            )
sv@1737
  1312
           (LabelSpec
sv@1737
  1313
              label: 'Slider'
sv@1737
  1314
              name: 'SliderLabel'
sv@1737
  1315
              layout: (AlignmentOrigin 87 0 35 0 1 0)
sv@1737
  1316
              resizeForLabel: true
sv@1737
  1317
              canUIDrag: false
cg@1142
  1318
            )
sv@1737
  1319
           (SliderSpec
sv@1737
  1320
              name: 'Slider'
sv@1737
  1321
              layout: (LayoutFrame 88 0 34 0 203 0 52 0)
sv@1737
  1322
              orientation: horizontal
cg@1142
  1323
            )
sv@1737
  1324
           (LabelSpec
sv@1737
  1325
              label: 'ThumbWheel'
sv@1737
  1326
              name: 'ThumbWheelLabel'
sv@1737
  1327
              layout: (AlignmentOrigin 88 0 62 0 1 0)
sv@1737
  1328
              resizeForLabel: true
sv@1737
  1329
              canUIDrag: false
cg@1168
  1330
            )
sv@1737
  1331
           (ThumbWheelSpec
sv@1737
  1332
              name: 'Thumb Wheel'
sv@1737
  1333
              layout: (LayoutFrame 88 0 60 0 203 0 80 0)
sv@1737
  1334
              orientation: horizontal
cg@1168
  1335
            )
sv@1737
  1336
           (LabelSpec
sv@1737
  1337
              label: 'ScrollBar'
sv@1737
  1338
              name: 'ScrollBarLabel'
sv@1737
  1339
              layout: (AlignmentOrigin 87 0 103 0 1 0)
sv@1737
  1340
              initiallyInvisible: true
sv@1737
  1341
              resizeForLabel: true
sv@1737
  1342
              canUIDrag: false
cg@1168
  1343
            )
sv@1737
  1344
           (LabelSpec
sv@1737
  1345
              label: 'Scroller'
sv@1737
  1346
              name: 'ScrollerLabel'
sv@1737
  1347
              layout: (AlignmentOrigin 87 0 130 0 1 0)
sv@1737
  1348
              initiallyInvisible: true
sv@1737
  1349
              resizeForLabel: true
sv@1737
  1350
              canUIDrag: false
cg@1168
  1351
            )
sv@1737
  1352
           (ScrollerSpec
sv@1737
  1353
              name: 'Scroller'
sv@1737
  1354
              layout: (LayoutFrame 88 0 127 0 203 0 145 0)
sv@1737
  1355
              initiallyInvisible: true
sv@1737
  1356
              orientation: horizontal
cg@1160
  1357
            )
sv@1737
  1358
           (SteppingSliderSpec
sv@1737
  1359
              name: 'VStepSlider'
sv@1737
  1360
              layout: (LayoutFrame 226 0 6 0 244 0 106 0)
cg@1160
  1361
            )
sv@1737
  1362
           (SliderSpec
sv@1737
  1363
              name: 'VSlider'
sv@1737
  1364
              layout: (LayoutFrame 254 0 6 0 272 0 106 0)
cg@1168
  1365
            )
sv@1737
  1366
           (ThumbWheelSpec
sv@1737
  1367
              name: 'VThumbWheel'
sv@1737
  1368
              layout: (LayoutFrame 280 0 6 0 298 0 106 0)
cg@1142
  1369
            )
sv@1737
  1370
           (ScrollerSpec
sv@1737
  1371
              name: 'VScroller'
sv@1737
  1372
              layout: (LayoutFrame 345 0 6 0 363 0 106 0)
sv@1737
  1373
              initiallyInvisible: true
cg@1168
  1374
            )
sv@1737
  1375
           (LabelSpec
sv@1737
  1376
              label: 'Region'
sv@1737
  1377
              name: 'RegionLabel'
sv@1737
  1378
              layout: (AlignmentOrigin 83 0 177 0 1 0)
sv@1737
  1379
              resizeForLabel: true
sv@1737
  1380
              adjust: left
sv@1737
  1381
              canUIDrag: false
cg@1142
  1382
            )
sv@1737
  1383
           (RegionSpec
sv@1737
  1384
              name: 'Region'
sv@1737
  1385
              layout: (LayoutFrame 88 0 171 0 203 0 200 0)
sv@1737
  1386
              lineWidth: 2
sv@1737
  1387
              regionType: ellipse
cg@1142
  1388
            )
sv@1737
  1389
           (LabelSpec
sv@1737
  1390
              label: 'Separator'
sv@1737
  1391
              name: 'SeparatorLabel'
sv@1737
  1392
              layout: (AlignmentOrigin 83 0 207 0 1 0)
sv@1737
  1393
              resizeForLabel: true
sv@1737
  1394
              adjust: left
sv@1737
  1395
              canUIDrag: false
cg@1142
  1396
            )
sv@1737
  1397
           (DividerSpec
sv@1737
  1398
              name: 'Separator'
sv@1737
  1399
              layout: (LayoutFrame 88 0 213 0 203 0 217 0)
cg@1142
  1400
            )
sv@1737
  1401
           (LabelSpec
sv@1737
  1402
              label: 'Progress Indicator'
sv@1737
  1403
              name: 'ProgressIndicatorsLabel'
sv@1737
  1404
              layout: (AlignmentOrigin 333 0 117 0 1 0)
sv@1737
  1405
              resizeForLabel: true
sv@1737
  1406
              adjust: left
sv@1737
  1407
              canUIDrag: false
cg@1142
  1408
            )
sv@1737
  1409
           (ProgressIndicatorSpec
sv@1737
  1410
              name: 'Progress Indicator'
sv@1737
  1411
              layout: (LayoutFrame 338 0 114 0 433 0 132 0)
cg@1142
  1412
            )
sv@1737
  1413
           (LabelSpec
sv@1737
  1414
              label: 'Round
sv@1737
  1415
Progress Indicator'
sv@1737
  1416
              name: 'RoundProgressIndicatorsLabel'
sv@1737
  1417
              layout: (AlignmentOrigin 333 0 167 0 1 0)
sv@1737
  1418
              resizeForLabel: true
sv@1737
  1419
              adjust: left
sv@1737
  1420
              canUIDrag: false
cg@1142
  1421
            )
sv@1737
  1422
           (RoundProgressIndicatorSpec
sv@1737
  1423
              name: 'Round Progress Indicator'
sv@1737
  1424
              layout: (LayoutFrame 338 0 136 0 425 0 219 0)
sv@1737
  1425
              level: 0
sv@1737
  1426
              borderWidth: 1
cg@1142
  1427
            )
sv@1737
  1428
           (ScrollBarSpec
sv@1737
  1429
              name: 'ScrollBar'
sv@1737
  1430
              layout: (LayoutFrame 88 0 100 0 203 0 118 0)
sv@1737
  1431
              initiallyInvisible: true
sv@1737
  1432
              orientation: horizontal
cg@1142
  1433
            )
sv@1737
  1434
           (ScrollBarSpec
sv@1737
  1435
              name: 'VScrollBar'
sv@1737
  1436
              layout: (LayoutFrame 317 0 6 0 335 0 106 0)
sv@1737
  1437
              initiallyInvisible: true
cg@1175
  1438
            )
cg@1142
  1439
           )
cg@1142
  1440
         
cg@1142
  1441
        )
ca@93
  1442
      )
ca@93
  1443
!
ca@93
  1444
cg@2486
  1445
standardMorphs1
cg@2486
  1446
    "This resource specification was automatically generated
cg@2486
  1447
     by the UIPainter of ST/X."
cg@2486
  1448
cg@2486
  1449
    "Do not manually edit this!! If it is corrupted,
cg@2486
  1450
     the UIPainter may not be able to read the specification."
cg@2486
  1451
cg@2486
  1452
    "
cg@2486
  1453
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMorphs1
cg@2486
  1454
     UISelectionPanel new openInterface:#standardMorphs1
cg@2486
  1455
    "
cg@2486
  1456
cg@2486
  1457
    <resource: #canvas>
cg@2486
  1458
cg@2486
  1459
    ^ 
cg@2486
  1460
     #(FullSpec
cg@2486
  1461
        name: standardMorphs1
cg@2486
  1462
        window: 
cg@2486
  1463
       (WindowSpec
cg@2486
  1464
          label: 'Morphs'
cg@2486
  1465
          name: 'Morphs'
cg@2486
  1466
          min: (Point 10 10)
cg@2532
  1467
          bounds: (Rectangle 0 0 419 272)
cg@2486
  1468
        )
cg@2486
  1469
        component: 
cg@2486
  1470
       (SpecCollection
cg@2486
  1471
          collection: (
cg@2486
  1472
           (ArcMorphSpec
cg@2496
  1473
              name: 'Circle'
cg@2496
  1474
              layout: (LayoutFrame 3 0 3 0 63 0 63 0)
cg@2518
  1475
              line: true
cg@2506
  1476
              lineColor: (Color 100.0 0.0 0.0)
cg@2486
  1477
            )
cg@2486
  1478
           (ArcMorphSpec
cg@2517
  1479
              name: 'FilledCircle'
cg@2496
  1480
              layout: (LayoutFrame 3 0 70 0 63 0 133 0)
cg@2506
  1481
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2496
  1482
              fill: true
cg@2486
  1483
            )
cg@2496
  1484
           (ArcMorphSpec
cg@2517
  1485
              name: 'FilledCircleL'
cg@2517
  1486
              layout: (LayoutFrame 3 0 143 0 63 0 206 0)
cg@2506
  1487
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1488
              line: true
cg@2506
  1489
              fill: true
cg@2517
  1490
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1491
            )
cg@2517
  1492
           (RectangleMorphSpec
cg@2517
  1493
              name: 'RectangleMorph1'
cg@2517
  1494
              layout: (LayoutFrame 70 0 3 0 133 0 63 0)
cg@2517
  1495
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1496
              line: true
cg@2517
  1497
              fill: false
cg@2517
  1498
              lineColor: (Color 100.0 0.0 0.0)
cg@2517
  1499
            )
cg@2517
  1500
           (RectangleMorphSpec
cg@2517
  1501
              name: 'RectangleMorph2'
cg@2517
  1502
              layout: (LayoutFrame 70 0 72 0 133 0 135 0)
cg@2506
  1503
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2506
  1504
              fill: true
cg@2496
  1505
            )
cg@2517
  1506
           (RectangleMorphSpec
cg@2517
  1507
              name: 'RectangleMorph3'
cg@2517
  1508
              layout: (LayoutFrame 70 0 139 0 133 0 202 0)
cg@2506
  1509
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1510
              line: true
cg@2496
  1511
              fill: true
cg@2506
  1512
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1513
            )
cg@2496
  1514
           (ArcMorphSpec
cg@2517
  1515
              name: 'FilledPieL'
cg@2496
  1516
              layout: (LayoutFrame 143 0 143 0 206 0 206 0)
cg@2506
  1517
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1518
              line: true
cg@2506
  1519
              fill: true
cg@2506
  1520
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1521
              startAngle: -45
cg@2496
  1522
              sweepAngle: 270
cg@2496
  1523
              pie: true
cg@2496
  1524
            )
cg@2496
  1525
           (ArcMorphSpec
cg@2517
  1526
              name: 'FilledPie'
cg@2517
  1527
              layout: (LayoutFrame 143 0 70 0 206 0 133 0)
cg@2506
  1528
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2496
  1529
              fill: true
cg@2517
  1530
              startAngle: -45
cg@2517
  1531
              sweepAngle: 270
cg@2517
  1532
              pie: true
cg@2496
  1533
            )
cg@2496
  1534
           (ArcMorphSpec
cg@2517
  1535
              name: 'Pie'
cg@2517
  1536
              layout: (LayoutFrame 143 0 3 0 206 0 63 0)
cg@2518
  1537
              line: true
cg@2506
  1538
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1539
              startAngle: -45
cg@2496
  1540
              sweepAngle: 270
cg@2496
  1541
              pie: true
cg@2496
  1542
            )
cg@2517
  1543
           (LineSegmentMorphSpec
cg@2562
  1544
              name: 'LineSegmentMorph1'
cg@2562
  1545
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2562
  1546
              fill: true
cg@2562
  1547
              lineColor: (Color 100.0 0.0 0.0)
cg@2562
  1548
              startPoint: (Point 214 9)
cg@2562
  1549
              endPoint: (Point 254 59)
cg@2562
  1550
              showArrow: true
cg@2562
  1551
            )
cg@2562
  1552
           (LineSegmentMorphSpec
cg@2517
  1553
              name: 'Line1'
cg@2506
  1554
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2506
  1555
              fill: true
cg@2506
  1556
              lineColor: (Color 100.0 0.0 0.0)
cg@2562
  1557
              startPoint: (Point 214 75)
cg@2562
  1558
              endPoint: (Point 254 125)
cg@2506
  1559
            )
cg@2532
  1560
           (SketchMorphSpec
cg@2532
  1561
              name: 'SketchMorph1'
cg@2566
  1562
              layout: (LayoutFrame 280 0 10 0 373 0 90 0)
cg@2562
  1563
              image: sketchImageIcon
cg@2532
  1564
            )
cg@2486
  1565
           )
cg@2486
  1566
         
cg@2486
  1567
        )
cg@2486
  1568
      )
cg@2486
  1569
!
cg@2486
  1570
tz@677
  1571
standardTexts
cg@795
  1572
    "This resource specification was automatically generated
cg@795
  1573
     by the UIPainter of ST/X."
ca@93
  1574
cg@795
  1575
    "Do not manually edit this!! If it is corrupted,
cg@795
  1576
     the UIPainter may not be able to read the specification."
ca@93
  1577
ca@93
  1578
    "
tz@677
  1579
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardTexts
tz@677
  1580
     UISelectionPanel new openInterface:#standardTexts
ca@93
  1581
    "
ca@93
  1582
ca@93
  1583
    <resource: #canvas>
ca@93
  1584
cg@1142
  1585
    ^ 
sv@1737
  1586
     #(FullSpec
sv@1737
  1587
        name: standardTexts
sv@1737
  1588
        window: 
sv@1737
  1589
       (WindowSpec
sv@1737
  1590
          label: 'Texts'
sv@1737
  1591
          name: 'Texts'
sv@1737
  1592
          min: (Point 10 10)
cg@2476
  1593
          bounds: (Rectangle 0 0 464 224)
cg@1142
  1594
        )
sv@1737
  1595
        component: 
sv@1737
  1596
       (SpecCollection
sv@1737
  1597
          collection: (
sv@1737
  1598
           (TextEditorSpec
sv@1737
  1599
              name: 'Text Editor'
sv@1737
  1600
              layout: (LayoutFrame 3 0 3 0 208 0 98 0)
sv@1737
  1601
              hasHorizontalScrollBar: true
sv@1737
  1602
              hasVerticalScrollBar: true
cg@2476
  1603
              hasKeyboardFocusInitially: false
cg@1142
  1604
            )
sv@1737
  1605
           (HTMLViewSpec
sv@1737
  1606
              name: 'HTML Browser'
sv@1737
  1607
              layout: (LayoutFrame 228 0 3 0 433 0 98 0)
sv@1737
  1608
              hasHorizontalScrollBar: true
sv@1737
  1609
              hasVerticalScrollBar: true
cg@1142
  1610
            )
sv@1737
  1611
           (InputFieldSpec
sv@1737
  1612
              name: 'Entry Field'
sv@1737
  1613
              layout: (LayoutFrame 3 0 113 0 208 0 135 0)
sv@1737
  1614
              acceptOnReturn: true
sv@1737
  1615
              acceptOnTab: true
sv@2320
  1616
              acceptOnPointerLeave: true
cg@1408
  1617
            )
sv@1737
  1618
           (FilenameInputFieldSpec
sv@1737
  1619
              name: 'Filename Entry Field'
sv@1737
  1620
              layout: (LayoutFrame 3 0 141 0 208 0 163 0)
sv@2320
  1621
              acceptOnPointerLeave: true
cg@1142
  1622
            )
cg@2374
  1623
           (FilenameInputFieldSpec
cg@2374
  1624
              name: 'Filename + History'
cg@2374
  1625
              layout: (LayoutFrame 3 0 171 0 208 0 193 0)
cg@2374
  1626
              acceptOnPointerLeave: true
cg@2476
  1627
              viewClassName: FilenameWidgetWithHistory
cg@2374
  1628
            )
sv@1737
  1629
           (LabelSpec
sv@1737
  1630
              label: 'Label'
sv@1737
  1631
              name: 'Label'
sv@1737
  1632
              layout: (LayoutFrame 228 0 113 0 433 0 135 0)
sv@1737
  1633
              translateLabel: true
cg@1142
  1634
            )
cg@2476
  1635
           (LinkButtonSpec
cg@2476
  1636
              label: 'LinkButton'
cg@2476
  1637
              name: 'LinkButton1'
cg@2476
  1638
              layout: (LayoutFrame 228 0 141 0 433 0 163 0)
cg@2476
  1639
              translateLabel: true
cg@2476
  1640
            )
cg@1142
  1641
           )
cg@1142
  1642
         
cg@1142
  1643
        )
cg@97
  1644
      )
cg@97
  1645
!
cg@97
  1646
cg@1179
  1647
standardTrees
cg@1179
  1648
    "This resource specification was automatically generated
cg@1179
  1649
     by the UIPainter of ST/X."
cg@1179
  1650
cg@1179
  1651
    "Do not manually edit this!! If it is corrupted,
cg@1179
  1652
     the UIPainter may not be able to read the specification."
cg@1179
  1653
cg@1179
  1654
    "
cg@1179
  1655
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardTrees
cg@1179
  1656
     UISelectionPanel new openInterface:#standardTrees
cg@1179
  1657
    "
cg@1179
  1658
cg@1179
  1659
    <resource: #canvas>
cg@1179
  1660
cg@1179
  1661
    ^ 
sv@1737
  1662
     #(FullSpec
sv@1737
  1663
        name: standardTrees
sv@1737
  1664
        window: 
sv@1737
  1665
       (WindowSpec
sv@1737
  1666
          label: 'Trees'
sv@1737
  1667
          name: 'Trees'
sv@1737
  1668
          min: (Point 10 10)
sv@1737
  1669
          bounds: (Rectangle 14 46 455 264)
cg@1179
  1670
        )
sv@1737
  1671
        component: 
sv@1737
  1672
       (SpecCollection
sv@1737
  1673
          collection: (
sv@1737
  1674
           (SelectionInTreeViewSpec
sv@1737
  1675
              name: 'Tree List'
sv@1737
  1676
              layout: (LayoutFrame 4 0 3 0 209 0 101 0)
sv@1737
  1677
              hasHorizontalScrollBar: true
sv@1737
  1678
              hasVerticalScrollBar: true
sv@1737
  1679
              highlightMode: line
cg@1179
  1680
            )
sv@1737
  1681
           (FileSelectionTreeSpec
sv@1737
  1682
              name: 'File Tree List'
sv@1737
  1683
              layout: (LayoutFrame 229 0 3 0 434 0 101 0)
sv@1737
  1684
              hasHorizontalScrollBar: true
sv@1737
  1685
              hasVerticalScrollBar: true
sv@1737
  1686
              highlightMode: line
cg@1179
  1687
            )
sv@1737
  1688
           (HierarchicalListViewSpec
sv@1737
  1689
              name: 'New ModelTree List'
sv@1737
  1690
              layout: (LayoutFrame 4 0 110 0 209 0 208 0)
sv@1737
  1691
              hasHorizontalScrollBar: true
sv@1737
  1692
              hasVerticalScrollBar: true
sv@1737
  1693
              highlightMode: line
cg@1179
  1694
            )
cg@1179
  1695
           )
cg@1179
  1696
         
cg@1179
  1697
        )
cg@1179
  1698
      )
cg@1179
  1699
!
cg@1179
  1700
ca@190
  1701
standardUserPanel
ca@93
  1702
    "this window spec was automatically generated by the ST/X UIPainter"
ca@93
  1703
ca@93
  1704
    "do not manually edit this - the painter/builder may not be able to
ca@93
  1705
     handle the specification if its corrupted."
ca@93
  1706
ca@93
  1707
    "
ca@190
  1708
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardUserPanel
ca@190
  1709
     UISelectionPanel new openInterface:#standardUserPanel
ca@93
  1710
    "
ca@93
  1711
ca@93
  1712
    <resource: #canvas>
ca@93
  1713
ca@93
  1714
    ^
ca@135
  1715
     
ca@93
  1716
       #(#FullSpec
tm@987
  1717
          #'window:' 
tm@987
  1718
           #(#WindowSpec
tm@987
  1719
              #'name:' 'UserPanel'
tm@987
  1720
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
tm@987
  1721
              #'label:' 'UserPanel'
tm@987
  1722
              #'bounds:' #(#Rectangle 0 0 445 162)
tm@987
  1723
          )
tm@987
  1724
          #'component:' 
tm@987
  1725
           #(#SpecCollection
tm@987
  1726
              #'collection:' 
tm@987
  1727
               #(
tm@987
  1728
                 #(#LabelSpec
tm@987
  1729
                    #'name:' 'helpText'
tm@987
  1730
                    #'layout:' #(#Point 10 0)
tm@987
  1731
                    #'labelChannel:' #userDefinedHelpText
tm@987
  1732
                    #'resizeForLabel:' true
tm@987
  1733
                    #'canUIDrag:' false
tm@987
  1734
                )
tm@987
  1735
              )
tm@987
  1736
          )
ca@93
  1737
      )
ca@93
  1738
! !
ca@93
  1739
cg@2236
  1740
!UISelectionPanel class methodsFor:'menus'!
cg@2236
  1741
cg@2236
  1742
menuSelected
cg@2236
  1743
cg@2236
  1744
    <resource: #menu>
cg@2236
  1745
cg@2236
  1746
    ^ #(#Menu #(
cg@2236
  1747
                #(#MenuItem
cg@2236
  1748
                        #'label:' 'copy'
cg@2236
  1749
                        #'value:' #copy
cg@2236
  1750
                 )
cg@2236
  1751
                #(#MenuItem
cg@2236
  1752
                        #'label:' 'cut'
cg@2236
  1753
                        #'value:' #cut
cg@2236
  1754
                 )
cg@2236
  1755
                )
cg@2236
  1756
               nil
cg@2236
  1757
               nil
cg@2236
  1758
        )
cg@2236
  1759
cg@2236
  1760
    "Modified: / 29.10.1997 / 03:20:30 / cg"
cg@2236
  1761
!
cg@2236
  1762
cg@2236
  1763
menuUnselected
cg@2236
  1764
    <resource: #menu>
cg@2236
  1765
cg@2236
  1766
    ^ #(#Menu #(
cg@2236
  1767
                #(#MenuItem
cg@2236
  1768
                        #'label:' 'paste'
cg@2236
  1769
                        #'value:' #paste
cg@2236
  1770
                 )
cg@2236
  1771
                )
cg@2236
  1772
               nil
cg@2236
  1773
               nil
cg@2236
  1774
        )
cg@2236
  1775
cg@2236
  1776
    "Modified: / 29.10.1997 / 03:20:38 / cg"
cg@2236
  1777
! !
cg@2236
  1778
cg@2236
  1779
!UISelectionPanel class methodsFor:'resources'!
cg@2236
  1780
cg@2236
  1781
classResources
cg@2236
  1782
    "my translations are found in the UIPainter classes resources"
cg@2236
  1783
cg@2236
  1784
    ^ UIPainter classResources 
cg@2236
  1785
! !
cg@2236
  1786
ca@182
  1787
!UISelectionPanel methodsFor:'actions'!
ca@93
  1788
ca@182
  1789
defineClassAndSelector
ca@182
  1790
    |bd cls sel lbl|
ca@112
  1791
ca@182
  1792
    bd := IdentityDictionary new.
ca@182
  1793
    bd at:#className put:( userClass asValue).
ca@182
  1794
    bd at:#specsKey  put:( (userSpecs  ? '') asValue).
ca@182
  1795
    bd at:#labelsKey put:( (userLabels ? '') asValue).
ca@182
  1796
    bd at:#updateDefaultResources put:(false asValue).
ca@182
  1797
ca@182
  1798
    (self openDialogInterface:#nameAndSelectorSpec withBindings:bd) ifTrue:[
tm@987
  1799
        (      (cls := (bd at:#className) value) notNil
tm@987
  1800
          and:[(sel := (bd at:#specsKey)  value) notNil
tm@987
  1801
          and:[(lbl := (bd at:#labelsKey) value) notNil]]
tm@987
  1802
        ) ifTrue:[
tm@987
  1803
            userClass  := cls.
tm@987
  1804
            userSpecs  := sel.
tm@987
  1805
            userLabels := lbl.
ca@182
  1806
tm@987
  1807
            (bd at:#updateDefaultResources) value ifTrue:[
tm@987
  1808
                UserClass  := userClass.
tm@987
  1809
                UserSpecs  := userSpecs.
tm@987
  1810
                UserLabels := userLabels.
tm@987
  1811
            ]
tm@987
  1812
        ]
ca@182
  1813
    ].
ca@182
  1814
!
ca@182
  1815
ca@182
  1816
paste:something
cg@2486
  1817
    "paste something at a point"
cg@2486
  1818
cg@3259
  1819
    |coll specs point gallerysDevice ext spec|
ca@182
  1820
ca@182
  1821
    clipBoardSpec isNil ifTrue:[
tm@987
  1822
        clipBoardSpec := SpecCollection new.
tm@987
  1823
        clipBoardSpec collection:(OrderedCollection new).
ca@182
  1824
    ].
cg@1142
  1825
    coll   := clipBoardSpec collection.
cg@3259
  1826
    gallerysDevice := gallery device.
ca@182
  1827
cg@3259
  1828
    point  := gallerysDevice translatePoint:(gallerysDevice pointerPosition)
cg@1500
  1829
                           fromView:nil
cg@1500
  1830
                             toView:(gallery canvas).
ca@182
  1831
ca@182
  1832
    point y < 1 ifTrue:[point y:1].
ca@182
  1833
    ext := gallery extent - (10@10).
ca@182
  1834
ca@182
  1835
    (specs := something) isCollection ifFalse:[
tm@987
  1836
        specs := Array with:something
ca@182
  1837
    ].
ca@182
  1838
ca@182
  1839
    specs do:[:aSpec|
tm@987
  1840
        point x > ext x ifTrue:[point x:1].
tm@987
  1841
        point y > ext y ifTrue:[point y:1].
ca@182
  1842
tm@987
  1843
        spec := aSpec copy.
cg@3128
  1844
        spec keepUILayout ifFalse:[
cg@3128
  1845
            spec layout:(LayoutOrigin fromPoint:point).
cg@3128
  1846
        ].
tm@987
  1847
        coll add:spec.
tm@987
  1848
        point := point + (20@20).
ca@182
  1849
    ].
ca@182
  1850
    gallery update.
cg@1500
  1851
cg@1500
  1852
    "Modified: / 10.10.2001 / 14:14:36 / cg"
ca@182
  1853
!
ca@182
  1854
ca@182
  1855
raiseMenu
cg@2486
  1856
    "can open menu"
cg@2486
  1857
cg@251
  1858
    |spec menu value paste|
ca@182
  1859
ca@182
  1860
    spec := self clientSpec value.
ca@182
  1861
ca@182
  1862
    spec notNil ifTrue:[
tm@987
  1863
        menu := self class menuSelected decodeAsLiteralArray.
tm@987
  1864
        self isClipBoard ifFalse:[
tm@987
  1865
            (menu someMenuItemWithValue:#cut) disable.
tm@987
  1866
        ].
ca@182
  1867
tm@987
  1868
        (value := menu startUp) == #cut ifTrue:[
tm@987
  1869
            clipBoardSpec collection remove:spec ifAbsent:nil.
cg@1142
  1870
            gallery update.
tm@987
  1871
        ] ifFalse:[
tm@987
  1872
            value == #copy ifTrue:[
ca@1870
  1873
                self window setClipboardObject:spec
tm@987
  1874
            ]
tm@987
  1875
        ].
ca@182
  1876
      ^ self
ca@182
  1877
    ].
ca@182
  1878
ca@182
  1879
    self isUserBoard ifTrue:[
tm@987
  1880
        ^ self defineClassAndSelector
ca@182
  1881
    ].
ca@182
  1882
ca@1872
  1883
    paste := self window getClipboardObject.
ca@182
  1884
ca@182
  1885
    (self canPaste:paste) ifTrue:[
tm@987
  1886
        menu := self class menuUnselected decodeAsLiteralArray.
ca@182
  1887
tm@987
  1888
        (menu startUp) == #paste ifTrue:[
tm@987
  1889
            self paste:paste
tm@987
  1890
        ]
ca@182
  1891
    ].
ca@112
  1892
! !
ca@112
  1893
ca@112
  1894
!UISelectionPanel methodsFor:'aspects'!
ca@112
  1895
ca@182
  1896
clientSpec
cg@1142
  1897
    ^ gallery clientSpecHolder
ca@93
  1898
!
ca@93
  1899
ca@182
  1900
clipBoardSpec
ca@182
  1901
    ^ clipBoardSpec
ca@182
  1902
!
ca@112
  1903
cg@1142
  1904
gallery
cg@1142
  1905
    ^ gallery
cg@1142
  1906
!
cg@1142
  1907
ca@182
  1908
galleryList
cg@1142
  1909
    ^ gallery listHolder
ca@112
  1910
!
ca@112
  1911
ca@182
  1912
galleryModel
cg@1142
  1913
    ^ gallery model
ca@182
  1914
ca@112
  1915
!
ca@112
  1916
ca@182
  1917
majorChannel
ca@112
  1918
    |holder|
ca@112
  1919
ca@182
  1920
    (holder := builder bindingAt:#majorChannel) isNil ifTrue:[
tm@987
  1921
        holder := AspectAdaptor new subject:self; forAspect:#majorSelection.
tm@987
  1922
        builder aspectAt:#majorChannel put:holder.
ca@112
  1923
    ].
ca@112
  1924
    ^ holder
ca@182
  1925
!
ca@112
  1926
ca@182
  1927
majorList
cg@2486
  1928
    ^ self class specifications collect:[:el| el first]
ca@182
  1929
!
ca@182
  1930
ca@182
  1931
minorKeys
cg@1142
  1932
    ^ gallery minorKeysHolder
ca@182
  1933
! !
ca@182
  1934
ca@182
  1935
!UISelectionPanel methodsFor:'change & update'!
ca@182
  1936
ca@182
  1937
update:something with:aParameter from:changedObject
cg@2486
  1938
    "one of my models changed its value"
cg@2486
  1939
cg@2363
  1940
    |label|
ca@182
  1941
cg@2363
  1942
    changedObject == self clientSpec  ifTrue:[
cg@2363
  1943
        (label := changedObject value) notNil ifTrue:[
cg@2363
  1944
            label := 'Widget Gallery: ' , label name.
tm@987
  1945
        ] ifFalse:[
cg@1587
  1946
            label := 'Widget Gallery'
cg@1587
  1947
        ].
cg@1587
  1948
        builder window topView label:(label , ' ')
ca@182
  1949
    ].
ca@182
  1950
ca@182
  1951
    super update:something with:aParameter from:changedObject.
ca@182
  1952
! !
ca@182
  1953
ca@182
  1954
!UISelectionPanel methodsFor:'drag & drop'!
ca@182
  1955
cg@2115
  1956
canDropObjects:aCollectionOfDropObjects in:aComponent
cg@1953
  1957
    ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]).
cg@2115
  1958
cg@2115
  1959
    "Created: / 13-10-2006 / 15:53:04 / cg"
ca@182
  1960
!
ca@182
  1961
cg@2120
  1962
dropObjects:aCollectionOfDropObjects in:aComponent
ca@182
  1963
ca@182
  1964
    |spc top|
ca@182
  1965
sv@1061
  1966
    top := DragAndDropManager dragOriginatorQuerySignal query topView.
ca@182
  1967
ca@182
  1968
    top == aComponent topView ifTrue:[
tm@987
  1969
        spc := self clientSpec value.
tm@987
  1970
        spc isNil ifTrue:[^ self].
ca@182
  1971
tm@987
  1972
        (clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[
tm@987
  1973
            ^ self
tm@987
  1974
        ].
ca@182
  1975
    ] ifFalse:[
cg@1953
  1976
        spc := aCollectionOfDropObjects collect:[:el| el theObject].
ca@182
  1977
    ].
ca@182
  1978
    self paste:spc.
sv@1061
  1979
cg@2119
  1980
    "Modified: / 18-03-1999 / 18:29:19 / stefan"
cg@2120
  1981
    "Created: / 13-10-2006 / 18:25:50 / cg"
ca@182
  1982
! !
ca@182
  1983
cg@2025
  1984
!UISelectionPanel methodsFor:'initialization'!
cg@2025
  1985
cg@2025
  1986
initialize
cg@2025
  1987
    |holder|
cg@2025
  1988
cg@2025
  1989
    super initialize.
cg@2025
  1990
cg@2025
  1991
    userClass  := UserClass.
cg@2025
  1992
    userSpecs  := UserSpecs.
cg@2025
  1993
    userLabels := UserLabels.
cg@2025
  1994
cg@2025
  1995
    gallery := UIGalleryView new.
cg@2025
  1996
cg@2025
  1997
    gallery           model:(ValueHolder new).
cg@2025
  1998
    gallery      listHolder:(ValueHolder new).
cg@2025
  1999
    gallery minorKeysHolder:(ValueHolder new).
cg@2025
  2000
    gallery    menuSelector:#raiseMenu.
cg@2025
  2001
cg@2025
  2002
    gallery clientSpecHolder:(holder := ValueHolder new).
cg@2025
  2003
    holder  addDependent:self.
cg@2025
  2004
cg@2025
  2005
    majorSelection := 0.
cg@2025
  2006
! !
cg@2025
  2007
ca@182
  2008
!UISelectionPanel methodsFor:'queries'!
ca@182
  2009
ca@182
  2010
canPaste:something
cg@2486
  2011
    "returns true if something could be paste"
cg@2486
  2012
ca@182
  2013
    (self isClipBoard and:[something notNil]) ifTrue:[
tm@987
  2014
        something isCollection ifTrue:[
tm@987
  2015
            something notEmpty ifTrue:[
tm@987
  2016
                ^ (something at:1) isKindOf:UISpecification
tm@987
  2017
            ]
tm@987
  2018
        ] ifFalse:[
tm@987
  2019
            ^ something isKindOf:UISpecification
tm@987
  2020
        ]
ca@182
  2021
    ].
ca@182
  2022
    ^ false
ca@182
  2023
!
ca@182
  2024
ca@182
  2025
isClipBoard
cg@2486
  2026
    "returns true if current view is clip board"
cg@2486
  2027
ca@291
  2028
    majorSelection ~~ 0 ifTrue:[
tm@987
  2029
        ^ (self majorList at:majorSelection) startsWith:'Clip'
ca@182
  2030
    ].
cg@2486
  2031
    ^ false
ca@182
  2032
!
ca@182
  2033
ca@182
  2034
isUserBoard
cg@2486
  2035
    "returns true if current view is clip board"
cg@2486
  2036
ca@291
  2037
    majorSelection ~~ 0 ifTrue:[
tm@987
  2038
        ^ (self majorList at:majorSelection) startsWith:'User'
ca@182
  2039
    ].
cg@2486
  2040
    ^ false
ca@112
  2041
! !
ca@112
  2042
ca@112
  2043
!UISelectionPanel methodsFor:'selection'!
ca@112
  2044
ca@182
  2045
majorSelection
ca@291
  2046
    ^ majorSelection ? 0
ca@112
  2047
!
ca@112
  2048
ca@182
  2049
majorSelection:aSelection
cg@1142
  2050
    |spec model|
ca@112
  2051
ca@291
  2052
    (majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
tm@987
  2053
        ^ self
ca@139
  2054
    ].
ca@684
  2055
cg@1142
  2056
    gallery builder:nil.
ca@182
  2057
    majorSelection := aSelection.
ca@684
  2058
    spec := ((self class specifications) at:majorSelection) last.
ca@684
  2059
cg@1142
  2060
    model := self galleryModel.
cg@1142
  2061
    model value:0.
ca@684
  2062
    self minorKeys value:nil.
ca@182
  2063
ca@182
  2064
    spec isSymbol ifFalse:[
tm@987
  2065
        self galleryList  value:(spec collect:[:a| a first]).
tm@987
  2066
        self minorKeys setValue:(spec collect:[:a| a last]).
ca@182
  2067
    ] ifTrue:[
tm@987
  2068
        self perform:spec.
ca@112
  2069
    ].
cg@1142
  2070
    model value:1.
ca@112
  2071
cg@795
  2072
    "Modified: / 21.4.1998 / 11:59:08 / cg"
ca@93
  2073
! !
ca@93
  2074
cg@1716
  2075
!UISelectionPanel methodsFor:'startup & release'!
ca@93
  2076
ca@182
  2077
closeRequest
ca@182
  2078
    |sav|
ca@93
  2079
ca@182
  2080
    (sav := masterApplication) notNil ifTrue:[
tm@987
  2081
        masterApplication := nil.
tm@987
  2082
        sav closeRequestFor:(self window).
tm@987
  2083
        masterApplication := sav.
ca@182
  2084
    ] ifFalse:[
tm@987
  2085
        super closeRequest.
ca@182
  2086
    ]
cg@244
  2087
cg@244
  2088
    "Modified: 28.7.1997 / 09:44:40 / cg"
ca@182
  2089
!
ca@112
  2090
ca@684
  2091
postOpenWith:aBuilder
ca@182
  2092
    self majorChannel value:1.
cg@2025
  2093
    super postOpenWith:aBuilder.
ca@182
  2094
! !
ca@93
  2095
ca@182
  2096
!UISelectionPanel methodsFor:'user defined'!
ca@93
  2097
ca@182
  2098
userDefined
ca@182
  2099
    |cls lbl sel builder|
ca@329
  2100
ca@329
  2101
    cls := self resolveName:userClass.
ca@329
  2102
ca@329
  2103
    (cls notNil and:[(cls respondsTo:userLabels)]) ifTrue:[
tm@987
  2104
        lbl := cls perform:userLabels.
tm@987
  2105
        sel := Array new:(lbl size) withAll:#userDefinedSpec.
tm@987
  2106
        self galleryList value:lbl.
tm@987
  2107
        self minorKeys   value:sel.
ca@329
  2108
    ] ifFalse:[
tm@987
  2109
        builder := UIBuilder new isEditing:true.
ca@397
  2110
tm@987
  2111
        builder application:self.
cg@1142
  2112
        gallery builder:builder. 
tm@987
  2113
        self galleryList value:#( '???' ).
tm@987
  2114
        self minorKeys   value:#( standardUserPanel ).
ca@329
  2115
    ]
ca@93
  2116
!
ca@93
  2117
ca@182
  2118
userDefinedHelpText
ca@112
  2119
ca@182
  2120
^ '
ca@182
  2121
no user defined specifications are configured yet. To assign
cg@2486
  2122
user defined specifications to the gallery, press the middle
ca@182
  2123
button of your mouse to open a dialog.
ca@182
  2124
'
ca@112
  2125
!
ca@112
  2126
ca@182
  2127
userDefinedSpec
ca@182
  2128
    |cls spc idx|
ca@112
  2129
ca@329
  2130
    cls := self resolveName:userClass.
ca@112
  2131
ca@329
  2132
    (cls notNil and:[(cls respondsTo:userSpecs)]) ifTrue:[
tm@987
  2133
        spc := cls perform:userSpecs.
tm@987
  2134
        idx := self galleryModel value.
ca@329
  2135
tm@987
  2136
        idx <= spc size ifTrue:[
tm@987
  2137
            spc := spc at:idx.
tm@987
  2138
            (cls respondsTo:spc) ifTrue:[
tm@987
  2139
                ^ cls perform:spc
tm@987
  2140
            ]
tm@987
  2141
        ]
ca@93
  2142
    ].
ca@147
  2143
  ^ nil
ca@93
  2144
! !
ca@93
  2145
cg@387
  2146
!UISelectionPanel::UserDefinedGallery class methodsFor:'class initialization'!
cg@387
  2147
cg@387
  2148
initialize
cg@387
  2149
    "initialize my default user-def from the superclasses specs.
cg@387
  2150
     I.e. provide a clocks entry"
cg@387
  2151
cg@387
  2152
    LabelList := self defaultListOfLabels asOrderedCollection.
cg@387
  2153
    SelectorList := self defaultListOfSelectors asOrderedCollection.
cg@3142
  2154
    HolderList := OrderedCollection newWithSize:(SelectorList size).
cg@387
  2155
    NextUniqueNumber := 1.
cg@387
  2156
cg@387
  2157
    UISelectionPanel 
tm@987
  2158
        userClass:self
tm@987
  2159
        specSelector:#listOfSelectors
tm@987
  2160
        labelSelector:#listOfLabels.
cg@387
  2161
cg@387
  2162
    "
cg@387
  2163
     self initialize
cg@387
  2164
    "
cg@387
  2165
cg@387
  2166
    "Modified: / 5.12.1997 / 14:25:22 / cg"
cg@387
  2167
    "Created: / 8.12.1997 / 18:49:42 / cg"
cg@387
  2168
! !
cg@387
  2169
cg@387
  2170
!UISelectionPanel::UserDefinedGallery class methodsFor:'defaults'!
cg@387
  2171
cg@387
  2172
defaultListOfLabels
tm@987
  2173
    ^ #( 'Clocks etc.' 'Business Graphics' )
cg@387
  2174
cg@387
  2175
    "Created: / 8.12.1997 / 18:50:06 / cg"
cg@864
  2176
    "Modified: / 16.6.1998 / 10:20:12 / cg"
cg@387
  2177
!
cg@387
  2178
cg@387
  2179
defaultListOfSelectors
tm@987
  2180
    ^ #( clocksSpec businessGraphicsSpec)
cg@387
  2181
cg@387
  2182
    "Modified: / 5.12.1997 / 14:03:55 / cg"
cg@387
  2183
    "Created: / 8.12.1997 / 18:50:21 / cg"
cg@387
  2184
! !
cg@387
  2185
cg@387
  2186
!UISelectionPanel::UserDefinedGallery class methodsFor:'documentation'!
cg@387
  2187
cg@387
  2188
copyright
cg@387
  2189
"
cg@387
  2190
 COPYRIGHT (c) 1997 by eXept Software AG
tm@987
  2191
              All Rights Reserved
cg@387
  2192
cg@387
  2193
 This software is furnished under a license and may be used
cg@387
  2194
 only in accordance with the terms of that license and with the
cg@387
  2195
 inclusion of the above copyright notice.   This software may not
cg@387
  2196
 be provided or otherwise made available to, or used by, any
cg@387
  2197
 other person.  No title to or ownership of the software is
cg@387
  2198
 hereby transferred.
cg@387
  2199
"
cg@387
  2200
cg@387
  2201
cg@387
  2202
cg@387
  2203
!
cg@387
  2204
cg@387
  2205
documentation
cg@387
  2206
"
cg@387
  2207
    The standard user-defined selectionPanel entry.
cg@387
  2208
    Here, a single item named 'clocks' is provided, containing
cg@387
  2209
    an analog and digital clock.
sv@2216
  2210
    This is a dumb example; the actual user-defined panel may be
cg@387
  2211
    extended dynamically.
cg@387
  2212
cg@387
  2213
    Frameworks which provide additional widgets may dynamically
cg@387
  2214
    add more entries, by sending #addUserSpecHolder:label:
cg@387
  2215
    or #removeUserSpecWithLabel:.
cg@387
  2216
    Typically, this is done when a framework is loaded, by one of the
cg@387
  2217
    frameworks class-initialization methods.
cg@387
  2218
cg@387
  2219
    [start with:]
tm@987
  2220
        UISelectionPanel open
cg@387
  2221
cg@387
  2222
    [author:]
tm@987
  2223
        Claus Gittinger
tm@987
  2224
        Claus Atzkern
cg@387
  2225
cg@387
  2226
    [see also:]
tm@987
  2227
        TabView
tm@987
  2228
        NoteBookView
tm@987
  2229
        UIGalleryView
tm@987
  2230
        UIPainter
cg@387
  2231
cg@387
  2232
"
cg@387
  2233
! !
cg@387
  2234
cg@387
  2235
!UISelectionPanel::UserDefinedGallery class methodsFor:'installation / deinstallation'!
cg@387
  2236
cg@387
  2237
addUserSpecHolder:aValueHolder label:aLabelString
cg@387
  2238
    "add a new entry with the given label.
cg@387
  2239
     The specHolder is typically either a spec, a valueHolder or a block.
cg@387
  2240
     In any case, it should return a valid spec from the #value message.
cg@387
  2241
     This spec is installed under that label."
cg@387
  2242
cg@387
  2243
    |syntheticSelector idx|
cg@387
  2244
cg@387
  2245
    syntheticSelector := ('userSpec' , NextUniqueNumber printString) asSymbol.
cg@387
  2246
    NextUniqueNumber := NextUniqueNumber + 1.
cg@387
  2247
cg@387
  2248
    idx := LabelList indexOf:aLabelString.
cg@387
  2249
    idx ~~ 0 ifTrue:[
tm@987
  2250
        SelectorList at:idx put:syntheticSelector.
tm@987
  2251
        HolderList at:idx put:aValueHolder
cg@387
  2252
    ] ifFalse:[
tm@987
  2253
        LabelList addLast:aLabelString.
tm@987
  2254
        SelectorList addLast:syntheticSelector.
tm@987
  2255
        HolderList addLast:aValueHolder
cg@387
  2256
    ]
cg@387
  2257
cg@387
  2258
    "Modified: / 5.12.1997 / 14:13:17 / cg"
cg@387
  2259
    "Created: / 8.12.1997 / 18:50:55 / cg"
cg@387
  2260
!
cg@387
  2261
cg@387
  2262
removeUserSpecWithLabel:aLabelString
cg@387
  2263
    "remove the spec which was previously installed under the given label"
cg@387
  2264
cg@387
  2265
    |idx|
cg@387
  2266
cg@387
  2267
    idx := LabelList indexOf:aLabelString.
cg@387
  2268
    idx ~~ 0 ifTrue:[
tm@987
  2269
        LabelList removeIndex:idx.
tm@987
  2270
        SelectorList removeIndex:idx.
tm@987
  2271
        HolderList removeIndex:idx
cg@387
  2272
    ].
cg@387
  2273
cg@387
  2274
    "Modified: / 5.12.1997 / 14:13:45 / cg"
cg@387
  2275
    "Created: / 8.12.1997 / 18:51:03 / cg"
cg@387
  2276
! !
cg@387
  2277
cg@387
  2278
!UISelectionPanel::UserDefinedGallery class methodsFor:'user defined gallery'!
ca@207
  2279
tm@987
  2280
businessGraphicsSpec
tm@987
  2281
    "This resource specification was automatically generated
tm@987
  2282
     by the UIPainter of ST/X."
tm@987
  2283
tm@987
  2284
    "Do not manually edit this!! If it is corrupted,
tm@987
  2285
     the UIPainter may not be able to read the specification."
tm@987
  2286
tm@987
  2287
    "
tm@987
  2288
     UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#businessGraphicsSpec
tm@987
  2289
    "
tm@987
  2290
tm@987
  2291
    <resource: #canvas>
tm@987
  2292
cg@1456
  2293
    ^ 
sv@1737
  2294
     #(FullSpec
sv@1737
  2295
        name: businessGraphicsSpec
sv@1737
  2296
        window: 
sv@1737
  2297
       (WindowSpec
sv@1737
  2298
          label: 'Interface Builder'
sv@1737
  2299
          name: 'Interface Builder'
sv@1737
  2300
          min: (Point 10 10)
sv@1737
  2301
          bounds: (Rectangle 14 46 394 317)
cg@1456
  2302
        )
sv@1737
  2303
        component: 
sv@1737
  2304
       (SpecCollection
sv@1737
  2305
          collection: (
sv@1737
  2306
           (LabelSpec
sv@1737
  2307
              label: 'PieChart'
sv@1737
  2308
              name: 'Label2'
sv@1737
  2309
              layout: (LayoutFrame 5 0 5 0 126 0 20 0)
sv@1737
  2310
              translateLabel: true
sv@1737
  2311
              canUIDrag: false
cg@1456
  2312
            )
sv@1737
  2313
           (PieChartWidgetSpec
sv@1737
  2314
              name: 'PIE Chart'
sv@1737
  2315
              layout: (LayoutFrame 15 0 21 0 103 0 141 0)
cg@1456
  2316
            )
sv@1737
  2317
           (LabelSpec
sv@1737
  2318
              label: 'ChartDescription'
sv@1737
  2319
              name: 'Label1'
sv@1737
  2320
              layout: (LayoutFrame 8 0.0 153 0 131 0 168 0)
sv@1737
  2321
              translateLabel: true
sv@1737
  2322
              canUIDrag: false
cg@1456
  2323
            )
sv@1737
  2324
           (ChartDescriptionSpec
sv@1737
  2325
              name: 'Chart Legend'
sv@1737
  2326
              layout: (LayoutFrame 14 0.0 -9 0.656827 14 0.323684 -9 1.0)
cg@1456
  2327
            )
sv@1737
  2328
           (LabelSpec
sv@1737
  2329
              label: 'BarChart'
sv@1737
  2330
              name: 'Label3'
sv@1737
  2331
              layout: (LayoutFrame 115 0 5 0 237 0 20 0)
sv@1737
  2332
              translateLabel: true
sv@1737
  2333
              canUIDrag: false
cg@1456
  2334
            )
sv@1737
  2335
           (BarChartWidgetSpec
sv@1737
  2336
              name: 'Bar Chart'
sv@1737
  2337
              layout: (LayoutFrame 121 0 21 0 232 0 141 0)
cg@1456
  2338
            )
cg@1456
  2339
           )
cg@1456
  2340
         
cg@1456
  2341
        )
tm@987
  2342
      )
tm@987
  2343
!
tm@987
  2344
ca@207
  2345
clocksSpec
cg@864
  2346
    "This resource specification was automatically generated
cg@864
  2347
     by the UIPainter of ST/X."
ca@207
  2348
cg@864
  2349
    "Do not manually edit this!! If it is corrupted,
cg@864
  2350
     the UIPainter may not be able to read the specification."
ca@207
  2351
ca@207
  2352
    "
tz@726
  2353
     UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#clocksSpec
ca@207
  2354
    "
ca@207
  2355
ca@207
  2356
    <resource: #canvas>
ca@207
  2357
cg@1456
  2358
    ^ 
sv@1737
  2359
     #(FullSpec
sv@1737
  2360
        name: clocksSpec
sv@1737
  2361
        window: 
sv@1737
  2362
       (WindowSpec
sv@1737
  2363
          label: 'Interface Builder'
sv@1737
  2364
          name: 'Interface Builder'
sv@1737
  2365
          min: (Point 10 10)
sv@1737
  2366
          bounds: (Rectangle 14 46 439 319)
cg@1456
  2367
        )
sv@1737
  2368
        component: 
sv@1737
  2369
       (SpecCollection
sv@1737
  2370
          collection: (
sv@1737
  2371
           (NonScrollableArbitraryComponentSpec
sv@1737
  2372
              name: 'Analog Clock'
sv@1737
  2373
              layout: (LayoutFrame 15 0 39 0 129 0 151 0)
sv@1737
  2374
              hasBorder: false
sv@1737
  2375
              component: ClockView
cg@1456
  2376
            )
sv@1737
  2377
           (NonScrollableArbitraryComponentSpec
sv@1737
  2378
              name: 'Digital Clock'
sv@1737
  2379
              layout: (LayoutOrigin 15 0 176 0)
sv@1737
  2380
              hasBorder: false
sv@1737
  2381
              component: DigitalClockView
cg@1456
  2382
            )
sv@1737
  2383
           (NonScrollableArbitraryComponentSpec
sv@1737
  2384
              name: 'Digital Number display'
sv@1737
  2385
              layout: (LayoutOrigin 142 0 39 0)
sv@1737
  2386
              hasBorder: false
sv@1737
  2387
              component: DigitalLedDisplay
cg@1456
  2388
            )
sv@1737
  2389
           (LabelSpec
sv@1737
  2390
              label: 'Analog Clock'
sv@1737
  2391
              name: 'Label1'
sv@1737
  2392
              layout: (LayoutFrame 15 0 16 0 128 0 38 0)
sv@1737
  2393
              translateLabel: true
sv@1737
  2394
              adjust: left
sv@1737
  2395
              canUIDrag: false
cg@1456
  2396
            )
sv@1737
  2397
           (LabelSpec
sv@1737
  2398
              label: 'Number Display'
sv@1737
  2399
              name: 'Label2'
sv@1737
  2400
              layout: (LayoutFrame 142 0 16 0 270 0 38 0)
sv@1737
  2401
              translateLabel: true
sv@1737
  2402
              adjust: left
sv@1737
  2403
              canUIDrag: false
cg@1456
  2404
            )
sv@1737
  2405
           (LabelSpec
sv@1737
  2406
              label: 'Digital Clock'
sv@1737
  2407
              name: 'Label3'
sv@1737
  2408
              layout: (LayoutFrame 15 0 155 0 128 0 177 0)
sv@1737
  2409
              translateLabel: true
sv@1737
  2410
              adjust: left
sv@1737
  2411
              canUIDrag: false
cg@1456
  2412
            )
sv@1737
  2413
           (MeterWidgetSpec
sv@1737
  2414
              name: 'Meter Widget'
sv@1737
  2415
              layout: (Rectangle 143 99 259 216)
sv@1737
  2416
              model: meterValue
cg@1456
  2417
            )
sv@1737
  2418
           (LabelSpec
sv@1737
  2419
              label: 'Meter Widget'
sv@1737
  2420
              name: 'Label4'
sv@1737
  2421
              layout: (LayoutFrame 142 0 77 0 269 0 99 0)
sv@1737
  2422
              translateLabel: true
sv@1737
  2423
              canUIDrag: false
cg@1456
  2424
            )
sv@1737
  2425
           (MeterClackCounterSpec
sv@1737
  2426
              name: 'Meter Clack Counter'
sv@1737
  2427
              layout: (Rectangle 291 40 387 72)
sv@1737
  2428
              model: model
cg@1456
  2429
            )
sv@1737
  2430
           (LabelSpec
sv@1737
  2431
              label: 'Meter Clack Counter'
sv@1737
  2432
              name: 'Label5'
sv@1737
  2433
              layout: (LayoutFrame 290 0 16 0 417 0 38 0)
sv@1737
  2434
              translateLabel: true
sv@1737
  2435
              adjust: left
sv@1737
  2436
              canUIDrag: false
cg@1456
  2437
            )
cg@1456
  2438
           )
cg@1456
  2439
         
cg@1456
  2440
        )
ca@207
  2441
      )
ca@207
  2442
!
ca@207
  2443
ca@207
  2444
listOfLabels
cg@387
  2445
    ^ LabelList
ca@207
  2446
cg@387
  2447
    "Created: / 5.12.1997 / 13:43:03 / cg"
cg@387
  2448
    "Modified: / 8.12.1997 / 18:51:20 / cg"
ca@207
  2449
!
ca@207
  2450
ca@207
  2451
listOfSelectors
cg@387
  2452
    ^ SelectorList
ca@207
  2453
cg@387
  2454
    "Created: / 5.12.1997 / 13:43:13 / cg"
cg@387
  2455
    "Modified: / 8.12.1997 / 18:51:28 / cg"
cg@387
  2456
! !
ca@207
  2457
cg@387
  2458
!UISelectionPanel::UserDefinedGallery class methodsFor:'user spec access'!
cg@387
  2459
cg@387
  2460
doesNotUnderstand:aMessage
cg@387
  2461
    "catch queries for a userSpec"
cg@387
  2462
cg@387
  2463
    |sel idx|
cg@387
  2464
cg@387
  2465
    ((sel := aMessage selector) startsWith:'userSpec') ifTrue:[
tm@987
  2466
        idx := SelectorList indexOf:sel.
tm@987
  2467
        idx ~~ 0 ifTrue:[
tm@987
  2468
            ^ (HolderList at:idx) value
tm@987
  2469
        ]
cg@387
  2470
    ].
cg@387
  2471
    ^ super doesNotUnderstand:aMessage
cg@387
  2472
cg@387
  2473
    "Modified: / 5.12.1997 / 14:23:24 / cg"
cg@387
  2474
    "Created: / 8.12.1997 / 18:51:50 / cg"
cg@387
  2475
!
cg@387
  2476
cg@387
  2477
respondsTo:aSelector
cg@387
  2478
    "catch queries for a userSpec"
cg@387
  2479
cg@387
  2480
    |idx|
cg@387
  2481
cg@387
  2482
    (aSelector startsWith:'userSpec') ifTrue:[
tm@987
  2483
        idx := Number fromString:(aSelector copyFrom:9).
tm@987
  2484
        idx := SelectorList indexOf:aSelector.
tm@987
  2485
        idx ~~ 0 ifTrue:[^ true].
cg@387
  2486
    ].
cg@387
  2487
    ^ super respondsTo:aSelector
cg@387
  2488
cg@387
  2489
    "Modified: / 5.12.1997 / 14:19:55 / cg"
cg@387
  2490
    "Created: / 8.12.1997 / 18:51:57 / cg"
ca@207
  2491
! !
ca@207
  2492
ca@93
  2493
!UISelectionPanel class methodsFor:'documentation'!
ca@93
  2494
ca@93
  2495
version
ca@93
  2496
    ^ '$Header$'
cg@2713
  2497
!
cg@2713
  2498
cg@2713
  2499
version_CVS
cg@2713
  2500
    ^ '$Header$'
ca@93
  2501
! !
sv@1628
  2502
cg@3059
  2503
ca@207
  2504
UISelectionPanel initialize!
sv@1628
  2505
UISelectionPanel::UserDefinedGallery initialize!