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