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