UISelectionPanel.st
author Claus Gittinger <cg@exept.de>
Sat, 21 Jul 2012 18:58:03 +0200
changeset 2898 c7f6c498df6a
parent 2713 f766f0c6e7d7
child 3059 cc9b8daf00bc
permissions -rw-r--r--
category of:15 methods
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@2713
   577
          bounds: (Rectangle 0 0 440 196)
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@2713
   685
           (ActionButtonSpec
cg@2713
   686
              label: '...'
cg@2713
   687
              name: 'Button1'
cg@2713
   688
              layout: (LayoutFrame 0 0 160 0 20 0 182 0)
cg@2713
   689
              translateLabel: true
cg@2713
   690
              model: someAction
cg@2713
   691
            )
cg@1142
   692
           )
cg@1142
   693
         
cg@1142
   694
        )
tz@677
   695
      )
tz@677
   696
!
tz@677
   697
cg@1168
   698
standardEmbed
cg@1168
   699
    "This resource specification was automatically generated
cg@1168
   700
     by the UIPainter of ST/X."
cg@1168
   701
cg@1168
   702
    "Do not manually edit this!! If it is corrupted,
cg@1168
   703
     the UIPainter may not be able to read the specification."
cg@1168
   704
cg@1168
   705
    "
cg@1168
   706
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardEmbed
cg@1168
   707
     UISelectionPanel new openInterface:#standardEmbed
cg@1168
   708
    "
cg@1168
   709
cg@1168
   710
    <resource: #canvas>
cg@1168
   711
cg@1168
   712
    ^ 
sv@1737
   713
     #(FullSpec
sv@1737
   714
        name: standardEmbed
sv@1737
   715
        window: 
sv@1737
   716
       (WindowSpec
sv@1737
   717
          label: 'Misc'
sv@1737
   718
          name: 'Misc'
sv@1737
   719
          min: (Point 10 10)
sv@1737
   720
          bounds: (Rectangle 14 46 456 269)
cg@1168
   721
        )
sv@1737
   722
        component: 
sv@1737
   723
       (SpecCollection
sv@1737
   724
          collection: (
sv@1737
   725
           (ArbitraryComponentSpec
sv@1737
   726
              name: 'Arbitrary Component'
sv@1737
   727
              layout: (LayoutFrame 3 0 3 0 128 0 104 0)
sv@1737
   728
              hasBorder: false
cg@1168
   729
            )
sv@1737
   730
           (LabelSpec
sv@1737
   731
              label: 'Scrollable'
sv@1737
   732
              name: 'ScrollableArbitraryLabel1'
sv@1737
   733
              layout: (AlignmentOrigin 7 0 7 0 0 0)
sv@1737
   734
              style: (FontDescription helvetica medium roman 10)
sv@1737
   735
              resizeForLabel: true
sv@1737
   736
              adjust: left
sv@1737
   737
              canUIDrag: false
cg@1168
   738
            )
sv@1737
   739
           (LabelSpec
sv@1737
   740
              label: 'Arbitrary-'
sv@1737
   741
              name: 'ScrollableArbitraryLabel2'
sv@1737
   742
              layout: (AlignmentOrigin 7 0 23 0 0 0)
sv@1737
   743
              style: (FontDescription helvetica medium roman 10)
sv@1737
   744
              resizeForLabel: true
sv@1737
   745
              adjust: left
sv@1737
   746
              canUIDrag: false
cg@1549
   747
            )
sv@1737
   748
           (LabelSpec
sv@1737
   749
              label: 'Component'
sv@1737
   750
              name: 'ScrollableArbitraryLabel3'
sv@1737
   751
              layout: (AlignmentOrigin 7 0 39 0 0 0)
sv@1737
   752
              style: (FontDescription helvetica medium roman 10)
sv@1737
   753
              resizeForLabel: true
sv@1737
   754
              adjust: left
sv@1737
   755
              canUIDrag: false
cg@1168
   756
            )
sv@1737
   757
           (UISubSpecification
sv@1737
   758
              name: 'SubSpecification'
sv@1737
   759
              layout: (LayoutFrame 145 0 3 0 280 0 104 0)
cg@1168
   760
            )
sv@1737
   761
           (LabelSpec
sv@1737
   762
              label: 'SubSpecification'
sv@1737
   763
              name: 'SubSpecificationLabel'
sv@1737
   764
              layout: (Point 149 7)
sv@1737
   765
              style: (FontDescription helvetica medium roman 10)
sv@1737
   766
              resizeForLabel: true
sv@1737
   767
              canUIDrag: false
cg@1168
   768
            )
sv@1737
   769
           (SubCanvasSpec
sv@1737
   770
              name: 'SubCanvas'
sv@1737
   771
              layout: (LayoutFrame 297 0 3 0 433 0 104 0)
sv@1737
   772
              hasHorizontalScrollBar: true
sv@1737
   773
              hasVerticalScrollBar: true
cg@1168
   774
            )
sv@1737
   775
           (LabelSpec
sv@1737
   776
              label: 'SubCanvas'
sv@1737
   777
              name: 'SubCanvasLabel'
sv@1737
   778
              layout: (AlignmentOrigin 324 0 7 0 0 0)
sv@1737
   779
              style: (FontDescription helvetica medium roman 10)
sv@1737
   780
              resizeForLabel: true
sv@1737
   781
              adjust: left
sv@1737
   782
              canUIDrag: false
cg@1168
   783
            )
sv@1737
   784
           (NonScrollableArbitraryComponentSpec
sv@1737
   785
              name: 'NonSrollable Arbitrary Component'
sv@1737
   786
              layout: (LayoutFrame 3 0 120 0 128 0 221 0)
ca@1434
   787
            )
sv@1737
   788
           (LabelSpec
sv@1737
   789
              label: 'NonScrollable'
sv@1737
   790
              name: 'NonScrollableArbitraryLabel1'
sv@1737
   791
              layout: (AlignmentOrigin 7 0 124 0 0 0)
sv@1737
   792
              style: (FontDescription helvetica medium roman 10)
sv@1737
   793
              resizeForLabel: true
sv@1737
   794
              adjust: left
sv@1737
   795
              canUIDrag: false
ca@1434
   796
            )
sv@1737
   797
           (LabelSpec
sv@1737
   798
              label: 'Arbitrary-'
sv@1737
   799
              name: 'NonScrollableArbitraryLabel2'
sv@1737
   800
              layout: (AlignmentOrigin 7 0 140 0 0 0)
sv@1737
   801
              style: (FontDescription helvetica medium roman 10)
sv@1737
   802
              resizeForLabel: true
sv@1737
   803
              adjust: left
sv@1737
   804
              canUIDrag: false
cg@1549
   805
            )
sv@1737
   806
           (LabelSpec
sv@1737
   807
              label: 'Component'
sv@1737
   808
              name: 'NonScrollableArbitraryLabel3'
sv@1737
   809
              layout: (AlignmentOrigin 7 0 156 0 0 0)
sv@1737
   810
              style: (FontDescription helvetica medium roman 10)
sv@1737
   811
              resizeForLabel: true
sv@1737
   812
              adjust: left
sv@1737
   813
              canUIDrag: false
ca@1434
   814
            )
cg@1168
   815
           )
cg@1168
   816
         
cg@1168
   817
        )
cg@1168
   818
      )
cg@1168
   819
!
cg@1168
   820
tz@677
   821
standardGraphs
cg@1142
   822
    "This resource specification was automatically generated
cg@1142
   823
     by the UIPainter of ST/X."
tz@677
   824
cg@1142
   825
    "Do not manually edit this!! If it is corrupted,
cg@1142
   826
     the UIPainter may not be able to read the specification."
tz@677
   827
tz@677
   828
    "
tz@677
   829
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardGraphs
tz@677
   830
     UISelectionPanel new openInterface:#standardGraphs
tz@677
   831
    "
tz@677
   832
tz@677
   833
    <resource: #canvas>
tz@677
   834
cg@1142
   835
    ^ 
sv@1737
   836
     #(FullSpec
sv@1737
   837
        name: standardGraphs
sv@1737
   838
        window: 
sv@1737
   839
       (WindowSpec
sv@1737
   840
          label: 'Graphs'
sv@1737
   841
          name: 'Graphs'
sv@1737
   842
          min: (Point 10 10)
sv@1737
   843
          bounds: (Rectangle 14 46 453 161)
cg@1142
   844
        )
sv@1737
   845
        component: 
sv@1737
   846
       (SpecCollection
sv@1737
   847
          collection: (
sv@1737
   848
           (GraphColumnView2DSpec
sv@1737
   849
              name: 'GraphColumnView2D'
sv@1737
   850
              layout: (LayoutFrame 3 0 3 0 208 0 98 0)
sv@1737
   851
              gridX: 0
sv@1737
   852
              gridY: 0
cg@1142
   853
            )
sv@1737
   854
           (LabelSpec
sv@1737
   855
              label: 'GraphColumnViewView2D'
sv@1737
   856
              name: 'GraphColumnView2DLabel'
sv@1737
   857
              layout: (AlignmentOrigin 7 0 7 0 0 0)
sv@1737
   858
              style: (FontDescription helvetica medium roman 10)
sv@1737
   859
              resizeForLabel: true
sv@1737
   860
              adjust: left
sv@1737
   861
              canUIDrag: false
cg@1142
   862
            )
sv@1737
   863
           (GraphColumnView3DSpec
sv@1737
   864
              name: 'GraphColumnView3D'
sv@1737
   865
              layout: (LayoutFrame 228 0 3 0 433 0 98 0)
cg@1142
   866
            )
sv@1737
   867
           (LabelSpec
sv@1737
   868
              label: 'GraphColumnViewView3D'
sv@1737
   869
              name: 'GraphColumnView3DLabel'
sv@1737
   870
              layout: (AlignmentOrigin 232 0 7 0 0 0)
sv@1737
   871
              style: (FontDescription helvetica medium roman 10)
sv@1737
   872
              resizeForLabel: true
sv@1737
   873
              adjust: left
sv@1737
   874
              canUIDrag: false
cg@1142
   875
            )
cg@1142
   876
           )
cg@1142
   877
         
cg@1142
   878
        )
tz@677
   879
      )
tz@677
   880
!
tz@677
   881
tz@677
   882
standardGroups
cg@1142
   883
    "This resource specification was automatically generated
cg@1142
   884
     by the UIPainter of ST/X."
tz@677
   885
cg@1142
   886
    "Do not manually edit this!! If it is corrupted,
cg@1142
   887
     the UIPainter may not be able to read the specification."
tz@677
   888
tz@677
   889
    "
tz@677
   890
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardGroups
tz@677
   891
     UISelectionPanel new openInterface:#standardGroups
tz@677
   892
    "
tz@677
   893
tz@677
   894
    <resource: #canvas>
tz@677
   895
cg@1142
   896
    ^ 
sv@1737
   897
     #(FullSpec
sv@1737
   898
        name: standardGroups
sv@1737
   899
        window: 
sv@1737
   900
       (WindowSpec
sv@1737
   901
          label: 'Groups'
sv@1737
   902
          name: 'Groups'
sv@1737
   903
          min: (Point 10 10)
werner@1831
   904
          bounds: (Rectangle 0 0 443 222)
cg@1142
   905
        )
sv@1737
   906
        component: 
sv@1737
   907
       (SpecCollection
sv@1737
   908
          collection: (
sv@1737
   909
           (ViewSpec
sv@1737
   910
              name: 'Box'
werner@1831
   911
              layout: (LayoutFrame 3 0 3 0 95 0 95 0)
werner@1831
   912
            )
werner@1831
   913
           (TransparentBoxSpec
werner@1831
   914
              name: 'TBox1'
werner@1831
   915
              layout: (LayoutFrame 113 0 3 0 204 0 95 0)
werner@1831
   916
            )
werner@1831
   917
           (LabelSpec
werner@1831
   918
              label: 'TransparentBox'
werner@1831
   919
              name: 'Label1'
werner@1831
   920
              layout: (AlignmentOrigin 106 0 5 0 0 0)
werner@1831
   921
              style: (FontDescription helvetica medium roman 10)
werner@1831
   922
              resizeForLabel: true
werner@1831
   923
              adjust: left
werner@1831
   924
              canUIDrag: false
cg@1142
   925
            )
sv@1737
   926
           (LabelSpec
sv@1737
   927
              label: 'Box'
sv@1737
   928
              name: 'ViewLabel'
sv@1737
   929
              layout: (AlignmentOrigin 6 0 5 0 0 0)
sv@1737
   930
              style: (FontDescription helvetica medium roman 10)
sv@1737
   931
              resizeForLabel: true
sv@1737
   932
              adjust: left
sv@1737
   933
              canUIDrag: false
cg@1142
   934
            )
sv@1737
   935
           (LabelSpec
sv@1737
   936
              label: 'Variable Panels'
sv@1737
   937
              name: 'VPanelLabel'
sv@1737
   938
              layout: (LayoutFrame 3 0 104 0 208 0 127 0)
sv@1737
   939
              style: (FontDescription helvetica medium roman 10)
sv@1737
   940
              adjust: left
sv@1737
   941
              canUIDrag: false
cg@1142
   942
            )
sv@1737
   943
           (VariableHorizontalPanelSpec
sv@1737
   944
              name: 'Variable Horizontal Panel'
sv@1737
   945
              layout: (LayoutFrame 3 0 128 0 98 0 218 0)
sv@1737
   946
              component: 
sv@1737
   947
             (SpecCollection
sv@1737
   948
                collection: (
sv@1737
   949
                 (LabelSpec
sv@1737
   950
                    label: 'A'
sv@1737
   951
                    name: 'label4'
werner@1831
   952
                    style: (FontDescription helvetica medium roman 12)
sv@1737
   953
                    level: 2
sv@1737
   954
                    canUIDrag: false
cg@1142
   955
                  )
sv@1737
   956
                 (LabelSpec
sv@1737
   957
                    label: 'B'
sv@1737
   958
                    name: 'label5'
werner@1831
   959
                    style: (FontDescription helvetica medium roman 12)
sv@1737
   960
                    level: 2
sv@1737
   961
                    canUIDrag: false
sv@1737
   962
                  )
sv@1737
   963
                 )
sv@1737
   964
               
sv@1737
   965
              )
sv@1737
   966
              handles: (Any 0.5 1.0)
sv@1737
   967
            )
sv@1737
   968
           (VariableVerticalPanelSpec
sv@1737
   969
              name: 'Variable Vertical Panel'
sv@1737
   970
              layout: (LayoutFrame 113 0 128 0 208 0 218 0)
sv@1737
   971
              component: 
sv@1737
   972
             (SpecCollection
sv@1737
   973
                collection: (
sv@1737
   974
                 (LabelSpec
sv@1737
   975
                    label: 'A'
sv@1737
   976
                    name: 'label9'
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
                 (LabelSpec
sv@1737
   982
                    label: 'B'
sv@1737
   983
                    name: 'label10'
werner@1831
   984
                    style: (FontDescription helvetica medium roman 12)
sv@1737
   985
                    level: 2
sv@1737
   986
                    canUIDrag: false
sv@1737
   987
                  )
sv@1737
   988
                 )
sv@1737
   989
               
sv@1737
   990
              )
sv@1737
   991
              handles: (Any 0.5 1.0)
sv@1737
   992
            )
sv@1737
   993
           (FramedBoxSpec
sv@1737
   994
              label: 'Framed Box'
sv@1737
   995
              name: 'Framed Box'
sv@1737
   996
              layout: (LayoutFrame 228 0 3 0 433 0 98 0)
sv@1737
   997
              labelPosition: topLeft
sv@1737
   998
              translateLabel: true
sv@1737
   999
            )
sv@1737
  1000
           (LabelSpec
sv@1737
  1001
              label: 'Panels'
sv@1737
  1002
              name: 'PanelLabel'
sv@1737
  1003
              layout: (LayoutFrame 228 0 104 0 433 0 127 0)
sv@1737
  1004
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1005
              adjust: left
sv@1737
  1006
              canUIDrag: false
sv@1737
  1007
            )
sv@1737
  1008
           (HorizontalPanelViewSpec
sv@1737
  1009
              name: 'Horizontal Panel'
sv@1737
  1010
              layout: (LayoutFrame 228 0 128 0 312 0 218 0)
sv@1737
  1011
              horizontalLayout: center
sv@1737
  1012
              verticalLayout: center
sv@1737
  1013
              horizontalSpace: 3
sv@1737
  1014
              verticalSpace: 3
sv@1737
  1015
              component: 
sv@1737
  1016
             (SpecCollection
sv@1737
  1017
                collection: (
sv@1737
  1018
                 (LabelSpec
sv@1737
  1019
                    label: 'A'
sv@1737
  1020
                    name: 'label1'
werner@1831
  1021
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1022
                    level: 2
sv@1737
  1023
                    extent: (Point 23 23)
sv@1737
  1024
                    canUIDrag: false
sv@1737
  1025
                  )
sv@1737
  1026
                 (LabelSpec
sv@1737
  1027
                    label: 'B'
sv@1737
  1028
                    name: 'label2'
werner@1831
  1029
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1030
                    level: 2
sv@1737
  1031
                    extent: (Point 23 23)
sv@1737
  1032
                    canUIDrag: false
sv@1737
  1033
                  )
sv@1737
  1034
                 (LabelSpec
sv@1737
  1035
                    label: 'C'
sv@1737
  1036
                    name: 'label3'
werner@1831
  1037
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1038
                    level: 2
sv@1737
  1039
                    extent: (Point 23 23)
sv@1737
  1040
                    canUIDrag: false
cg@1142
  1041
                  )
cg@1142
  1042
                 )
cg@1142
  1043
               
cg@1142
  1044
              )
cg@1142
  1045
            )
sv@1737
  1046
           (VerticalPanelViewSpec
sv@1737
  1047
              name: 'Vertical Panel'
sv@1737
  1048
              layout: (LayoutFrame 320 0 128 0 367 0 218 0)
sv@1737
  1049
              horizontalLayout: center
sv@1737
  1050
              verticalLayout: center
sv@1737
  1051
              horizontalSpace: 3
sv@1737
  1052
              verticalSpace: 3
sv@1737
  1053
              component: 
sv@1737
  1054
             (SpecCollection
sv@1737
  1055
                collection: (
sv@1737
  1056
                 (LabelSpec
sv@1737
  1057
                    label: 'A'
sv@1737
  1058
                    name: 'label6'
werner@1831
  1059
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1060
                    level: 2
sv@1737
  1061
                    extent: (Point 23 23)
sv@1737
  1062
                    canUIDrag: false
cg@1142
  1063
                  )
sv@1737
  1064
                 (LabelSpec
sv@1737
  1065
                    label: 'B'
sv@1737
  1066
                    name: 'label7'
werner@1831
  1067
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1068
                    level: 2
sv@1737
  1069
                    extent: (Point 23 23)
sv@1737
  1070
                    canUIDrag: false
sv@1737
  1071
                  )
sv@1737
  1072
                 (LabelSpec
sv@1737
  1073
                    label: 'C'
sv@1737
  1074
                    name: 'label8'
werner@1831
  1075
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1076
                    level: 2
sv@1737
  1077
                    extent: (Point 23 23)
sv@1737
  1078
                    canUIDrag: false
cg@1142
  1079
                  )
cg@1142
  1080
                 )
cg@1142
  1081
               
tm@987
  1082
              )
cg@1142
  1083
            )
sv@1737
  1084
           (PanelViewSpec
sv@1737
  1085
              name: 'Panel'
sv@1737
  1086
              layout: (LayoutFrame 375 0 128 0 433 0 218 0)
sv@1737
  1087
              horizontalLayout: fitSpace
sv@1737
  1088
              verticalLayout: fitSpace
sv@1737
  1089
              horizontalSpace: 3
sv@1737
  1090
              verticalSpace: 3
sv@1737
  1091
              component: 
sv@1737
  1092
             (SpecCollection
sv@1737
  1093
                collection: (
sv@1737
  1094
                 (LabelSpec
sv@1737
  1095
                    label: 'A'
sv@1737
  1096
                    name: 'label11'
werner@1831
  1097
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1098
                    level: 2
sv@1737
  1099
                    extent: (Point 23 23)
sv@1737
  1100
                    canUIDrag: false
cg@1142
  1101
                  )
sv@1737
  1102
                 (LabelSpec
sv@1737
  1103
                    label: 'B'
sv@1737
  1104
                    name: 'label12'
werner@1831
  1105
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1106
                    level: 2
sv@1737
  1107
                    extent: (Point 23 23)
sv@1737
  1108
                    canUIDrag: false
cg@1142
  1109
                  )
sv@1737
  1110
                 (LabelSpec
sv@1737
  1111
                    label: 'C'
sv@1737
  1112
                    name: 'label13'
werner@1831
  1113
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1114
                    level: 2
sv@1737
  1115
                    extent: (Point 23 23)
sv@1737
  1116
                    canUIDrag: false
cg@1142
  1117
                  )
sv@1737
  1118
                 (LabelSpec
sv@1737
  1119
                    label: 'D'
sv@1737
  1120
                    name: 'label14'
werner@1831
  1121
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1122
                    level: 2
sv@1737
  1123
                    extent: (Point 23 23)
sv@1737
  1124
                    canUIDrag: false
cg@1142
  1125
                  )
sv@1737
  1126
                 (LabelSpec
sv@1737
  1127
                    label: 'E'
sv@1737
  1128
                    name: 'label15'
werner@1831
  1129
                    style: (FontDescription helvetica medium roman 12)
sv@1737
  1130
                    level: 2
sv@1737
  1131
                    extent: (Point 23 23)
sv@1737
  1132
                    canUIDrag: false
cg@1142
  1133
                  )
cg@1142
  1134
                 )
cg@1142
  1135
               
cg@1142
  1136
              )
cg@1142
  1137
            )
cg@1142
  1138
           )
cg@1142
  1139
         
cg@1142
  1140
        )
ca@93
  1141
      )
ca@93
  1142
!
ca@93
  1143
tz@658
  1144
standardLists
cg@797
  1145
    "This resource specification was automatically generated
cg@797
  1146
     by the UIPainter of ST/X."
tz@658
  1147
cg@797
  1148
    "Do not manually edit this!! If it is corrupted,
cg@797
  1149
     the UIPainter may not be able to read the specification."
tz@658
  1150
tz@658
  1151
    "
tz@658
  1152
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardLists
tz@658
  1153
     UISelectionPanel new openInterface:#standardLists
tz@658
  1154
    "
tz@658
  1155
tz@658
  1156
    <resource: #canvas>
tz@658
  1157
cg@1142
  1158
    ^ 
sv@1737
  1159
     #(FullSpec
sv@1737
  1160
        name: standardLists
sv@1737
  1161
        window: 
sv@1737
  1162
       (WindowSpec
sv@1737
  1163
          label: 'Lists'
sv@1737
  1164
          name: 'Lists'
sv@1737
  1165
          min: (Point 10 10)
sv@1737
  1166
          bounds: (Rectangle 14 46 455 264)
cg@1142
  1167
        )
sv@1737
  1168
        component: 
sv@1737
  1169
       (SpecCollection
sv@1737
  1170
          collection: (
sv@1737
  1171
           (SequenceViewSpec
sv@1737
  1172
              name: 'List'
sv@1737
  1173
              layout: (LayoutFrame 3 0 3 0 208 0 101 0)
sv@1737
  1174
              hasHorizontalScrollBar: true
sv@1737
  1175
              hasVerticalScrollBar: true
sv@1737
  1176
              useIndex: false
cg@1142
  1177
            )
sv@1737
  1178
           (DataSetSpec
sv@1737
  1179
              name: 'Table'
sv@1737
  1180
              layout: (LayoutFrame 228 0 3 0 433 0 101 0)
sv@1737
  1181
              hasHorizontalScrollBar: true
sv@1737
  1182
              hasVerticalScrollBar: true
cg@1943
  1183
              has3Dseparators: false
cg@1142
  1184
            )
sv@1737
  1185
           (SelectionInListModelViewSpec
cg@2332
  1186
              name: 'SelectionInListModelView'
sv@1737
  1187
              layout: (LayoutFrame 3 0 110 0 208 0 208 0)
sv@1737
  1188
              hasHorizontalScrollBar: true
sv@1737
  1189
              hasVerticalScrollBar: true
sv@1737
  1190
              useIndex: false
sv@1737
  1191
              highlightMode: line
cg@1142
  1192
            )
cg@1142
  1193
           )
cg@1142
  1194
         
cg@1142
  1195
        )
ca@182
  1196
      )
ca@182
  1197
!
ca@182
  1198
ca@190
  1199
standardMenus
tz@753
  1200
    "This resource specification was automatically generated
tz@753
  1201
     by the UIPainter of ST/X."
ca@182
  1202
tz@753
  1203
    "Do not manually edit this!! If it is corrupted,
tz@753
  1204
     the UIPainter may not be able to read the specification."
ca@182
  1205
ca@182
  1206
    "
ca@302
  1207
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMenus
ca@302
  1208
     UISelectionPanel new openInterface:#standardMenus
ca@182
  1209
    "
ca@182
  1210
ca@182
  1211
    <resource: #canvas>
ca@182
  1212
cg@1142
  1213
    ^ 
sv@1737
  1214
     #(FullSpec
sv@1737
  1215
        name: standardMenus
sv@1737
  1216
        window: 
sv@1737
  1217
       (WindowSpec
sv@1737
  1218
          label: 'Menus'
sv@1737
  1219
          name: 'Menus'
sv@1737
  1220
          min: (Point 10 10)
sv@1737
  1221
          bounds: (Rectangle 14 46 491 269)
cg@1142
  1222
        )
sv@1737
  1223
        component: 
sv@1737
  1224
       (SpecCollection
sv@1737
  1225
          collection: (
sv@1737
  1226
           (MenuPanelSpec
sv@1737
  1227
              name: 'Tool Bar'
sv@1737
  1228
              layout: (LayoutFrame 4 0 134 0 129 0 166 0)
sv@1737
  1229
              textDefault: true
cg@1142
  1230
            )
sv@1737
  1231
           (LabelSpec
sv@1737
  1232
              label: 'Tool Bar'
sv@1737
  1233
              name: 'ToolBarLabel'
sv@1737
  1234
              layout: (AlignmentOrigin 4 0 134 0 0 1)
sv@1737
  1235
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1236
              resizeForLabel: true
sv@1737
  1237
              adjust: left
sv@1737
  1238
              canUIDrag: false
cg@1142
  1239
            )
sv@1737
  1240
           (MenuPanelSpec
sv@1737
  1241
              name: 'Menu Bar'
sv@1737
  1242
              layout: (LayoutFrame 4 0 188 0 129 0 210 0)
cg@1142
  1243
            )
sv@1737
  1244
           (LabelSpec
sv@1737
  1245
              label: 'Menu Bar'
sv@1737
  1246
              name: 'MenuBarLabel'
sv@1737
  1247
              layout: (AlignmentOrigin 4 0 187 0 0 1)
sv@1737
  1248
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1249
              resizeForLabel: true
sv@1737
  1250
              adjust: left
sv@1737
  1251
              canUIDrag: false
cg@1142
  1252
            )
sv@1737
  1253
           (PopUpListSpec
sv@1737
  1254
              label: 'PopUp List'
sv@1737
  1255
              name: 'PopUp List'
sv@1737
  1256
              layout: (LayoutFrame 4 0 3 0 129 0 25 0)
sv@1737
  1257
              tabable: true
cg@1142
  1258
            )
sv@1737
  1259
           (ComboListSpec
sv@1737
  1260
              name: 'Combo List'
sv@1737
  1261
              layout: (LayoutFrame 4 0 33 0 129 0 53 0)
sv@1737
  1262
              useIndex: false
cg@1142
  1263
            )
sv@1737
  1264
           (ComboBoxSpec
sv@1737
  1265
              name: 'Combo Box'
sv@1737
  1266
              layout: (LayoutFrame 4 0 61 0 129 0 81 0)
sv@1737
  1267
              acceptOnPointerLeave: false
cg@1142
  1268
            )
sv@1737
  1269
           (ExtendedComboBoxSpec
sv@1737
  1270
              name: 'Extended Combo Box'
sv@1737
  1271
              layout: (LayoutFrame 4 0 88 0 129 0 108 0)
sv@1737
  1272
              miniScrollerHorizontal: true
cg@1142
  1273
            )
sv@1737
  1274
           (TabViewSpec
sv@1737
  1275
              name: 'Tab Header'
sv@1737
  1276
              layout: (LayoutFrame 146 0 3 0 281 0 39 0)
cg@1142
  1277
            )
sv@1737
  1278
           (NoteBookViewSpec
sv@1737
  1279
              name: 'Note Book'
sv@1737
  1280
              layout: (LayoutFrame 146 0 46 0 281 0 138 0)
cg@1142
  1281
            )
sv@1737
  1282
           (UIGalleryViewSpec
sv@1737
  1283
              name: 'Gallery'
sv@1737
  1284
              layout: (LayoutFrame 298 0 3 0 434 0 138 0)
cg@1142
  1285
            )
sv@1737
  1286
           (ColorMenuSpec
sv@1737
  1287
              name: 'ColorMenu'
sv@1737
  1288
              layout: (LayoutFrame 143 0 188 0 -46 1.0 210 0)
sv@1737
  1289
              labelsAreColored: true
penk@1662
  1290
            )
sv@1737
  1291
           (LabelSpec
sv@1737
  1292
              label: 'Color Menu'
sv@1737
  1293
              name: 'Label1'
sv@1737
  1294
              layout: (AlignmentOrigin 142 0 187 0 0 1)
sv@1737
  1295
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1296
              resizeForLabel: true
sv@1737
  1297
              adjust: left
sv@1737
  1298
              canUIDrag: false
penk@1662
  1299
            )
cg@1142
  1300
           )
cg@1142
  1301
         
cg@1142
  1302
        )
ca@142
  1303
      )
ca@142
  1304
!
ca@142
  1305
tz@658
  1306
standardMisc
tz@753
  1307
    "This resource specification was automatically generated
tz@753
  1308
     by the UIPainter of ST/X."
ca@93
  1309
tz@753
  1310
    "Do not manually edit this!! If it is corrupted,
tz@753
  1311
     the UIPainter may not be able to read the specification."
ca@93
  1312
ca@93
  1313
    "
sv@1737
  1314
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMisc
sv@1737
  1315
     UISelectionPanel new openInterface:#standardMisc
ca@93
  1316
    "
ca@93
  1317
ca@93
  1318
    <resource: #canvas>
ca@93
  1319
cg@1142
  1320
    ^ 
sv@1737
  1321
     #(FullSpec
sv@1737
  1322
        name: standardMisc
sv@1737
  1323
        window: 
sv@1737
  1324
       (WindowSpec
sv@1737
  1325
          label: 'NewApplication'
sv@1737
  1326
          name: 'NewApplication'
sv@1737
  1327
          min: (Point 10 10)
sv@1737
  1328
          bounds: (Rectangle 14 46 453 289)
cg@1142
  1329
        )
sv@1737
  1330
        component: 
sv@1737
  1331
       (SpecCollection
sv@1737
  1332
          collection: (
sv@1737
  1333
           (LabelSpec
sv@1737
  1334
              label: 'StepSlider'
sv@1737
  1335
              name: 'StepSliderLabel'
sv@1737
  1336
              layout: (AlignmentOrigin 87 0 9 0 1 0)
sv@1737
  1337
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1338
              resizeForLabel: true
sv@1737
  1339
              canUIDrag: false
cg@1142
  1340
            )
sv@1737
  1341
           (LabelSpec
sv@1737
  1342
              label: 'Slider'
sv@1737
  1343
              name: 'SliderLabel'
sv@1737
  1344
              layout: (AlignmentOrigin 87 0 35 0 1 0)
sv@1737
  1345
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1346
              resizeForLabel: true
sv@1737
  1347
              canUIDrag: false
cg@1142
  1348
            )
sv@1737
  1349
           (SliderSpec
sv@1737
  1350
              name: 'Slider'
sv@1737
  1351
              layout: (LayoutFrame 88 0 34 0 203 0 52 0)
sv@1737
  1352
              orientation: horizontal
cg@1142
  1353
            )
sv@1737
  1354
           (LabelSpec
sv@1737
  1355
              label: 'ThumbWheel'
sv@1737
  1356
              name: 'ThumbWheelLabel'
sv@1737
  1357
              layout: (AlignmentOrigin 88 0 62 0 1 0)
sv@1737
  1358
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1359
              resizeForLabel: true
sv@1737
  1360
              canUIDrag: false
cg@1168
  1361
            )
sv@1737
  1362
           (ThumbWheelSpec
sv@1737
  1363
              name: 'Thumb Wheel'
sv@1737
  1364
              layout: (LayoutFrame 88 0 60 0 203 0 80 0)
sv@1737
  1365
              orientation: horizontal
cg@1168
  1366
            )
sv@1737
  1367
           (LabelSpec
sv@1737
  1368
              label: 'ScrollBar'
sv@1737
  1369
              name: 'ScrollBarLabel'
sv@1737
  1370
              layout: (AlignmentOrigin 87 0 103 0 1 0)
sv@1737
  1371
              initiallyInvisible: true
sv@1737
  1372
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1373
              resizeForLabel: true
sv@1737
  1374
              canUIDrag: false
cg@1168
  1375
            )
sv@1737
  1376
           (LabelSpec
sv@1737
  1377
              label: 'Scroller'
sv@1737
  1378
              name: 'ScrollerLabel'
sv@1737
  1379
              layout: (AlignmentOrigin 87 0 130 0 1 0)
sv@1737
  1380
              initiallyInvisible: true
sv@1737
  1381
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1382
              resizeForLabel: true
sv@1737
  1383
              canUIDrag: false
cg@1168
  1384
            )
sv@1737
  1385
           (ScrollerSpec
sv@1737
  1386
              name: 'Scroller'
sv@1737
  1387
              layout: (LayoutFrame 88 0 127 0 203 0 145 0)
sv@1737
  1388
              initiallyInvisible: true
sv@1737
  1389
              orientation: horizontal
cg@1160
  1390
            )
sv@1737
  1391
           (SteppingSliderSpec
sv@1737
  1392
              name: 'VStepSlider'
sv@1737
  1393
              layout: (LayoutFrame 226 0 6 0 244 0 106 0)
cg@1160
  1394
            )
sv@1737
  1395
           (SliderSpec
sv@1737
  1396
              name: 'VSlider'
sv@1737
  1397
              layout: (LayoutFrame 254 0 6 0 272 0 106 0)
cg@1168
  1398
            )
sv@1737
  1399
           (ThumbWheelSpec
sv@1737
  1400
              name: 'VThumbWheel'
sv@1737
  1401
              layout: (LayoutFrame 280 0 6 0 298 0 106 0)
cg@1142
  1402
            )
sv@1737
  1403
           (ScrollerSpec
sv@1737
  1404
              name: 'VScroller'
sv@1737
  1405
              layout: (LayoutFrame 345 0 6 0 363 0 106 0)
sv@1737
  1406
              initiallyInvisible: true
cg@1168
  1407
            )
sv@1737
  1408
           (LabelSpec
sv@1737
  1409
              label: 'Region'
sv@1737
  1410
              name: 'RegionLabel'
sv@1737
  1411
              layout: (AlignmentOrigin 83 0 177 0 1 0)
sv@1737
  1412
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1413
              resizeForLabel: true
sv@1737
  1414
              adjust: left
sv@1737
  1415
              canUIDrag: false
cg@1142
  1416
            )
sv@1737
  1417
           (RegionSpec
sv@1737
  1418
              name: 'Region'
sv@1737
  1419
              layout: (LayoutFrame 88 0 171 0 203 0 200 0)
sv@1737
  1420
              lineWidth: 2
sv@1737
  1421
              regionType: ellipse
cg@1142
  1422
            )
sv@1737
  1423
           (LabelSpec
sv@1737
  1424
              label: 'Separator'
sv@1737
  1425
              name: 'SeparatorLabel'
sv@1737
  1426
              layout: (AlignmentOrigin 83 0 207 0 1 0)
sv@1737
  1427
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1428
              resizeForLabel: true
sv@1737
  1429
              adjust: left
sv@1737
  1430
              canUIDrag: false
cg@1142
  1431
            )
sv@1737
  1432
           (DividerSpec
sv@1737
  1433
              name: 'Separator'
sv@1737
  1434
              layout: (LayoutFrame 88 0 213 0 203 0 217 0)
cg@1142
  1435
            )
sv@1737
  1436
           (LabelSpec
sv@1737
  1437
              label: 'Progress Indicator'
sv@1737
  1438
              name: 'ProgressIndicatorsLabel'
sv@1737
  1439
              layout: (AlignmentOrigin 333 0 117 0 1 0)
sv@1737
  1440
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1441
              resizeForLabel: true
sv@1737
  1442
              adjust: left
sv@1737
  1443
              canUIDrag: false
cg@1142
  1444
            )
sv@1737
  1445
           (ProgressIndicatorSpec
sv@1737
  1446
              name: 'Progress Indicator'
sv@1737
  1447
              layout: (LayoutFrame 338 0 114 0 433 0 132 0)
cg@1142
  1448
            )
sv@1737
  1449
           (LabelSpec
sv@1737
  1450
              label: 'Round
sv@1737
  1451
Progress Indicator'
sv@1737
  1452
              name: 'RoundProgressIndicatorsLabel'
sv@1737
  1453
              layout: (AlignmentOrigin 333 0 167 0 1 0)
sv@1737
  1454
              style: (FontDescription helvetica medium roman 10)
sv@1737
  1455
              resizeForLabel: true
sv@1737
  1456
              adjust: left
sv@1737
  1457
              canUIDrag: false
cg@1142
  1458
            )
sv@1737
  1459
           (RoundProgressIndicatorSpec
sv@1737
  1460
              name: 'Round Progress Indicator'
sv@1737
  1461
              layout: (LayoutFrame 338 0 136 0 425 0 219 0)
sv@1737
  1462
              level: 0
sv@1737
  1463
              borderWidth: 1
cg@1142
  1464
            )
sv@1737
  1465
           (ScrollBarSpec
sv@1737
  1466
              name: 'ScrollBar'
sv@1737
  1467
              layout: (LayoutFrame 88 0 100 0 203 0 118 0)
sv@1737
  1468
              initiallyInvisible: true
sv@1737
  1469
              orientation: horizontal
cg@1142
  1470
            )
sv@1737
  1471
           (ScrollBarSpec
sv@1737
  1472
              name: 'VScrollBar'
sv@1737
  1473
              layout: (LayoutFrame 317 0 6 0 335 0 106 0)
sv@1737
  1474
              initiallyInvisible: true
cg@1175
  1475
            )
cg@1142
  1476
           )
cg@1142
  1477
         
cg@1142
  1478
        )
ca@93
  1479
      )
ca@93
  1480
!
ca@93
  1481
cg@2486
  1482
standardMorphs1
cg@2486
  1483
    "This resource specification was automatically generated
cg@2486
  1484
     by the UIPainter of ST/X."
cg@2486
  1485
cg@2486
  1486
    "Do not manually edit this!! If it is corrupted,
cg@2486
  1487
     the UIPainter may not be able to read the specification."
cg@2486
  1488
cg@2486
  1489
    "
cg@2486
  1490
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMorphs1
cg@2486
  1491
     UISelectionPanel new openInterface:#standardMorphs1
cg@2486
  1492
    "
cg@2486
  1493
cg@2486
  1494
    <resource: #canvas>
cg@2486
  1495
cg@2486
  1496
    ^ 
cg@2486
  1497
     #(FullSpec
cg@2486
  1498
        name: standardMorphs1
cg@2486
  1499
        window: 
cg@2486
  1500
       (WindowSpec
cg@2486
  1501
          label: 'Morphs'
cg@2486
  1502
          name: 'Morphs'
cg@2486
  1503
          min: (Point 10 10)
cg@2532
  1504
          bounds: (Rectangle 0 0 419 272)
cg@2486
  1505
        )
cg@2486
  1506
        component: 
cg@2486
  1507
       (SpecCollection
cg@2486
  1508
          collection: (
cg@2486
  1509
           (ArcMorphSpec
cg@2496
  1510
              name: 'Circle'
cg@2496
  1511
              layout: (LayoutFrame 3 0 3 0 63 0 63 0)
cg@2518
  1512
              line: true
cg@2506
  1513
              lineColor: (Color 100.0 0.0 0.0)
cg@2486
  1514
            )
cg@2486
  1515
           (ArcMorphSpec
cg@2517
  1516
              name: 'FilledCircle'
cg@2496
  1517
              layout: (LayoutFrame 3 0 70 0 63 0 133 0)
cg@2506
  1518
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2496
  1519
              fill: true
cg@2486
  1520
            )
cg@2496
  1521
           (ArcMorphSpec
cg@2517
  1522
              name: 'FilledCircleL'
cg@2517
  1523
              layout: (LayoutFrame 3 0 143 0 63 0 206 0)
cg@2506
  1524
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1525
              line: true
cg@2506
  1526
              fill: true
cg@2517
  1527
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1528
            )
cg@2517
  1529
           (RectangleMorphSpec
cg@2517
  1530
              name: 'RectangleMorph1'
cg@2517
  1531
              layout: (LayoutFrame 70 0 3 0 133 0 63 0)
cg@2517
  1532
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1533
              line: true
cg@2517
  1534
              fill: false
cg@2517
  1535
              lineColor: (Color 100.0 0.0 0.0)
cg@2517
  1536
            )
cg@2517
  1537
           (RectangleMorphSpec
cg@2517
  1538
              name: 'RectangleMorph2'
cg@2517
  1539
              layout: (LayoutFrame 70 0 72 0 133 0 135 0)
cg@2506
  1540
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2506
  1541
              fill: true
cg@2496
  1542
            )
cg@2517
  1543
           (RectangleMorphSpec
cg@2517
  1544
              name: 'RectangleMorph3'
cg@2517
  1545
              layout: (LayoutFrame 70 0 139 0 133 0 202 0)
cg@2506
  1546
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1547
              line: true
cg@2496
  1548
              fill: true
cg@2506
  1549
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1550
            )
cg@2496
  1551
           (ArcMorphSpec
cg@2517
  1552
              name: 'FilledPieL'
cg@2496
  1553
              layout: (LayoutFrame 143 0 143 0 206 0 206 0)
cg@2506
  1554
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2518
  1555
              line: true
cg@2506
  1556
              fill: true
cg@2506
  1557
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1558
              startAngle: -45
cg@2496
  1559
              sweepAngle: 270
cg@2496
  1560
              pie: true
cg@2496
  1561
            )
cg@2496
  1562
           (ArcMorphSpec
cg@2517
  1563
              name: 'FilledPie'
cg@2517
  1564
              layout: (LayoutFrame 143 0 70 0 206 0 133 0)
cg@2506
  1565
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2496
  1566
              fill: true
cg@2517
  1567
              startAngle: -45
cg@2517
  1568
              sweepAngle: 270
cg@2517
  1569
              pie: true
cg@2496
  1570
            )
cg@2496
  1571
           (ArcMorphSpec
cg@2517
  1572
              name: 'Pie'
cg@2517
  1573
              layout: (LayoutFrame 143 0 3 0 206 0 63 0)
cg@2518
  1574
              line: true
cg@2506
  1575
              lineColor: (Color 100.0 0.0 0.0)
cg@2496
  1576
              startAngle: -45
cg@2496
  1577
              sweepAngle: 270
cg@2496
  1578
              pie: true
cg@2496
  1579
            )
cg@2517
  1580
           (LineSegmentMorphSpec
cg@2562
  1581
              name: 'LineSegmentMorph1'
cg@2562
  1582
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2562
  1583
              fill: true
cg@2562
  1584
              lineColor: (Color 100.0 0.0 0.0)
cg@2562
  1585
              startPoint: (Point 214 9)
cg@2562
  1586
              endPoint: (Point 254 59)
cg@2562
  1587
              showArrow: true
cg@2562
  1588
            )
cg@2562
  1589
           (LineSegmentMorphSpec
cg@2517
  1590
              name: 'Line1'
cg@2506
  1591
              foregroundColor: (Color 100.0 100.0 0.0)
cg@2506
  1592
              fill: true
cg@2506
  1593
              lineColor: (Color 100.0 0.0 0.0)
cg@2562
  1594
              startPoint: (Point 214 75)
cg@2562
  1595
              endPoint: (Point 254 125)
cg@2506
  1596
            )
cg@2532
  1597
           (SketchMorphSpec
cg@2532
  1598
              name: 'SketchMorph1'
cg@2566
  1599
              layout: (LayoutFrame 280 0 10 0 373 0 90 0)
cg@2562
  1600
              image: sketchImageIcon
cg@2532
  1601
            )
cg@2486
  1602
           )
cg@2486
  1603
         
cg@2486
  1604
        )
cg@2486
  1605
      )
cg@2486
  1606
!
cg@2486
  1607
tz@677
  1608
standardTexts
cg@795
  1609
    "This resource specification was automatically generated
cg@795
  1610
     by the UIPainter of ST/X."
ca@93
  1611
cg@795
  1612
    "Do not manually edit this!! If it is corrupted,
cg@795
  1613
     the UIPainter may not be able to read the specification."
ca@93
  1614
ca@93
  1615
    "
tz@677
  1616
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardTexts
tz@677
  1617
     UISelectionPanel new openInterface:#standardTexts
ca@93
  1618
    "
ca@93
  1619
ca@93
  1620
    <resource: #canvas>
ca@93
  1621
cg@1142
  1622
    ^ 
sv@1737
  1623
     #(FullSpec
sv@1737
  1624
        name: standardTexts
sv@1737
  1625
        window: 
sv@1737
  1626
       (WindowSpec
sv@1737
  1627
          label: 'Texts'
sv@1737
  1628
          name: 'Texts'
sv@1737
  1629
          min: (Point 10 10)
cg@2476
  1630
          bounds: (Rectangle 0 0 464 224)
cg@1142
  1631
        )
sv@1737
  1632
        component: 
sv@1737
  1633
       (SpecCollection
sv@1737
  1634
          collection: (
sv@1737
  1635
           (TextEditorSpec
sv@1737
  1636
              name: 'Text Editor'
sv@1737
  1637
              layout: (LayoutFrame 3 0 3 0 208 0 98 0)
sv@1737
  1638
              hasHorizontalScrollBar: true
sv@1737
  1639
              hasVerticalScrollBar: true
cg@2476
  1640
              hasKeyboardFocusInitially: false
cg@1142
  1641
            )
sv@1737
  1642
           (HTMLViewSpec
sv@1737
  1643
              name: 'HTML Browser'
sv@1737
  1644
              layout: (LayoutFrame 228 0 3 0 433 0 98 0)
sv@1737
  1645
              hasHorizontalScrollBar: true
sv@1737
  1646
              hasVerticalScrollBar: true
cg@1142
  1647
            )
sv@1737
  1648
           (InputFieldSpec
sv@1737
  1649
              name: 'Entry Field'
sv@1737
  1650
              layout: (LayoutFrame 3 0 113 0 208 0 135 0)
sv@1737
  1651
              acceptOnReturn: true
sv@1737
  1652
              acceptOnTab: true
sv@2320
  1653
              acceptOnPointerLeave: true
cg@1408
  1654
            )
sv@1737
  1655
           (FilenameInputFieldSpec
sv@1737
  1656
              name: 'Filename Entry Field'
sv@1737
  1657
              layout: (LayoutFrame 3 0 141 0 208 0 163 0)
sv@2320
  1658
              acceptOnPointerLeave: true
cg@1142
  1659
            )
cg@2374
  1660
           (FilenameInputFieldSpec
cg@2374
  1661
              name: 'Filename + History'
cg@2374
  1662
              layout: (LayoutFrame 3 0 171 0 208 0 193 0)
cg@2374
  1663
              acceptOnPointerLeave: true
cg@2476
  1664
              viewClassName: FilenameWidgetWithHistory
cg@2374
  1665
            )
sv@1737
  1666
           (LabelSpec
sv@1737
  1667
              label: 'Label'
sv@1737
  1668
              name: 'Label'
sv@1737
  1669
              layout: (LayoutFrame 228 0 113 0 433 0 135 0)
sv@1737
  1670
              translateLabel: true
cg@1142
  1671
            )
cg@2476
  1672
           (LinkButtonSpec
cg@2476
  1673
              label: 'LinkButton'
cg@2476
  1674
              name: 'LinkButton1'
cg@2476
  1675
              layout: (LayoutFrame 228 0 141 0 433 0 163 0)
cg@2476
  1676
              translateLabel: true
cg@2476
  1677
            )
cg@1142
  1678
           )
cg@1142
  1679
         
cg@1142
  1680
        )
cg@97
  1681
      )
cg@97
  1682
!
cg@97
  1683
cg@1179
  1684
standardTrees
cg@1179
  1685
    "This resource specification was automatically generated
cg@1179
  1686
     by the UIPainter of ST/X."
cg@1179
  1687
cg@1179
  1688
    "Do not manually edit this!! If it is corrupted,
cg@1179
  1689
     the UIPainter may not be able to read the specification."
cg@1179
  1690
cg@1179
  1691
    "
cg@1179
  1692
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardTrees
cg@1179
  1693
     UISelectionPanel new openInterface:#standardTrees
cg@1179
  1694
    "
cg@1179
  1695
cg@1179
  1696
    <resource: #canvas>
cg@1179
  1697
cg@1179
  1698
    ^ 
sv@1737
  1699
     #(FullSpec
sv@1737
  1700
        name: standardTrees
sv@1737
  1701
        window: 
sv@1737
  1702
       (WindowSpec
sv@1737
  1703
          label: 'Trees'
sv@1737
  1704
          name: 'Trees'
sv@1737
  1705
          min: (Point 10 10)
sv@1737
  1706
          bounds: (Rectangle 14 46 455 264)
cg@1179
  1707
        )
sv@1737
  1708
        component: 
sv@1737
  1709
       (SpecCollection
sv@1737
  1710
          collection: (
sv@1737
  1711
           (SelectionInTreeViewSpec
sv@1737
  1712
              name: 'Tree List'
sv@1737
  1713
              layout: (LayoutFrame 4 0 3 0 209 0 101 0)
sv@1737
  1714
              hasHorizontalScrollBar: true
sv@1737
  1715
              hasVerticalScrollBar: true
sv@1737
  1716
              highlightMode: line
cg@1179
  1717
            )
sv@1737
  1718
           (FileSelectionTreeSpec
sv@1737
  1719
              name: 'File Tree List'
sv@1737
  1720
              layout: (LayoutFrame 229 0 3 0 434 0 101 0)
sv@1737
  1721
              hasHorizontalScrollBar: true
sv@1737
  1722
              hasVerticalScrollBar: true
sv@1737
  1723
              highlightMode: line
cg@1179
  1724
            )
sv@1737
  1725
           (HierarchicalListViewSpec
sv@1737
  1726
              name: 'New ModelTree List'
sv@1737
  1727
              layout: (LayoutFrame 4 0 110 0 209 0 208 0)
sv@1737
  1728
              hasHorizontalScrollBar: true
sv@1737
  1729
              hasVerticalScrollBar: true
sv@1737
  1730
              highlightMode: line
cg@1179
  1731
            )
cg@1179
  1732
           )
cg@1179
  1733
         
cg@1179
  1734
        )
cg@1179
  1735
      )
cg@1179
  1736
!
cg@1179
  1737
ca@190
  1738
standardUserPanel
ca@93
  1739
    "this window spec was automatically generated by the ST/X UIPainter"
ca@93
  1740
ca@93
  1741
    "do not manually edit this - the painter/builder may not be able to
ca@93
  1742
     handle the specification if its corrupted."
ca@93
  1743
ca@93
  1744
    "
ca@190
  1745
     UIPainter new openOnClass:UISelectionPanel andSelector:#standardUserPanel
ca@190
  1746
     UISelectionPanel new openInterface:#standardUserPanel
ca@93
  1747
    "
ca@93
  1748
ca@93
  1749
    <resource: #canvas>
ca@93
  1750
ca@93
  1751
    ^
ca@135
  1752
     
ca@93
  1753
       #(#FullSpec
tm@987
  1754
          #'window:' 
tm@987
  1755
           #(#WindowSpec
tm@987
  1756
              #'name:' 'UserPanel'
tm@987
  1757
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
tm@987
  1758
              #'label:' 'UserPanel'
tm@987
  1759
              #'bounds:' #(#Rectangle 0 0 445 162)
tm@987
  1760
          )
tm@987
  1761
          #'component:' 
tm@987
  1762
           #(#SpecCollection
tm@987
  1763
              #'collection:' 
tm@987
  1764
               #(
tm@987
  1765
                 #(#LabelSpec
tm@987
  1766
                    #'name:' 'helpText'
tm@987
  1767
                    #'layout:' #(#Point 10 0)
tm@987
  1768
                    #'labelChannel:' #userDefinedHelpText
tm@987
  1769
                    #'resizeForLabel:' true
tm@987
  1770
                    #'canUIDrag:' false
tm@987
  1771
                )
tm@987
  1772
              )
tm@987
  1773
          )
ca@93
  1774
      )
ca@93
  1775
! !
ca@93
  1776
cg@2236
  1777
!UISelectionPanel class methodsFor:'menus'!
cg@2236
  1778
cg@2236
  1779
menuSelected
cg@2236
  1780
cg@2236
  1781
    <resource: #menu>
cg@2236
  1782
cg@2236
  1783
    ^ #(#Menu #(
cg@2236
  1784
                #(#MenuItem
cg@2236
  1785
                        #'label:' 'copy'
cg@2236
  1786
                        #'value:' #copy
cg@2236
  1787
                 )
cg@2236
  1788
                #(#MenuItem
cg@2236
  1789
                        #'label:' 'cut'
cg@2236
  1790
                        #'value:' #cut
cg@2236
  1791
                 )
cg@2236
  1792
                )
cg@2236
  1793
               nil
cg@2236
  1794
               nil
cg@2236
  1795
        )
cg@2236
  1796
cg@2236
  1797
    "Modified: / 29.10.1997 / 03:20:30 / cg"
cg@2236
  1798
!
cg@2236
  1799
cg@2236
  1800
menuUnselected
cg@2236
  1801
    <resource: #menu>
cg@2236
  1802
cg@2236
  1803
    ^ #(#Menu #(
cg@2236
  1804
                #(#MenuItem
cg@2236
  1805
                        #'label:' 'paste'
cg@2236
  1806
                        #'value:' #paste
cg@2236
  1807
                 )
cg@2236
  1808
                )
cg@2236
  1809
               nil
cg@2236
  1810
               nil
cg@2236
  1811
        )
cg@2236
  1812
cg@2236
  1813
    "Modified: / 29.10.1997 / 03:20:38 / cg"
cg@2236
  1814
! !
cg@2236
  1815
cg@2236
  1816
!UISelectionPanel class methodsFor:'resources'!
cg@2236
  1817
cg@2236
  1818
classResources
cg@2236
  1819
    "my translations are found in the UIPainter classes resources"
cg@2236
  1820
cg@2236
  1821
    ^ UIPainter classResources 
cg@2236
  1822
! !
cg@2236
  1823
ca@182
  1824
!UISelectionPanel methodsFor:'actions'!
ca@93
  1825
ca@182
  1826
defineClassAndSelector
ca@182
  1827
    |bd cls sel lbl|
ca@112
  1828
ca@182
  1829
    bd := IdentityDictionary new.
ca@182
  1830
    bd at:#className put:( userClass asValue).
ca@182
  1831
    bd at:#specsKey  put:( (userSpecs  ? '') asValue).
ca@182
  1832
    bd at:#labelsKey put:( (userLabels ? '') asValue).
ca@182
  1833
    bd at:#updateDefaultResources put:(false asValue).
ca@182
  1834
ca@182
  1835
    (self openDialogInterface:#nameAndSelectorSpec withBindings:bd) ifTrue:[
tm@987
  1836
        (      (cls := (bd at:#className) value) notNil
tm@987
  1837
          and:[(sel := (bd at:#specsKey)  value) notNil
tm@987
  1838
          and:[(lbl := (bd at:#labelsKey) value) notNil]]
tm@987
  1839
        ) ifTrue:[
tm@987
  1840
            userClass  := cls.
tm@987
  1841
            userSpecs  := sel.
tm@987
  1842
            userLabels := lbl.
ca@182
  1843
tm@987
  1844
            (bd at:#updateDefaultResources) value ifTrue:[
tm@987
  1845
                UserClass  := userClass.
tm@987
  1846
                UserSpecs  := userSpecs.
tm@987
  1847
                UserLabels := userLabels.
tm@987
  1848
            ]
tm@987
  1849
        ]
ca@182
  1850
    ].
ca@182
  1851
!
ca@182
  1852
ca@182
  1853
paste:something
cg@2486
  1854
    "paste something at a point"
cg@2486
  1855
cg@1142
  1856
    |coll specs point device ext spec|
ca@182
  1857
ca@182
  1858
    clipBoardSpec isNil ifTrue:[
tm@987
  1859
        clipBoardSpec := SpecCollection new.
tm@987
  1860
        clipBoardSpec collection:(OrderedCollection new).
ca@182
  1861
    ].
cg@1142
  1862
    coll   := clipBoardSpec collection.
cg@1142
  1863
    device := gallery device.
ca@182
  1864
cg@1142
  1865
    point  := device translatePoint:(device pointerPosition)
cg@1500
  1866
                           fromView:nil
cg@1500
  1867
                             toView:(gallery canvas).
ca@182
  1868
ca@182
  1869
    point y < 1 ifTrue:[point y:1].
ca@182
  1870
    ext := gallery extent - (10@10).
ca@182
  1871
ca@182
  1872
    (specs := something) isCollection ifFalse:[
tm@987
  1873
        specs := Array with:something
ca@182
  1874
    ].
ca@182
  1875
ca@182
  1876
    specs do:[:aSpec|
tm@987
  1877
        point x > ext x ifTrue:[point x:1].
tm@987
  1878
        point y > ext y ifTrue:[point y:1].
ca@182
  1879
tm@987
  1880
        spec := aSpec copy.
tm@987
  1881
        spec layout:(LayoutOrigin fromPoint:point).
tm@987
  1882
        coll add:spec.
tm@987
  1883
        point := point + (20@20).
ca@182
  1884
    ].
ca@182
  1885
    gallery update.
cg@1500
  1886
cg@1500
  1887
    "Modified: / 10.10.2001 / 14:14:36 / cg"
ca@182
  1888
!
ca@182
  1889
ca@182
  1890
raiseMenu
cg@2486
  1891
    "can open menu"
cg@2486
  1892
cg@251
  1893
    |spec menu value paste|
ca@182
  1894
ca@182
  1895
    spec := self clientSpec value.
ca@182
  1896
ca@182
  1897
    spec notNil ifTrue:[
tm@987
  1898
        menu := self class menuSelected decodeAsLiteralArray.
tm@987
  1899
        self isClipBoard ifFalse:[
tm@987
  1900
            (menu someMenuItemWithValue:#cut) disable.
tm@987
  1901
        ].
ca@182
  1902
tm@987
  1903
        (value := menu startUp) == #cut ifTrue:[
tm@987
  1904
            clipBoardSpec collection remove:spec ifAbsent:nil.
cg@1142
  1905
            gallery update.
tm@987
  1906
        ] ifFalse:[
tm@987
  1907
            value == #copy ifTrue:[
ca@1870
  1908
                self window setClipboardObject:spec
tm@987
  1909
            ]
tm@987
  1910
        ].
ca@182
  1911
      ^ self
ca@182
  1912
    ].
ca@182
  1913
ca@182
  1914
    self isUserBoard ifTrue:[
tm@987
  1915
        ^ self defineClassAndSelector
ca@182
  1916
    ].
ca@182
  1917
ca@1872
  1918
    paste := self window getClipboardObject.
ca@182
  1919
ca@182
  1920
    (self canPaste:paste) ifTrue:[
tm@987
  1921
        menu := self class menuUnselected decodeAsLiteralArray.
ca@182
  1922
tm@987
  1923
        (menu startUp) == #paste ifTrue:[
tm@987
  1924
            self paste:paste
tm@987
  1925
        ]
ca@182
  1926
    ].
ca@112
  1927
! !
ca@112
  1928
ca@112
  1929
!UISelectionPanel methodsFor:'aspects'!
ca@112
  1930
ca@182
  1931
clientSpec
cg@1142
  1932
    ^ gallery clientSpecHolder
ca@93
  1933
!
ca@93
  1934
ca@182
  1935
clipBoardSpec
ca@182
  1936
    ^ clipBoardSpec
ca@182
  1937
!
ca@112
  1938
cg@1142
  1939
gallery
cg@1142
  1940
    ^ gallery
cg@1142
  1941
!
cg@1142
  1942
ca@182
  1943
galleryList
cg@1142
  1944
    ^ gallery listHolder
ca@112
  1945
!
ca@112
  1946
ca@182
  1947
galleryModel
cg@1142
  1948
    ^ gallery model
ca@182
  1949
ca@112
  1950
!
ca@112
  1951
ca@182
  1952
majorChannel
ca@112
  1953
    |holder|
ca@112
  1954
ca@182
  1955
    (holder := builder bindingAt:#majorChannel) isNil ifTrue:[
tm@987
  1956
        holder := AspectAdaptor new subject:self; forAspect:#majorSelection.
tm@987
  1957
        builder aspectAt:#majorChannel put:holder.
ca@112
  1958
    ].
ca@112
  1959
    ^ holder
ca@182
  1960
!
ca@112
  1961
ca@182
  1962
majorList
cg@2486
  1963
    ^ self class specifications collect:[:el| el first]
ca@182
  1964
!
ca@182
  1965
ca@182
  1966
minorKeys
cg@1142
  1967
    ^ gallery minorKeysHolder
ca@182
  1968
! !
ca@182
  1969
ca@182
  1970
!UISelectionPanel methodsFor:'change & update'!
ca@182
  1971
ca@182
  1972
update:something with:aParameter from:changedObject
cg@2486
  1973
    "one of my models changed its value"
cg@2486
  1974
cg@2363
  1975
    |label|
ca@182
  1976
cg@2363
  1977
    changedObject == self clientSpec  ifTrue:[
cg@2363
  1978
        (label := changedObject value) notNil ifTrue:[
cg@2363
  1979
            label := 'Widget Gallery: ' , label name.
tm@987
  1980
        ] ifFalse:[
cg@1587
  1981
            label := 'Widget Gallery'
cg@1587
  1982
        ].
cg@1587
  1983
        builder window topView label:(label , ' ')
ca@182
  1984
    ].
ca@182
  1985
ca@182
  1986
    super update:something with:aParameter from:changedObject.
ca@182
  1987
! !
ca@182
  1988
ca@182
  1989
!UISelectionPanel methodsFor:'drag & drop'!
ca@182
  1990
cg@2115
  1991
canDropObjects:aCollectionOfDropObjects in:aComponent
cg@1953
  1992
    ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]).
cg@2115
  1993
cg@2115
  1994
    "Created: / 13-10-2006 / 15:53:04 / cg"
ca@182
  1995
!
ca@182
  1996
cg@2120
  1997
dropObjects:aCollectionOfDropObjects in:aComponent
ca@182
  1998
ca@182
  1999
    |spc top|
ca@182
  2000
sv@1061
  2001
    top := DragAndDropManager dragOriginatorQuerySignal query topView.
ca@182
  2002
ca@182
  2003
    top == aComponent topView ifTrue:[
tm@987
  2004
        spc := self clientSpec value.
tm@987
  2005
        spc isNil ifTrue:[^ self].
ca@182
  2006
tm@987
  2007
        (clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[
tm@987
  2008
            ^ self
tm@987
  2009
        ].
ca@182
  2010
    ] ifFalse:[
cg@1953
  2011
        spc := aCollectionOfDropObjects collect:[:el| el theObject].
ca@182
  2012
    ].
ca@182
  2013
    self paste:spc.
sv@1061
  2014
cg@2119
  2015
    "Modified: / 18-03-1999 / 18:29:19 / stefan"
cg@2120
  2016
    "Created: / 13-10-2006 / 18:25:50 / cg"
ca@182
  2017
! !
ca@182
  2018
cg@2025
  2019
!UISelectionPanel methodsFor:'initialization'!
cg@2025
  2020
cg@2025
  2021
initialize
cg@2025
  2022
    |holder|
cg@2025
  2023
cg@2025
  2024
    super initialize.
cg@2025
  2025
cg@2025
  2026
    userClass  := UserClass.
cg@2025
  2027
    userSpecs  := UserSpecs.
cg@2025
  2028
    userLabels := UserLabels.
cg@2025
  2029
cg@2025
  2030
    gallery := UIGalleryView new.
cg@2025
  2031
cg@2025
  2032
    gallery           model:(ValueHolder new).
cg@2025
  2033
    gallery      listHolder:(ValueHolder new).
cg@2025
  2034
    gallery minorKeysHolder:(ValueHolder new).
cg@2025
  2035
    gallery    menuSelector:#raiseMenu.
cg@2025
  2036
cg@2025
  2037
    gallery clientSpecHolder:(holder := ValueHolder new).
cg@2025
  2038
    holder  addDependent:self.
cg@2025
  2039
cg@2025
  2040
    majorSelection := 0.
cg@2025
  2041
! !
cg@2025
  2042
ca@182
  2043
!UISelectionPanel methodsFor:'queries'!
ca@182
  2044
ca@182
  2045
canPaste:something
cg@2486
  2046
    "returns true if something could be paste"
cg@2486
  2047
ca@182
  2048
    (self isClipBoard and:[something notNil]) ifTrue:[
tm@987
  2049
        something isCollection ifTrue:[
tm@987
  2050
            something notEmpty ifTrue:[
tm@987
  2051
                ^ (something at:1) isKindOf:UISpecification
tm@987
  2052
            ]
tm@987
  2053
        ] ifFalse:[
tm@987
  2054
            ^ something isKindOf:UISpecification
tm@987
  2055
        ]
ca@182
  2056
    ].
ca@182
  2057
    ^ false
ca@182
  2058
!
ca@182
  2059
ca@182
  2060
isClipBoard
cg@2486
  2061
    "returns true if current view is clip board"
cg@2486
  2062
ca@291
  2063
    majorSelection ~~ 0 ifTrue:[
tm@987
  2064
        ^ (self majorList at:majorSelection) startsWith:'Clip'
ca@182
  2065
    ].
cg@2486
  2066
    ^ false
ca@182
  2067
!
ca@182
  2068
ca@182
  2069
isUserBoard
cg@2486
  2070
    "returns true if current view is clip board"
cg@2486
  2071
ca@291
  2072
    majorSelection ~~ 0 ifTrue:[
tm@987
  2073
        ^ (self majorList at:majorSelection) startsWith:'User'
ca@182
  2074
    ].
cg@2486
  2075
    ^ false
ca@112
  2076
! !
ca@112
  2077
ca@112
  2078
!UISelectionPanel methodsFor:'selection'!
ca@112
  2079
ca@182
  2080
majorSelection
ca@291
  2081
    ^ majorSelection ? 0
ca@112
  2082
!
ca@112
  2083
ca@182
  2084
majorSelection:aSelection
cg@1142
  2085
    |spec model|
ca@112
  2086
ca@291
  2087
    (majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
tm@987
  2088
        ^ self
ca@139
  2089
    ].
ca@684
  2090
cg@1142
  2091
    gallery builder:nil.
ca@182
  2092
    majorSelection := aSelection.
ca@684
  2093
    spec := ((self class specifications) at:majorSelection) last.
ca@684
  2094
cg@1142
  2095
    model := self galleryModel.
cg@1142
  2096
    model value:0.
ca@684
  2097
    self minorKeys value:nil.
ca@182
  2098
ca@182
  2099
    spec isSymbol ifFalse:[
tm@987
  2100
        self galleryList  value:(spec collect:[:a| a first]).
tm@987
  2101
        self minorKeys setValue:(spec collect:[:a| a last]).
ca@182
  2102
    ] ifTrue:[
tm@987
  2103
        self perform:spec.
ca@112
  2104
    ].
cg@1142
  2105
    model value:1.
ca@112
  2106
cg@795
  2107
    "Modified: / 21.4.1998 / 11:59:08 / cg"
ca@93
  2108
! !
ca@93
  2109
cg@1716
  2110
!UISelectionPanel methodsFor:'startup & release'!
ca@93
  2111
ca@182
  2112
closeRequest
ca@182
  2113
    |sav|
ca@93
  2114
ca@182
  2115
    (sav := masterApplication) notNil ifTrue:[
tm@987
  2116
        masterApplication := nil.
tm@987
  2117
        sav closeRequestFor:(self window).
tm@987
  2118
        masterApplication := sav.
ca@182
  2119
    ] ifFalse:[
tm@987
  2120
        super closeRequest.
ca@182
  2121
    ]
cg@244
  2122
cg@244
  2123
    "Modified: 28.7.1997 / 09:44:40 / cg"
ca@182
  2124
!
ca@112
  2125
ca@684
  2126
postOpenWith:aBuilder
ca@182
  2127
    self majorChannel value:1.
cg@2025
  2128
    super postOpenWith:aBuilder.
ca@182
  2129
! !
ca@93
  2130
ca@182
  2131
!UISelectionPanel methodsFor:'user defined'!
ca@93
  2132
ca@182
  2133
userDefined
ca@182
  2134
    |cls lbl sel builder|
ca@329
  2135
ca@329
  2136
    cls := self resolveName:userClass.
ca@329
  2137
ca@329
  2138
    (cls notNil and:[(cls respondsTo:userLabels)]) ifTrue:[
tm@987
  2139
        lbl := cls perform:userLabels.
tm@987
  2140
        sel := Array new:(lbl size) withAll:#userDefinedSpec.
tm@987
  2141
        self galleryList value:lbl.
tm@987
  2142
        self minorKeys   value:sel.
ca@329
  2143
    ] ifFalse:[
tm@987
  2144
        builder := UIBuilder new isEditing:true.
ca@397
  2145
tm@987
  2146
        builder application:self.
cg@1142
  2147
        gallery builder:builder. 
tm@987
  2148
        self galleryList value:#( '???' ).
tm@987
  2149
        self minorKeys   value:#( standardUserPanel ).
ca@329
  2150
    ]
ca@93
  2151
!
ca@93
  2152
ca@182
  2153
userDefinedHelpText
ca@112
  2154
ca@182
  2155
^ '
ca@182
  2156
no user defined specifications are configured yet. To assign
cg@2486
  2157
user defined specifications to the gallery, press the middle
ca@182
  2158
button of your mouse to open a dialog.
ca@182
  2159
'
ca@112
  2160
!
ca@112
  2161
ca@182
  2162
userDefinedSpec
ca@182
  2163
    |cls spc idx|
ca@112
  2164
ca@329
  2165
    cls := self resolveName:userClass.
ca@112
  2166
ca@329
  2167
    (cls notNil and:[(cls respondsTo:userSpecs)]) ifTrue:[
tm@987
  2168
        spc := cls perform:userSpecs.
tm@987
  2169
        idx := self galleryModel value.
ca@329
  2170
tm@987
  2171
        idx <= spc size ifTrue:[
tm@987
  2172
            spc := spc at:idx.
tm@987
  2173
            (cls respondsTo:spc) ifTrue:[
tm@987
  2174
                ^ cls perform:spc
tm@987
  2175
            ]
tm@987
  2176
        ]
ca@93
  2177
    ].
ca@147
  2178
  ^ nil
ca@93
  2179
! !
ca@93
  2180
cg@387
  2181
!UISelectionPanel::UserDefinedGallery class methodsFor:'class initialization'!
cg@387
  2182
cg@387
  2183
initialize
cg@387
  2184
    "initialize my default user-def from the superclasses specs.
cg@387
  2185
     I.e. provide a clocks entry"
cg@387
  2186
cg@387
  2187
    LabelList := self defaultListOfLabels asOrderedCollection.
cg@387
  2188
    SelectorList := self defaultListOfSelectors asOrderedCollection.
cg@2009
  2189
    HolderList := OrderedCollection withSize:(SelectorList size).
cg@387
  2190
    NextUniqueNumber := 1.
cg@387
  2191
cg@387
  2192
    UISelectionPanel 
tm@987
  2193
        userClass:self
tm@987
  2194
        specSelector:#listOfSelectors
tm@987
  2195
        labelSelector:#listOfLabels.
cg@387
  2196
cg@387
  2197
    "
cg@387
  2198
     self initialize
cg@387
  2199
    "
cg@387
  2200
cg@387
  2201
    "Modified: / 5.12.1997 / 14:25:22 / cg"
cg@387
  2202
    "Created: / 8.12.1997 / 18:49:42 / cg"
cg@387
  2203
! !
cg@387
  2204
cg@387
  2205
!UISelectionPanel::UserDefinedGallery class methodsFor:'defaults'!
cg@387
  2206
cg@387
  2207
defaultListOfLabels
tm@987
  2208
    ^ #( 'Clocks etc.' 'Business Graphics' )
cg@387
  2209
cg@387
  2210
    "Created: / 8.12.1997 / 18:50:06 / cg"
cg@864
  2211
    "Modified: / 16.6.1998 / 10:20:12 / cg"
cg@387
  2212
!
cg@387
  2213
cg@387
  2214
defaultListOfSelectors
tm@987
  2215
    ^ #( clocksSpec businessGraphicsSpec)
cg@387
  2216
cg@387
  2217
    "Modified: / 5.12.1997 / 14:03:55 / cg"
cg@387
  2218
    "Created: / 8.12.1997 / 18:50:21 / cg"
cg@387
  2219
! !
cg@387
  2220
cg@387
  2221
!UISelectionPanel::UserDefinedGallery class methodsFor:'documentation'!
cg@387
  2222
cg@387
  2223
copyright
cg@387
  2224
"
cg@387
  2225
 COPYRIGHT (c) 1997 by eXept Software AG
tm@987
  2226
              All Rights Reserved
cg@387
  2227
cg@387
  2228
 This software is furnished under a license and may be used
cg@387
  2229
 only in accordance with the terms of that license and with the
cg@387
  2230
 inclusion of the above copyright notice.   This software may not
cg@387
  2231
 be provided or otherwise made available to, or used by, any
cg@387
  2232
 other person.  No title to or ownership of the software is
cg@387
  2233
 hereby transferred.
cg@387
  2234
"
cg@387
  2235
cg@387
  2236
cg@387
  2237
cg@387
  2238
!
cg@387
  2239
cg@387
  2240
documentation
cg@387
  2241
"
cg@387
  2242
    The standard user-defined selectionPanel entry.
cg@387
  2243
    Here, a single item named 'clocks' is provided, containing
cg@387
  2244
    an analog and digital clock.
sv@2216
  2245
    This is a dumb example; the actual user-defined panel may be
cg@387
  2246
    extended dynamically.
cg@387
  2247
cg@387
  2248
    Frameworks which provide additional widgets may dynamically
cg@387
  2249
    add more entries, by sending #addUserSpecHolder:label:
cg@387
  2250
    or #removeUserSpecWithLabel:.
cg@387
  2251
    Typically, this is done when a framework is loaded, by one of the
cg@387
  2252
    frameworks class-initialization methods.
cg@387
  2253
cg@387
  2254
    [start with:]
tm@987
  2255
        UISelectionPanel open
cg@387
  2256
cg@387
  2257
    [author:]
tm@987
  2258
        Claus Gittinger
tm@987
  2259
        Claus Atzkern
cg@387
  2260
cg@387
  2261
    [see also:]
tm@987
  2262
        TabView
tm@987
  2263
        NoteBookView
tm@987
  2264
        UIGalleryView
tm@987
  2265
        UIPainter
cg@387
  2266
cg@387
  2267
"
cg@387
  2268
! !
cg@387
  2269
cg@387
  2270
!UISelectionPanel::UserDefinedGallery class methodsFor:'installation / deinstallation'!
cg@387
  2271
cg@387
  2272
addUserSpecHolder:aValueHolder label:aLabelString
cg@387
  2273
    "add a new entry with the given label.
cg@387
  2274
     The specHolder is typically either a spec, a valueHolder or a block.
cg@387
  2275
     In any case, it should return a valid spec from the #value message.
cg@387
  2276
     This spec is installed under that label."
cg@387
  2277
cg@387
  2278
    |syntheticSelector idx|
cg@387
  2279
cg@387
  2280
    syntheticSelector := ('userSpec' , NextUniqueNumber printString) asSymbol.
cg@387
  2281
    NextUniqueNumber := NextUniqueNumber + 1.
cg@387
  2282
cg@387
  2283
    idx := LabelList indexOf:aLabelString.
cg@387
  2284
    idx ~~ 0 ifTrue:[
tm@987
  2285
        SelectorList at:idx put:syntheticSelector.
tm@987
  2286
        HolderList at:idx put:aValueHolder
cg@387
  2287
    ] ifFalse:[
tm@987
  2288
        LabelList addLast:aLabelString.
tm@987
  2289
        SelectorList addLast:syntheticSelector.
tm@987
  2290
        HolderList addLast:aValueHolder
cg@387
  2291
    ]
cg@387
  2292
cg@387
  2293
    "Modified: / 5.12.1997 / 14:13:17 / cg"
cg@387
  2294
    "Created: / 8.12.1997 / 18:50:55 / cg"
cg@387
  2295
!
cg@387
  2296
cg@387
  2297
removeUserSpecWithLabel:aLabelString
cg@387
  2298
    "remove the spec which was previously installed under the given label"
cg@387
  2299
cg@387
  2300
    |idx|
cg@387
  2301
cg@387
  2302
    idx := LabelList indexOf:aLabelString.
cg@387
  2303
    idx ~~ 0 ifTrue:[
tm@987
  2304
        LabelList removeIndex:idx.
tm@987
  2305
        SelectorList removeIndex:idx.
tm@987
  2306
        HolderList removeIndex:idx
cg@387
  2307
    ].
cg@387
  2308
cg@387
  2309
    "Modified: / 5.12.1997 / 14:13:45 / cg"
cg@387
  2310
    "Created: / 8.12.1997 / 18:51:03 / cg"
cg@387
  2311
! !
cg@387
  2312
cg@387
  2313
!UISelectionPanel::UserDefinedGallery class methodsFor:'user defined gallery'!
ca@207
  2314
tm@987
  2315
businessGraphicsSpec
tm@987
  2316
    "This resource specification was automatically generated
tm@987
  2317
     by the UIPainter of ST/X."
tm@987
  2318
tm@987
  2319
    "Do not manually edit this!! If it is corrupted,
tm@987
  2320
     the UIPainter may not be able to read the specification."
tm@987
  2321
tm@987
  2322
    "
tm@987
  2323
     UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#businessGraphicsSpec
tm@987
  2324
    "
tm@987
  2325
tm@987
  2326
    <resource: #canvas>
tm@987
  2327
cg@1456
  2328
    ^ 
sv@1737
  2329
     #(FullSpec
sv@1737
  2330
        name: businessGraphicsSpec
sv@1737
  2331
        window: 
sv@1737
  2332
       (WindowSpec
sv@1737
  2333
          label: 'Interface Builder'
sv@1737
  2334
          name: 'Interface Builder'
sv@1737
  2335
          min: (Point 10 10)
sv@1737
  2336
          bounds: (Rectangle 14 46 394 317)
cg@1456
  2337
        )
sv@1737
  2338
        component: 
sv@1737
  2339
       (SpecCollection
sv@1737
  2340
          collection: (
sv@1737
  2341
           (LabelSpec
sv@1737
  2342
              label: 'PieChart'
sv@1737
  2343
              name: 'Label2'
sv@1737
  2344
              layout: (LayoutFrame 5 0 5 0 126 0 20 0)
sv@1737
  2345
              translateLabel: true
sv@1737
  2346
              canUIDrag: false
cg@1456
  2347
            )
sv@1737
  2348
           (PieChartWidgetSpec
sv@1737
  2349
              name: 'PIE Chart'
sv@1737
  2350
              layout: (LayoutFrame 15 0 21 0 103 0 141 0)
cg@1456
  2351
            )
sv@1737
  2352
           (LabelSpec
sv@1737
  2353
              label: 'ChartDescription'
sv@1737
  2354
              name: 'Label1'
sv@1737
  2355
              layout: (LayoutFrame 8 0.0 153 0 131 0 168 0)
sv@1737
  2356
              translateLabel: true
sv@1737
  2357
              canUIDrag: false
cg@1456
  2358
            )
sv@1737
  2359
           (ChartDescriptionSpec
sv@1737
  2360
              name: 'Chart Legend'
sv@1737
  2361
              layout: (LayoutFrame 14 0.0 -9 0.656827 14 0.323684 -9 1.0)
cg@1456
  2362
            )
sv@1737
  2363
           (LabelSpec
sv@1737
  2364
              label: 'BarChart'
sv@1737
  2365
              name: 'Label3'
sv@1737
  2366
              layout: (LayoutFrame 115 0 5 0 237 0 20 0)
sv@1737
  2367
              translateLabel: true
sv@1737
  2368
              canUIDrag: false
cg@1456
  2369
            )
sv@1737
  2370
           (BarChartWidgetSpec
sv@1737
  2371
              name: 'Bar Chart'
sv@1737
  2372
              layout: (LayoutFrame 121 0 21 0 232 0 141 0)
cg@1456
  2373
            )
cg@1456
  2374
           )
cg@1456
  2375
         
cg@1456
  2376
        )
tm@987
  2377
      )
tm@987
  2378
!
tm@987
  2379
ca@207
  2380
clocksSpec
cg@864
  2381
    "This resource specification was automatically generated
cg@864
  2382
     by the UIPainter of ST/X."
ca@207
  2383
cg@864
  2384
    "Do not manually edit this!! If it is corrupted,
cg@864
  2385
     the UIPainter may not be able to read the specification."
ca@207
  2386
ca@207
  2387
    "
tz@726
  2388
     UIPainter new openOnClass:UISelectionPanel::UserDefinedGallery andSelector:#clocksSpec
ca@207
  2389
    "
ca@207
  2390
ca@207
  2391
    <resource: #canvas>
ca@207
  2392
cg@1456
  2393
    ^ 
sv@1737
  2394
     #(FullSpec
sv@1737
  2395
        name: clocksSpec
sv@1737
  2396
        window: 
sv@1737
  2397
       (WindowSpec
sv@1737
  2398
          label: 'Interface Builder'
sv@1737
  2399
          name: 'Interface Builder'
sv@1737
  2400
          min: (Point 10 10)
sv@1737
  2401
          bounds: (Rectangle 14 46 439 319)
cg@1456
  2402
        )
sv@1737
  2403
        component: 
sv@1737
  2404
       (SpecCollection
sv@1737
  2405
          collection: (
sv@1737
  2406
           (NonScrollableArbitraryComponentSpec
sv@1737
  2407
              name: 'Analog Clock'
sv@1737
  2408
              layout: (LayoutFrame 15 0 39 0 129 0 151 0)
sv@1737
  2409
              hasBorder: false
sv@1737
  2410
              component: ClockView
cg@1456
  2411
            )
sv@1737
  2412
           (NonScrollableArbitraryComponentSpec
sv@1737
  2413
              name: 'Digital Clock'
sv@1737
  2414
              layout: (LayoutOrigin 15 0 176 0)
sv@1737
  2415
              hasBorder: false
sv@1737
  2416
              component: DigitalClockView
cg@1456
  2417
            )
sv@1737
  2418
           (NonScrollableArbitraryComponentSpec
sv@1737
  2419
              name: 'Digital Number display'
sv@1737
  2420
              layout: (LayoutOrigin 142 0 39 0)
sv@1737
  2421
              hasBorder: false
sv@1737
  2422
              component: DigitalLedDisplay
cg@1456
  2423
            )
sv@1737
  2424
           (LabelSpec
sv@1737
  2425
              label: 'Analog Clock'
sv@1737
  2426
              name: 'Label1'
sv@1737
  2427
              layout: (LayoutFrame 15 0 16 0 128 0 38 0)
sv@1737
  2428
              translateLabel: true
sv@1737
  2429
              adjust: left
sv@1737
  2430
              canUIDrag: false
cg@1456
  2431
            )
sv@1737
  2432
           (LabelSpec
sv@1737
  2433
              label: 'Number Display'
sv@1737
  2434
              name: 'Label2'
sv@1737
  2435
              layout: (LayoutFrame 142 0 16 0 270 0 38 0)
sv@1737
  2436
              translateLabel: true
sv@1737
  2437
              adjust: left
sv@1737
  2438
              canUIDrag: false
cg@1456
  2439
            )
sv@1737
  2440
           (LabelSpec
sv@1737
  2441
              label: 'Digital Clock'
sv@1737
  2442
              name: 'Label3'
sv@1737
  2443
              layout: (LayoutFrame 15 0 155 0 128 0 177 0)
sv@1737
  2444
              translateLabel: true
sv@1737
  2445
              adjust: left
sv@1737
  2446
              canUIDrag: false
cg@1456
  2447
            )
sv@1737
  2448
           (MeterWidgetSpec
sv@1737
  2449
              name: 'Meter Widget'
sv@1737
  2450
              layout: (Rectangle 143 99 259 216)
sv@1737
  2451
              model: meterValue
cg@1456
  2452
            )
sv@1737
  2453
           (LabelSpec
sv@1737
  2454
              label: 'Meter Widget'
sv@1737
  2455
              name: 'Label4'
sv@1737
  2456
              layout: (LayoutFrame 142 0 77 0 269 0 99 0)
sv@1737
  2457
              translateLabel: true
sv@1737
  2458
              canUIDrag: false
cg@1456
  2459
            )
sv@1737
  2460
           (MeterClackCounterSpec
sv@1737
  2461
              name: 'Meter Clack Counter'
sv@1737
  2462
              layout: (Rectangle 291 40 387 72)
sv@1737
  2463
              model: model
cg@1456
  2464
            )
sv@1737
  2465
           (LabelSpec
sv@1737
  2466
              label: 'Meter Clack Counter'
sv@1737
  2467
              name: 'Label5'
sv@1737
  2468
              layout: (LayoutFrame 290 0 16 0 417 0 38 0)
sv@1737
  2469
              translateLabel: true
sv@1737
  2470
              adjust: left
sv@1737
  2471
              canUIDrag: false
cg@1456
  2472
            )
cg@1456
  2473
           )
cg@1456
  2474
         
cg@1456
  2475
        )
ca@207
  2476
      )
ca@207
  2477
!
ca@207
  2478
ca@207
  2479
listOfLabels
cg@387
  2480
    ^ LabelList
ca@207
  2481
cg@387
  2482
    "Created: / 5.12.1997 / 13:43:03 / cg"
cg@387
  2483
    "Modified: / 8.12.1997 / 18:51:20 / cg"
ca@207
  2484
!
ca@207
  2485
ca@207
  2486
listOfSelectors
cg@387
  2487
    ^ SelectorList
ca@207
  2488
cg@387
  2489
    "Created: / 5.12.1997 / 13:43:13 / cg"
cg@387
  2490
    "Modified: / 8.12.1997 / 18:51:28 / cg"
cg@387
  2491
! !
ca@207
  2492
cg@387
  2493
!UISelectionPanel::UserDefinedGallery class methodsFor:'user spec access'!
cg@387
  2494
cg@387
  2495
doesNotUnderstand:aMessage
cg@387
  2496
    "catch queries for a userSpec"
cg@387
  2497
cg@387
  2498
    |sel idx|
cg@387
  2499
cg@387
  2500
    ((sel := aMessage selector) startsWith:'userSpec') ifTrue:[
tm@987
  2501
        idx := SelectorList indexOf:sel.
tm@987
  2502
        idx ~~ 0 ifTrue:[
tm@987
  2503
            ^ (HolderList at:idx) value
tm@987
  2504
        ]
cg@387
  2505
    ].
cg@387
  2506
    ^ super doesNotUnderstand:aMessage
cg@387
  2507
cg@387
  2508
    "Modified: / 5.12.1997 / 14:23:24 / cg"
cg@387
  2509
    "Created: / 8.12.1997 / 18:51:50 / cg"
cg@387
  2510
!
cg@387
  2511
cg@387
  2512
respondsTo:aSelector
cg@387
  2513
    "catch queries for a userSpec"
cg@387
  2514
cg@387
  2515
    |idx|
cg@387
  2516
cg@387
  2517
    (aSelector startsWith:'userSpec') ifTrue:[
tm@987
  2518
        idx := Number fromString:(aSelector copyFrom:9).
tm@987
  2519
        idx := SelectorList indexOf:aSelector.
tm@987
  2520
        idx ~~ 0 ifTrue:[^ true].
cg@387
  2521
    ].
cg@387
  2522
    ^ super respondsTo:aSelector
cg@387
  2523
cg@387
  2524
    "Modified: / 5.12.1997 / 14:19:55 / cg"
cg@387
  2525
    "Created: / 8.12.1997 / 18:51:57 / cg"
ca@207
  2526
! !
ca@207
  2527
ca@93
  2528
!UISelectionPanel class methodsFor:'documentation'!
ca@93
  2529
ca@93
  2530
version
ca@93
  2531
    ^ '$Header$'
cg@2713
  2532
!
cg@2713
  2533
cg@2713
  2534
version_CVS
cg@2713
  2535
    ^ '$Header$'
ca@93
  2536
! !
sv@1628
  2537
ca@207
  2538
UISelectionPanel initialize!
sv@1628
  2539
UISelectionPanel::UserDefinedGallery initialize!