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