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