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