hg/stx-libtool2: UIPainter.st@8091a35bccf1 (annotated)

156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	1	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	2	COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	3	All Rights Reserved
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	4
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	5	This software is furnished under a license and may be used
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	6	only in accordance with the terms of that license and with the
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	7	inclusion of the above copyright notice. This software may not
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	8	be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	9	other person. No title to or ownership of the software is
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	10	hereby transferred.
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	11	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	12
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	13
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	14	ApplicationModel subclass:#UIPainter
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	15	instanceVariableNames:'activeHelpTool layoutTool specTool objectList selectionPanel
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	16	tabSelection specClass specSelector specSuperclass aspects'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	17	classVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	18	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	19	category:'Interface-UIPainter'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	20	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	21
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	22	!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	23
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	24	copyright
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	25	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	26	COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	27	All Rights Reserved
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	28
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	29	This software is furnished under a license and may be used
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	30	only in accordance with the terms of that license and with the
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	31	inclusion of the above copyright notice. This software may not
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	32	be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	33	other person. No title to or ownership of the software is
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	34	hereby transferred.
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	35	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	36
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	37	!
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	38
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	39	documentation
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	40	"
127 95070ea7ae42 update layout from view ca parents: 124 diff changeset	41	GUI-Builder:
95070ea7ae42 update layout from view ca parents: 124 diff changeset	42	this class allows the user to build its own applications providing a graphical
95070ea7ae42 update layout from view ca parents: 124 diff changeset	43	user interface to buildin components and to define the behavior of the components
95070ea7ae42 update layout from view ca parents: 124 diff changeset	44	during runtime. The resulting specifications can be installed as methods on
95070ea7ae42 update layout from view ca parents: 124 diff changeset	45	classes, typically subclasses of an ApplicationModel. These specifications
95070ea7ae42 update layout from view ca parents: 124 diff changeset	46	are used by the UIBuilder to generate the application window and its component
95070ea7ae42 update layout from view ca parents: 124 diff changeset	47	structues when open the application.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	48
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	49	[start with:]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	50	UIPainter open
127 95070ea7ae42 update layout from view ca parents: 124 diff changeset	51
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	52	[author:]
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	53	Claus Gittinger
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	54	Claus Atzkern
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	55
127 95070ea7ae42 update layout from view ca parents: 124 diff changeset	56	[see also:]
95070ea7ae42 update layout from view ca parents: 124 diff changeset	57	UIBuilder
95070ea7ae42 update layout from view ca parents: 124 diff changeset	58	ApplicationModel
95070ea7ae42 update layout from view ca parents: 124 diff changeset	59	UISpecification
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	60	"
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	61
0b53bd128667 * empty log message * ca parents: 101 diff changeset	62	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	63
0b53bd128667 * empty log message * ca parents: 101 diff changeset	64	!UIPainter class methodsFor:'instance creation'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	65
0b53bd128667 * empty log message * ca parents: 101 diff changeset	66	listHolder:aListHolder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	67	\|application\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	68
0b53bd128667 * empty log message * ca parents: 101 diff changeset	69	application := self new.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	70	application objectList:aListHolder.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	71	^ application open
0b53bd128667 * empty log message * ca parents: 101 diff changeset	72	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	73
0b53bd128667 * empty log message * ca parents: 101 diff changeset	74	painter:aBuilderView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	75	\|application\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	76
0b53bd128667 * empty log message * ca parents: 101 diff changeset	77	application := self new.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	78	application painter:aBuilderView.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	79	^ application open
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	80	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	81
87 cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	82	!UIPainter class methodsFor:'ST-80 queries'!
cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	83
cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	84	preferenceFor:aSymbol
cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	85	^ false
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	86
0b53bd128667 * empty log message * ca parents: 101 diff changeset	87
0b53bd128667 * empty log message * ca parents: 101 diff changeset	88	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	89
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	90	!UIPainter class methodsFor:'icons'!
bc196200ea8b enabled and style ca parents: 114 diff changeset	91
bc196200ea8b enabled and style ca parents: 114 diff changeset	92	iconAlignB
bc196200ea8b enabled and style ca parents: 114 diff changeset	93	^ Image fromFile:'b_alignB.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	94
bc196200ea8b enabled and style ca parents: 114 diff changeset	95	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	96
bc196200ea8b enabled and style ca parents: 114 diff changeset	97	iconAlignCenterH
bc196200ea8b enabled and style ca parents: 114 diff changeset	98	^ Image fromFile:'b_alignCH.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	99
bc196200ea8b enabled and style ca parents: 114 diff changeset	100	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	101
bc196200ea8b enabled and style ca parents: 114 diff changeset	102	iconAlignCenterV
bc196200ea8b enabled and style ca parents: 114 diff changeset	103	^ Image fromFile:'b_alignCV.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	104
bc196200ea8b enabled and style ca parents: 114 diff changeset	105	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	106
bc196200ea8b enabled and style ca parents: 114 diff changeset	107	iconAlignL
bc196200ea8b enabled and style ca parents: 114 diff changeset	108	^ Image fromFile:'b_alignL.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	109	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	110
bc196200ea8b enabled and style ca parents: 114 diff changeset	111	iconAlignLR
bc196200ea8b enabled and style ca parents: 114 diff changeset	112	^ Image fromFile:'b_alignLR.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	113
bc196200ea8b enabled and style ca parents: 114 diff changeset	114	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	115
bc196200ea8b enabled and style ca parents: 114 diff changeset	116	iconAlignR
bc196200ea8b enabled and style ca parents: 114 diff changeset	117	^ Image fromFile:'b_alignR.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	118
bc196200ea8b enabled and style ca parents: 114 diff changeset	119	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	120
bc196200ea8b enabled and style ca parents: 114 diff changeset	121	iconAlignT
bc196200ea8b enabled and style ca parents: 114 diff changeset	122	^ Image fromFile:'b_alignT.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	123
bc196200ea8b enabled and style ca parents: 114 diff changeset	124	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	125
bc196200ea8b enabled and style ca parents: 114 diff changeset	126	iconAlignTB
bc196200ea8b enabled and style ca parents: 114 diff changeset	127	^ Image fromFile:'b_alignTB.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	128
bc196200ea8b enabled and style ca parents: 114 diff changeset	129	! !
bc196200ea8b enabled and style ca parents: 114 diff changeset	130
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	131	!UIPainter class methodsFor:'interface specs'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	132
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	133	menuAlignment
bc196200ea8b enabled and style ca parents: 114 diff changeset	134	^ #(#Menu #(
bc196200ea8b enabled and style ca parents: 114 diff changeset	135	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	136	#'label:' 'align left'
bc196200ea8b enabled and style ca parents: 114 diff changeset	137	#'value:' #alignSelectionLeft
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	138	#'labelImage:' #( ResourceRetriever nil iconAlignL )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	139	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	140	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	141	#'label:' 'align right'
bc196200ea8b enabled and style ca parents: 114 diff changeset	142	#'value:' #alignSelectionRight
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	143	#'labelImage:' #( ResourceRetriever nil iconAlignR )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	144	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	145	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	146	#'label:' 'align left & right'
bc196200ea8b enabled and style ca parents: 114 diff changeset	147	#'value:' #alignSelectionLeftAndRight
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	148	#'labelImage:' #( ResourceRetriever nil iconAlignLR )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	149	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	150	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	151	#'label:' 'align top'
bc196200ea8b enabled and style ca parents: 114 diff changeset	152	#'value:' #alignSelectionTop
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	153	#'labelImage:' #( ResourceRetriever nil iconAlignT )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	154	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	155	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	156	#'label:' 'align bottom'
bc196200ea8b enabled and style ca parents: 114 diff changeset	157	#'value:' #alignSelectionBottom
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	158	#'labelImage:' #( ResourceRetriever nil iconAlignB )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	159	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	160	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	161	#'label:' 'align top & bottom'
bc196200ea8b enabled and style ca parents: 114 diff changeset	162	#'value:' #alignSelectionTopAndBottom
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	163	#'labelImage:' #( ResourceRetriever nil iconAlignTB )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	164	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	165	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	166	#'label:' 'align centered horizontal'
bc196200ea8b enabled and style ca parents: 114 diff changeset	167	#'value:' #alignSelectionCenterHor
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	168	#'labelImage:' #( ResourceRetriever nil iconAlignCenterH )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	169	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	170	#(#MenuItem
bc196200ea8b enabled and style ca parents: 114 diff changeset	171	#'label:' 'align centered vertical'
bc196200ea8b enabled and style ca parents: 114 diff changeset	172	#'value:' #alignSelectionCenterVer
130 ffa9ea02d276 update menu specifications ca parents: 129 diff changeset	173	#'labelImage:' #( ResourceRetriever nil iconAlignCenterV )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	174	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	175	)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	176	#( 3 3 )
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	177	nil
bc196200ea8b enabled and style ca parents: 114 diff changeset	178	)
bc196200ea8b enabled and style ca parents: 114 diff changeset	179
bc196200ea8b enabled and style ca parents: 114 diff changeset	180	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	181
bc196200ea8b enabled and style ca parents: 114 diff changeset	182	menuPullDown
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	183	^ #(#Menu #(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	184	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	185	#'label:' 'file'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	186	#'value:' #file
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	187	#'submenu:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	188	#(#Menu #(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	189	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	190	#'label:' 'new'
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	191	#'value:' #doNew
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	192	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	193	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	194	#'label:' 'from class ...'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	195	#'value:' #doFromClass
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	196	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	197	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	198	#'label:' 'pick a view '
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	199	#'value:' #doPickAView
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	200	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	201	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	202	#'label:' 'raise'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	203	#'value:' #doRaise
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	204	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	205	#(#MenuItem
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	206	#'label:' '='
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	207	)
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	208	#(#MenuItem
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	209	#'label:' 'quit'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	210	#'value:' #closeRequest
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	211	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	212	)
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	213	#( 3 )
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	214	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	215	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	216	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	217	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	218	#'label:' 'misc'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	219	#'value:' #misc
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	220	#'submenu:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	221	#(#Menu #(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	222	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	223	#'label:' 'grid'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	224	#'value:' #grid
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	225	#'submenu:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	226	#(#Menu #(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	227	#(#MenuItem
137 335faeed1663 update ca parents: 136 diff changeset	228	#'label:' 'show'
335faeed1663 update ca parents: 136 diff changeset	229	#'indication:' #gridShown:
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	230	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	231	#(#MenuItem
137 335faeed1663 update ca parents: 136 diff changeset	232	#'label:' 'align'
335faeed1663 update ca parents: 136 diff changeset	233	#'indication:' #gridAlign:
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	234	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	235	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	236	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	237	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	238	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	239	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	240	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	241	#'label:' 'undo'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	242	#'value:' #undo
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	243	#'submenu:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	244	#(#Menu #(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	245	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	246	#'label:' 'last'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	247	#'value:' #undoLast
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	248	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	249	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	250	#'label:' 'menu'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	251	#'value:' #openUndoMenu
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	252	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	253	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	254	#'label:' 'delete'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	255	#'value:' #removeUndoHistory
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	256	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	257	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	258	#(2)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	259	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	260	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	261	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	262	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	263	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	264	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	265	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	266	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	267	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	268	#'label:' 'code'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	269	#'value:' #code
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	270	#'submenu:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	271	#(#Menu #(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	272	#(#MenuItem
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	273	#'label:' 'class && method ...'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	274	#'value:' #defineClassAndSelector
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	275	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	276	#(#MenuItem
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	277	#'label:' '='
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	278	)
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	279	#(#MenuItem
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	280	#'label:' 'install window spec.'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	281	#'value:' #doInstallSpec
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	282	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	283	#(#MenuItem
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	284	#'label:' 'install help spec.'
152 2261aa2fa21d help ca parents: 149 diff changeset	285	#'value:' #doInstallHelp
2261aa2fa21d help ca parents: 149 diff changeset	286	)
2261aa2fa21d help ca parents: 149 diff changeset	287	#(#MenuItem
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	288	#'label:' 'install aspects'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	289	#'value:' #doInstallAspects
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	290	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	291	#(#MenuItem
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	292	#'label:' '='
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	293	)
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	294	#(#MenuItem
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	295	#'label:' 'show window spec.'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	296	#'value:' #doWindowSpec
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	297	)
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	298	#(#MenuItem
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	299	#'label:' '='
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	300	)
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	301	#(#MenuItem
149 e652608690b1 help ... ca parents: 144 diff changeset	302	#'label:' 'browse application'
e652608690b1 help ... ca parents: 144 diff changeset	303	#'value:' #doBrowseAppClass
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	304	)
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	305	#(#MenuItem
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	306	#'label:' 'start application'
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	307	#'value:' #doStartApplication
fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	308	)
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	309	)
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	310	#( 4 )
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	311	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	312	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	313	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	314	#(#MenuItem
0b53bd128667 * empty log message * ca parents: 101 diff changeset	315	#'label:' 'test'
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	316	#'nameKey:' #test
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	317	#'value:' #test
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	318	#'submenu:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	319	#(#Menu #(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	320	#(#MenuItem
137 335faeed1663 update ca parents: 136 diff changeset	321	#'label:' 'test mode'
335faeed1663 update ca parents: 136 diff changeset	322	#'indication:' #testMode:
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	323	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	324	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	325	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	326	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	327	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	328	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	329	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	330	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	331	nil
0b53bd128667 * empty log message * ca parents: 101 diff changeset	332	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	333	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	334
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	335	nameAndSelectorSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	336	"this window spec was automatically generated by the ST/X UIPainter"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	337
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	338	"do not manually edit this - the painter/builder may not be able to
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	339	handle the specification if its corrupted."
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	340
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	341	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	342	UIPainter new openOnClass:UIPainter andSelector:#nameAndSelectorSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	343	UIPainter new openInterface:#nameAndSelectorSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	344	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	345
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	346	<resource: #canvas>
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	347
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	348	^
142 75f927b856f6 update specs; remove color and default values ca parents: 137 diff changeset	349
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	350	#(#FullSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	351	#'window:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	352	#(#WindowSpec
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	353	#'name:' 'uIPainterView'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	354	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	355	#'label:' 'Painter'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	356	#'bounds:' #(#Rectangle 0 0 391 170)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	357	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	358	#'component:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	359	#(#SpecCollection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	360	#'collection:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	361	#(
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	362	#(#LabelSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	363	#'name:' 'classLabel'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	364	#'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	365	#'label:' 'class:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	366	#'adjust:' #right
176 a9e5b1615761 update menu ca parents: 174 diff changeset	367	#'resizeForLabel:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	368	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	369	#(#LabelSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	370	#'name:' 'superClassLabel'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	371	#'layout:' #(#AlignmentOrigin 45 0.11 77 0 1 0.5)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	372	#'label:' 'superclass:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	373	#'adjust:' #right
176 a9e5b1615761 update menu ca parents: 174 diff changeset	374	#'resizeForLabel:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	375	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	376	#(#LabelSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	377	#'name:' 'selectorLabel'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	378	#'layout:' #(#AlignmentOrigin 45 0.11 105 0 1 0.5)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	379	#'label:' 'selector:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	380	#'adjust:' #right
176 a9e5b1615761 update menu ca parents: 174 diff changeset	381	#'resizeForLabel:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	382	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	383	#(#InputFieldSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	384	#'name:' 'methodNameField'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	385	#'layout:' #(#LayoutFrame 47 0.11 95 0 -5 1.0 117 0)
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	386	#'tabable:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	387	#'model:' #methodNameChannel
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	388	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	389	#(#LabelSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	390	#'name:' 'boxLabel'
176 a9e5b1615761 update menu ca parents: 174 diff changeset	391	#'layout:' #(#Point 5 10)
92 79473a16fdc9 spec for class & selector Claus Gittinger <cg@exept.de> parents: 87 diff changeset	392	#'label:' 'class & selector for code:'
79473a16fdc9 spec for class & selector Claus Gittinger <cg@exept.de> parents: 87 diff changeset	393	#'adjust:' #left
176 a9e5b1615761 update menu ca parents: 174 diff changeset	394	#'resizeForLabel:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	395	)
a9e5b1615761 update menu ca parents: 174 diff changeset	396	#(#InputFieldSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	397	#'name:' 'classNameField'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	398	#'layout:' #(#LayoutFrame 47 0.11 39 0 -5 1.0 61 0)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	399	#'tabable:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	400	#'model:' #classNameChannel
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	401	)
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	402	#(#ComboBoxSpec
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	403	#'name:' 'comboBox1'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	404	#'layout:' #(#LayoutFrame 47 0.11 67 0 -5 1.0 89 0)
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	405	#'tabable:' true
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	406	#'model:' #superclassNameChannel
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	407	#'comboList:' #superclassNameDefaults
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	408	)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	409	#(#HorizontalPanelViewSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	410	#'name:' 'commitPanel'
a9e5b1615761 update menu ca parents: 174 diff changeset	411	#'layout:' #(#LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0)
a9e5b1615761 update menu ca parents: 174 diff changeset	412	#'component:'
a9e5b1615761 update menu ca parents: 174 diff changeset	413	#(#SpecCollection
a9e5b1615761 update menu ca parents: 174 diff changeset	414	#'collection:'
a9e5b1615761 update menu ca parents: 174 diff changeset	415	#(
a9e5b1615761 update menu ca parents: 174 diff changeset	416	#(#ActionButtonSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	417	#'name:' 'button1'
a9e5b1615761 update menu ca parents: 174 diff changeset	418	#'label:' 'cancel'
a9e5b1615761 update menu ca parents: 174 diff changeset	419	#'tabable:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	420	#'model:' #cancel
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	421	#'extent:' #(#Point 191 24)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	422	)
a9e5b1615761 update menu ca parents: 174 diff changeset	423	#(#ActionButtonSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	424	#'name:' 'button2'
a9e5b1615761 update menu ca parents: 174 diff changeset	425	#'label:' 'ok'
a9e5b1615761 update menu ca parents: 174 diff changeset	426	#'tabable:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	427	#'isDefault:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	428	#'model:' #accept
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	429	#'extent:' #(#Point 191 24)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	430	)
a9e5b1615761 update menu ca parents: 174 diff changeset	431	)
a9e5b1615761 update menu ca parents: 174 diff changeset	432	)
a9e5b1615761 update menu ca parents: 174 diff changeset	433	#'horizontalLayout:' #fitSpace
a9e5b1615761 update menu ca parents: 174 diff changeset	434	#'verticalLayout:' #fit
a9e5b1615761 update menu ca parents: 174 diff changeset	435	#'horizontalSpace:' 3
a9e5b1615761 update menu ca parents: 174 diff changeset	436	#'verticalSpace:' 3
a9e5b1615761 update menu ca parents: 174 diff changeset	437	)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	438	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	439	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	440	)
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	441
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	442	"Modified: 24.6.1997 / 18:50:14 / cg"
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	443	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	444
0b53bd128667 * empty log message * ca parents: 101 diff changeset	445	windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	446	"this window spec was automatically generated by the ST/X UIPainter"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	447
0b53bd128667 * empty log message * ca parents: 101 diff changeset	448	"do not manually edit this - the painter/builder may not be able to
0b53bd128667 * empty log message * ca parents: 101 diff changeset	449	handle the specification if its corrupted."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	450
0b53bd128667 * empty log message * ca parents: 101 diff changeset	451	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	452	UIPainter new openOnClass:UIPainter andSelector:#windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	453	UIPainter new openInterface:#windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	454	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	455	"UIPainter open"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	456
0b53bd128667 * empty log message * ca parents: 101 diff changeset	457	<resource: #canvas>
0b53bd128667 * empty log message * ca parents: 101 diff changeset	458
0b53bd128667 * empty log message * ca parents: 101 diff changeset	459	^
0b53bd128667 * empty log message * ca parents: 101 diff changeset	460
0b53bd128667 * empty log message * ca parents: 101 diff changeset	461	#(#FullSpec
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	462	#'flags:' 0
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	463	#'window:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	464	#(#WindowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	465	#'name:' 'uIPainterView'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	466	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	467	#'flags:' 0
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	468	#'label:' 'Tree-View'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	469	#'bounds:' #(#Rectangle 0 0 524 456)
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	470	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	471	#'component:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	472	#(#SpecCollection
0b53bd128667 * empty log message * ca parents: 101 diff changeset	473	#'collection:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	474	#(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	475	#(#MenuPanelSpec
137 335faeed1663 update ca parents: 136 diff changeset	476	#'name:' 'menuPullDown'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	477	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 25 0)
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	478	#'flags:' 0
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	479	#'tabable:' true
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	480	#'menu:' #menuPullDown
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	481	)
137 335faeed1663 update ca parents: 136 diff changeset	482	#(#MenuPanelSpec
335faeed1663 update ca parents: 136 diff changeset	483	#'name:' 'menuAlignment'
335faeed1663 update ca parents: 136 diff changeset	484	#'layout:' #(#LayoutFrame 0 0.0 29 0 233 0 54 0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	485	#'flags:' 0
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	486	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	487	#'menu:' #menuAlignment
335faeed1663 update ca parents: 136 diff changeset	488	#'showSeparatingLines:' true
335faeed1663 update ca parents: 136 diff changeset	489	)
335faeed1663 update ca parents: 136 diff changeset	490	#(#PanelViewSpec
335faeed1663 update ca parents: 136 diff changeset	491	#'name:' 'panelViewButtons'
149 e652608690b1 help ... ca parents: 144 diff changeset	492	#'layout:' #(#LayoutFrame -125 1.0 25 0.0 0 1.0 57 0.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	493	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	494	#'component:'
335faeed1663 update ca parents: 136 diff changeset	495	#(#SpecCollection
335faeed1663 update ca parents: 136 diff changeset	496	#'collection:'
335faeed1663 update ca parents: 136 diff changeset	497	#(
335faeed1663 update ca parents: 136 diff changeset	498	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	499	#'name:' 'moveLeft'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	500	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	501	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	502	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	503	#'labelChannel:' #'LABELb_moveLeft.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	504	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	505	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	506	#'model:' #moveSelectionLeft
335faeed1663 update ca parents: 136 diff changeset	507	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	508	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	509	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	510	)
335faeed1663 update ca parents: 136 diff changeset	511	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	512	#'name:' 'moveRight'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	513	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	514	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	515	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	516	#'labelChannel:' #'LABELb_moveRight.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	517	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	518	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	519	#'model:' #moveSelectionRight
335faeed1663 update ca parents: 136 diff changeset	520	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	521	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	522	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	523	)
335faeed1663 update ca parents: 136 diff changeset	524	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	525	#'name:' 'moveUp'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	526	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	527	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	528	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	529	#'labelChannel:' #'LABELb_moveUp.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	530	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	531	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	532	#'model:' #moveSelectionUp
335faeed1663 update ca parents: 136 diff changeset	533	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	534	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	535	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	536	)
335faeed1663 update ca parents: 136 diff changeset	537	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	538	#'name:' 'moveDown'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	539	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	540	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	541	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	542	#'labelChannel:' #'LABELb_moveDown.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	543	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	544	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	545	#'model:' #moveSelectionDown
335faeed1663 update ca parents: 136 diff changeset	546	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	547	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	548	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	549	)
335faeed1663 update ca parents: 136 diff changeset	550	)
335faeed1663 update ca parents: 136 diff changeset	551	)
335faeed1663 update ca parents: 136 diff changeset	552	#'level:' 1
335faeed1663 update ca parents: 136 diff changeset	553	#'horizontalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	554	#'verticalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	555	#'horizontalSpace:' 4
335faeed1663 update ca parents: 136 diff changeset	556	#'verticalSpace:' 4
335faeed1663 update ca parents: 136 diff changeset	557	)
335faeed1663 update ca parents: 136 diff changeset	558	#(#SequenceViewSpec
335faeed1663 update ca parents: 136 diff changeset	559	#'name:' 'objectTree'
149 e652608690b1 help ... ca parents: 144 diff changeset	560	#'layout:' #(#LayoutFrame 0 0.0 59 0.0 0 0.35 -25 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	561	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	562	#'enableChannel:' #enableChannel
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	563	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	564	#'menu:' #objectListMenu
335faeed1663 update ca parents: 136 diff changeset	565	#'model:' #objectList
335faeed1663 update ca parents: 136 diff changeset	566	#'hasHorizontalScrollBar:' true
335faeed1663 update ca parents: 136 diff changeset	567	#'hasVerticalScrollBar:' true
335faeed1663 update ca parents: 136 diff changeset	568	#'miniScrollerHorizontal:' true
335faeed1663 update ca parents: 136 diff changeset	569	#'isMultiSelect:' true
335faeed1663 update ca parents: 136 diff changeset	570	#'doubleClickSelector:' #doubleClick
335faeed1663 update ca parents: 136 diff changeset	571	#'useIndex:' true
335faeed1663 update ca parents: 136 diff changeset	572	)
335faeed1663 update ca parents: 136 diff changeset	573	#(#NoteBookViewSpec
335faeed1663 update ca parents: 136 diff changeset	574	#'name:' 'noteBook'
149 e652608690b1 help ... ca parents: 144 diff changeset	575	#'layout:' #(#LayoutFrame 0 0.35 59 0.0 0 1.0 -55 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	576	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	577	#'enableChannel:' #enableChannel
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	578	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	579	#'menu:' #tabList
335faeed1663 update ca parents: 136 diff changeset	580	#'style:'
335faeed1663 update ca parents: 136 diff changeset	581	#(#FontDescription
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	582	#helvetica #medium
137 335faeed1663 update ca parents: 136 diff changeset	583	#roman #'10'
335faeed1663 update ca parents: 136 diff changeset	584	)
335faeed1663 update ca parents: 136 diff changeset	585	#'model:' #tabModel
335faeed1663 update ca parents: 136 diff changeset	586	#'tabWidget:' #Window
335faeed1663 update ca parents: 136 diff changeset	587	#'canvas:' #noteBookView
335faeed1663 update ca parents: 136 diff changeset	588	)
335faeed1663 update ca parents: 136 diff changeset	589	#(#HorizontalPanelViewSpec
335faeed1663 update ca parents: 136 diff changeset	590	#'name:' 'modifyPanel'
149 e652608690b1 help ... ca parents: 144 diff changeset	591	#'layout:' #(#LayoutFrame 0 0.35 -55 1.0 0 1.0 -25 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	592	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	593	#'component:'
335faeed1663 update ca parents: 136 diff changeset	594	#(#SpecCollection
335faeed1663 update ca parents: 136 diff changeset	595	#'collection:'
335faeed1663 update ca parents: 136 diff changeset	596	#(
335faeed1663 update ca parents: 136 diff changeset	597	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	598	#'name:' 'cancelButton'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	599	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	600	#'label:' 'cancel'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	601	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	602	#'model:' #cancel
335faeed1663 update ca parents: 136 diff changeset	603	#'enableChannel:' #modifiedChannel
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	604	#'extent:' #(#Point 166 24)
137 335faeed1663 update ca parents: 136 diff changeset	605	)
335faeed1663 update ca parents: 136 diff changeset	606	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	607	#'name:' 'acceptButton'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	608	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	609	#'label:' 'ok'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	610	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	611	#'model:' #accept
335faeed1663 update ca parents: 136 diff changeset	612	#'enableChannel:' #modifiedChannel
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	613	#'extent:' #(#Point 166 24)
137 335faeed1663 update ca parents: 136 diff changeset	614	)
335faeed1663 update ca parents: 136 diff changeset	615	)
335faeed1663 update ca parents: 136 diff changeset	616	)
335faeed1663 update ca parents: 136 diff changeset	617	#'level:' 0
335faeed1663 update ca parents: 136 diff changeset	618	#'horizontalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	619	#'verticalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	620	#'horizontalSpace:' 3
335faeed1663 update ca parents: 136 diff changeset	621	#'verticalSpace:' 3
335faeed1663 update ca parents: 136 diff changeset	622	)
149 e652608690b1 help ... ca parents: 144 diff changeset	623	#(#LabelSpec
e652608690b1 help ... ca parents: 144 diff changeset	624	#'name:' 'helpInfo'
e652608690b1 help ... ca parents: 144 diff changeset	625	#'layout:' #(#LayoutFrame 2 0.0 -25 1.0 -2 1.0 -2 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	626	#'flags:' 0
149 e652608690b1 help ... ca parents: 144 diff changeset	627	#'label:' ''
e652608690b1 help ... ca parents: 144 diff changeset	628	#'level:' -1
e652608690b1 help ... ca parents: 144 diff changeset	629	#'adjust:' #left
e652608690b1 help ... ca parents: 144 diff changeset	630	)
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	631	#(#ToggleSpec
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	632	#'name:' 'galleryLabel'
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	633	#'layout:' #(#LayoutFrame -162 1.0 1 0 -82 1.0 23 0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	634	#'flags:' 0
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	635	#'label:' 'Gallery'
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	636	#'model:' #galleryShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	637	#'isTriggerOnDown:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	638	#'showLamp:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	639	#'lampColor:' #(#Color 100.0 100.0 0.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	640	)
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	641	#(#ToggleSpec
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	642	#'name:' 'painterLabel'
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	643	#'layout:' #(#LayoutFrame -81 1.0 1 0 -1 1.0 23 0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	644	#'flags:' 0
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	645	#'label:' 'Painter'
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	646	#'model:' #painterShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	647	#'isTriggerOnDown:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	648	#'showLamp:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	649	#'lampColor:' #(#Color 100.0 100.0 0.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	650	)
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	651	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	652	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	653	)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	654	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	655
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	656	!UIPainter methodsFor:'actions'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	657
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	658	accept
0b53bd128667 * empty log message * ca parents: 101 diff changeset	659	\|layout\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	660
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	661	objectList removeDependent:self.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	662
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	663	self isLayoutToolSelected ifTrue:[
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	664	(layout := layoutTool layout) notNil ifTrue:[
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	665	layoutTool layoutType == #Extent ifTrue:[
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	666	self painter setExtent:layout
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	667	] ifFalse:[
149 e652608690b1 help ... ca parents: 144 diff changeset	668	self painter setLayout:layout
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	669	]
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	670	]
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	671	] ifFalse:[
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	672	self isHelpToolSelected ifTrue:[
149 e652608690b1 help ... ca parents: 144 diff changeset	673	activeHelpTool accept
e652608690b1 help ... ca parents: 144 diff changeset	674	].
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	675	self painter updateFromSpec:(specTool specification).
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	676	].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	677	self modifiedChannel value:false.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	678	objectList addDependent:self.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	679
0b53bd128667 * empty log message * ca parents: 101 diff changeset	680	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	681
0b53bd128667 * empty log message * ca parents: 101 diff changeset	682	cancel
0b53bd128667 * empty log message * ca parents: 101 diff changeset	683	"cancel all changes and read back attributes from current view
0b53bd128667 * empty log message * ca parents: 101 diff changeset	684	"
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	685	self modifiedChannel value ifTrue:[
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	686	specTool specification:(self painter specForSelection).
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	687	layoutTool layoutView:(layoutTool layoutView).
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	688	self modifiedChannel value:false.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	689	]
137 335faeed1663 update ca parents: 136 diff changeset	690	!
335faeed1663 update ca parents: 136 diff changeset	691
335faeed1663 update ca parents: 136 diff changeset	692	doubleClick
335faeed1663 update ca parents: 136 diff changeset	693	objectList selectGroup
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	694	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	695
149 e652608690b1 help ... ca parents: 144 diff changeset	696	!UIPainter methodsFor:'active help'!
e652608690b1 help ... ca parents: 144 diff changeset	697
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	698	activeHelpApplicationClass
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	699	"gets application class keeping the associated help component
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	700	"
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	701	\|cls\|
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	702
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	703	specClass notNil ifTrue:[
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	704	specClass isBehavior ifFalse:[cls := Smalltalk at:specClass asSymbol]
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	705	ifTrue:[cls := specClass].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	706
187 fa52e7ad5cb2 pullDownMenu ca parents: 183 diff changeset	707	(cls includesBehavior:UISpecification) ifTrue:[
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	708	cls := UISpecificationTool
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	709	]
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	710	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	711	^ cls
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	712	!
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	713
149 e652608690b1 help ... ca parents: 144 diff changeset	714	activeHelpTool
152 2261aa2fa21d help ca parents: 149 diff changeset	715	\|cls\|
2261aa2fa21d help ca parents: 149 diff changeset	716
149 e652608690b1 help ... ca parents: 144 diff changeset	717	activeHelpTool isNil ifTrue:[
152 2261aa2fa21d help ca parents: 149 diff changeset	718	activeHelpTool := UIHelpTool new.
2261aa2fa21d help ca parents: 149 diff changeset	719
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	720	(cls := self activeHelpApplicationClass) notNil ifTrue:[
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	721	activeHelpTool dictionary:(cls helpSpec).
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	722	]
149 e652608690b1 help ... ca parents: 144 diff changeset	723	].
e652608690b1 help ... ca parents: 144 diff changeset	724	^ activeHelpTool
e652608690b1 help ... ca parents: 144 diff changeset	725	!
e652608690b1 help ... ca parents: 144 diff changeset	726
e652608690b1 help ... ca parents: 144 diff changeset	727	showHelp:aHelpText for:view
e652608690b1 help ... ca parents: 144 diff changeset	728	"hook to allow an application to display active help
e652608690b1 help ... ca parents: 144 diff changeset	729	texts in its own info area.
e652608690b1 help ... ca parents: 144 diff changeset	730	This method may be redefined in a concrete application.
e652608690b1 help ... ca parents: 144 diff changeset	731	If it returns false, the ActiveHelp manager will popup a
e652608690b1 help ... ca parents: 144 diff changeset	732	bubble with the help text."
e652608690b1 help ... ca parents: 144 diff changeset	733
e652608690b1 help ... ca parents: 144 diff changeset	734	\|l\|
e652608690b1 help ... ca parents: 144 diff changeset	735
e652608690b1 help ... ca parents: 144 diff changeset	736	(l := self builder componentAt:#helpInfo) notNil ifTrue:[
152 2261aa2fa21d help ca parents: 149 diff changeset	737	aHelpText replaceAll:(Character cr) by:(Character space).
149 e652608690b1 help ... ca parents: 144 diff changeset	738	l label:aHelpText.
152 2261aa2fa21d help ca parents: 149 diff changeset	739	^ true.
149 e652608690b1 help ... ca parents: 144 diff changeset	740	].
e652608690b1 help ... ca parents: 144 diff changeset	741	^ false
e652608690b1 help ... ca parents: 144 diff changeset	742
e652608690b1 help ... ca parents: 144 diff changeset	743
e652608690b1 help ... ca parents: 144 diff changeset	744	! !
e652608690b1 help ... ca parents: 144 diff changeset	745
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	746	!UIPainter methodsFor:'aspects'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	747
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	748	enableChannel
bc196200ea8b enabled and style ca parents: 114 diff changeset	749	"true if modifications are allowed otherwise running test
bc196200ea8b enabled and style ca parents: 114 diff changeset	750	"
bc196200ea8b enabled and style ca parents: 114 diff changeset	751	^ self painter enableChannel
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	752	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	753
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	754	galleryShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	755	\|holder\|
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	756
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	757	(holder := builder bindingAt:#galleryShown) isNil ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	758	builder aspectAt:#galleryShown put:(holder := true asValue).
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	759	holder addDependent:self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	760	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	761	^ holder
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	762
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	763	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	764
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	765	menuAlignment
bc196200ea8b enabled and style ca parents: 114 diff changeset	766	\|menu channel\|
bc196200ea8b enabled and style ca parents: 114 diff changeset	767
bc196200ea8b enabled and style ca parents: 114 diff changeset	768	channel := self enableChannel.
bc196200ea8b enabled and style ca parents: 114 diff changeset	769
bc196200ea8b enabled and style ca parents: 114 diff changeset	770	menu := Menu new.
bc196200ea8b enabled and style ca parents: 114 diff changeset	771	menu fromLiteralArrayEncoding:(self class menuAlignment).
bc196200ea8b enabled and style ca parents: 114 diff changeset	772	menu receiver:self.
bc196200ea8b enabled and style ca parents: 114 diff changeset	773	menu menuItems do:[:anItem\| anItem enabled:channel].
bc196200ea8b enabled and style ca parents: 114 diff changeset	774	^ menu
bc196200ea8b enabled and style ca parents: 114 diff changeset	775	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	776
bc196200ea8b enabled and style ca parents: 114 diff changeset	777	menuPullDown
bc196200ea8b enabled and style ca parents: 114 diff changeset	778	\|menu channel\|
bc196200ea8b enabled and style ca parents: 114 diff changeset	779
bc196200ea8b enabled and style ca parents: 114 diff changeset	780	channel := self enableChannel.
bc196200ea8b enabled and style ca parents: 114 diff changeset	781
bc196200ea8b enabled and style ca parents: 114 diff changeset	782	menu := Menu new.
bc196200ea8b enabled and style ca parents: 114 diff changeset	783	menu fromLiteralArrayEncoding:(self class menuPullDown).
bc196200ea8b enabled and style ca parents: 114 diff changeset	784	menu receiver:self.
bc196200ea8b enabled and style ca parents: 114 diff changeset	785
bc196200ea8b enabled and style ca parents: 114 diff changeset	786	menu menuItems do:[:anItem\|
bc196200ea8b enabled and style ca parents: 114 diff changeset	787	anItem nameKey ~~ #test ifTrue:[anItem enabled:channel]
133 e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	788	ifFalse:[anItem value:channel].
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	789	].
bc196200ea8b enabled and style ca parents: 114 diff changeset	790	^ menu
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	791	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	792
0b53bd128667 * empty log message * ca parents: 101 diff changeset	793	modifiedChannel
0b53bd128667 * empty log message * ca parents: 101 diff changeset	794
0b53bd128667 * empty log message * ca parents: 101 diff changeset	795	\|holder\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	796
0b53bd128667 * empty log message * ca parents: 101 diff changeset	797	(holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	798	builder aspectAt:#modifiedChannel put:(holder := false asValue).
0b53bd128667 * empty log message * ca parents: 101 diff changeset	799	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	800	^ holder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	801	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	802
0b53bd128667 * empty log message * ca parents: 101 diff changeset	803	noteBookView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	804	"automatically generated by UIPainter ..."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	805
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	806	\|noteBook channel n1 n2\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	807
0b53bd128667 * empty log message * ca parents: 101 diff changeset	808	(noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	809	noteBook := View new.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	810	layoutTool := UILayoutTool new.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	811	specTool := UISpecificationTool new.
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	812	channel := self modifiedChannel.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	813
152 2261aa2fa21d help ca parents: 149 diff changeset	814	layoutTool masterApplication:self.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	815	specTool masterApplication:self.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	816
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	817	n1 := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	818	n2 := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	819
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	820	n1 client:layoutTool.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	821	specTool builder:(n2 client:specTool).
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	822
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	823	layoutTool masterApplication:self.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	824	specTool masterApplication:self.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	825	layoutTool modifiedHolder:channel.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	826	specTool modifiedHolder:channel.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	827	builder aspectAt:#noteBookView put:noteBook.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	828	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	829	^ noteBook
0b53bd128667 * empty log message * ca parents: 101 diff changeset	830	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	831
0b53bd128667 * empty log message * ca parents: 101 diff changeset	832	objectList
0b53bd128667 * empty log message * ca parents: 101 diff changeset	833	^ objectList
0b53bd128667 * empty log message * ca parents: 101 diff changeset	834	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	835
0b53bd128667 * empty log message * ca parents: 101 diff changeset	836	objectListMenu
0b53bd128667 * empty log message * ca parents: 101 diff changeset	837	"returns a block which returns the menu
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	838	!!hack!!
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	839	"
121 96d6feeeb049 middleButtonMen: ca parents: 118 diff changeset	840	^ [ self painter showMiddleButtonMenu ].
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	841
0b53bd128667 * empty log message * ca parents: 101 diff changeset	842
0b53bd128667 * empty log message * ca parents: 101 diff changeset	843
0b53bd128667 * empty log message * ca parents: 101 diff changeset	844	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	845
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	846	painterShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	847	\|holder\|
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	848
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	849	(holder := builder bindingAt:#painterShown) isNil ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	850	builder aspectAt:#painterShown put:(holder := true asValue).
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	851	holder addDependent:self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	852	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	853	^ holder
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	854
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	855	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	856
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	857	tabList
0b53bd128667 * empty log message * ca parents: 101 diff changeset	858	"automatically generated by UIPainter ..."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	859
0b53bd128667 * empty log message * ca parents: 101 diff changeset	860	\|holder\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	861
0b53bd128667 * empty log message * ca parents: 101 diff changeset	862	(holder := builder bindingAt:#tabList) isNil ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	863	builder aspectAt:#tabList put:(holder := ValueHolder new).
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	864	holder value:#( 'Properties' ).
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	865	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	866	^ holder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	867	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	868
0b53bd128667 * empty log message * ca parents: 101 diff changeset	869	tabModel
0b53bd128667 * empty log message * ca parents: 101 diff changeset	870	"automatically generated by UIPainter ..."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	871
0b53bd128667 * empty log message * ca parents: 101 diff changeset	872	\|holder\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	873
0b53bd128667 * empty log message * ca parents: 101 diff changeset	874	(holder := builder bindingAt:#tabModel) isNil ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	875	holder := AspectAdaptor new subject:self; forAspect:#tabSelection.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	876	builder aspectAt:#tabModel put:holder.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	877	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	878	^ holder
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	879	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	880
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	881	!UIPainter methodsFor:'binding access'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	882
0b53bd128667 * empty log message * ca parents: 101 diff changeset	883	aspectFor:aKey
0b53bd128667 * empty log message * ca parents: 101 diff changeset	884	"check wether aspect is assigned to a label icon
0b53bd128667 * empty log message * ca parents: 101 diff changeset	885	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	886	(aKey startsWith:'LABEL') ifFalse:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	887	^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
0b53bd128667 * empty log message * ca parents: 101 diff changeset	888	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	889	^ Image fromFile:(aKey copyFrom:(('LABEL' size) + 1))
0b53bd128667 * empty log message * ca parents: 101 diff changeset	890	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	891
0b53bd128667 * empty log message * ca parents: 101 diff changeset	892	!UIPainter methodsFor:'change & update'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	893
0b53bd128667 * empty log message * ca parents: 101 diff changeset	894	update:something with:aParameter from:someObject
0b53bd128667 * empty log message * ca parents: 101 diff changeset	895
0b53bd128667 * empty log message * ca parents: 101 diff changeset	896	(someObject == objectList and:[something ~~ #list]) ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	897	something ~~ #layout ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	898	self objectListChanged
0b53bd128667 * empty log message * ca parents: 101 diff changeset	899	] ifFalse:[
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	900	self modifiedChannel value ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	901	^ self
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	902	].
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	903	layoutTool update
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	904	].
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	905	^ self modifiedChannel value:false
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	906	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	907
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	908	self galleryShown == someObject ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	909	(self galleryShown value) ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	910	self raiseUIView:(selectionPanel window)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	911	] ifFalse:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	912	self hideUIView:(selectionPanel window)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	913	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	914	^ self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	915	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	916
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	917	self painterShown == someObject ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	918	(self painterShown value) ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	919	self raiseUIView:(self painter topView)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	920	] ifFalse:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	921	self hideUIView:(self painter topView)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	922	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	923	^ self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	924	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	925
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	926	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	927
0b53bd128667 * empty log message * ca parents: 101 diff changeset	928	!UIPainter methodsFor:'event handling'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	929
0b53bd128667 * empty log message * ca parents: 101 diff changeset	930	doesNotUnderstand:aMessage
0b53bd128667 * empty log message * ca parents: 101 diff changeset	931	\|painter\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	932
0b53bd128667 * empty log message * ca parents: 101 diff changeset	933	painter := self painter.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	934
0b53bd128667 * empty log message * ca parents: 101 diff changeset	935	(painter respondsTo:(aMessage selector)) ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	936	^ aMessage sendTo:painter
0b53bd128667 * empty log message * ca parents: 101 diff changeset	937	].
149 e652608690b1 help ... ca parents: 144 diff changeset	938	super doesNotUnderstand:aMessage
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	939
0b53bd128667 * empty log message * ca parents: 101 diff changeset	940	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	941
0b53bd128667 * empty log message * ca parents: 101 diff changeset	942	objectListChanged
0b53bd128667 * empty log message * ca parents: 101 diff changeset	943	"something changed in the painter view
0b53bd128667 * empty log message * ca parents: 101 diff changeset	944	"
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	945	\|oldSelection view slices list spec props size nameOfSpec\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	946
0b53bd128667 * empty log message * ca parents: 101 diff changeset	947	props := objectList selectedProperty.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	948	oldSelection := tabSelection.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	949	tabSelection := nil.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	950
0b53bd128667 * empty log message * ca parents: 101 diff changeset	951	props isNil ifFalse:[
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	952	view := props view.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	953	spec := props spec copy.
142 75f927b856f6 update specs; remove color and default values ca parents: 137 diff changeset	954
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	955	layoutTool layoutView == view ifFalse:[
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	956	slices := spec class slices.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	957	size := slices size + 1.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	958	list := Array new:size.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	959	slices keysAndValuesDo:[:i :s\|list at:i put:(s first asString)].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	960	list at:size put:(layoutTool class label).
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	961	(self tabList) value:list.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	962	] ifTrue:[
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	963	list := self tabList value
142 75f927b856f6 update specs; remove color and default values ca parents: 137 diff changeset	964	].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	965	(list findFirst:[:n\| n = oldSelection ]) ~~ 0 ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	966	tabSelection := oldSelection
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	967	] ifFalse:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	968	tabSelection := list first
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	969	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	970	nameOfSpec := spec class name.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	971	] ifTrue:[
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	972	nameOfSpec := ''
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	973	].
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	974
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	975	self showHelp:nameOfSpec for:nil.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	976
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	977	layoutTool layoutView:view.
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	978	specTool specification:spec.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	979
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	980	tabSelection notNil ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	981	self isLayoutToolSelected ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	982	(self noteBookView subViews at:1) raise
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	983	] ifFalse:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	984	specTool selection:tabSelection.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	985	(self noteBookView subViews at:2) raise
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	986	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	987	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	988
168 8a79add2260f update notification when tab changed ca parents: 166 diff changeset	989	(builder componentAt:#noteBook) setSelection:tabSelection.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	990	self modifiedChannel value:false.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	991	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	992
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	993	!UIPainter methodsFor:'private'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	994
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	995	hideUIView:aView
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	996	aView beIndependent.
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	997	aView unmap.
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	998	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	999
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1000	painter
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1001	^ objectList painter
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1002	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1003
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1004	raiseUIView:aView
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1005	aView map.
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1006	aView bePartner.
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1007	!
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1008
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1009	setClass:cls selector:selector
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1010	\|clsName superClassName\|
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1011
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1012	clsName := cls name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1013	superClassName := cls superclass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1014
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1015	(self aspectFor:#classNameChannel) value:clsName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1016	(self aspectFor:#methodNameChannel) value:(selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1017	(self aspectFor:#superclassNameChannel) value:superClassName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1018
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1019	self painter
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1020	className:clsName
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1021	superclassName:superClassName
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1022	selector:(selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1023
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1024	specClass := clsName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1025	specSelector := (selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1026	specSuperclass := superClassName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1027
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1028	"Modified: 24.6.1997 / 19:07:01 / cg"
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1029	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1030
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1031	!UIPainter methodsFor:'queries'!
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1032
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1033	isHelpToolSelected
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1034	^ tabSelection = 'Help'
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1035	!
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1036
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1037	isLayoutToolSelected
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1038	^ tabSelection = layoutTool class label
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1039	! !
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1040
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1041	!UIPainter methodsFor:'selection'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1042
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1043	tabSelection
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1044	^ tabSelection
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1045	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1046
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1047	tabSelection:something
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1048	\|raiseViewIdx\|
121 96d6feeeb049 middleButtonMen: ca parents: 118 diff changeset	1049
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1050	something notNil ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1051	raiseViewIdx := 1.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1052	tabSelection := something.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1053
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1054	self isLayoutToolSelected ifFalse:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1055	specTool selection:tabSelection.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1056	raiseViewIdx := 2
121 96d6feeeb049 middleButtonMen: ca parents: 118 diff changeset	1057	].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1058	(self noteBookView subViews at:raiseViewIdx) raise.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1059	self cancel.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1060	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1061	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1062
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1063	!UIPainter methodsFor:'startup / release'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1064
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1065	closeRequest
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1066	"close all windows open by builder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1067	"
133 e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1068	\|anyUnsavedChanges\|
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1069
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1070	objectList painter isModified ifTrue:[
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1071	(self confirm:'quit without saving ?') ifFalse:[
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1072	^ self
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1073	]
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1074	].
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1075
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1076	objectList removeDependent:self.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1077	objectList painter release.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1078
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1079	selectionPanel notNil ifTrue:[
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	1080	selectionPanel masterApplication:nil.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1081	selectionPanel closeRequest
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1082	].
149 e652608690b1 help ... ca parents: 144 diff changeset	1083	selectionPanel := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1084	layoutTool := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1085	objectList := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1086	activeHelpTool := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1087
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1088	super closeRequest.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1089
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1090	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1091
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1092	closeRequestFor:aTopView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1093	"handle a close request for a specific view
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1094	"
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1095	\|topView\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1096
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1097	topView := self window.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1098
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1099	topView == aTopView ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1100	super closeRequestFor:aTopView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1101	] ifFalse:[
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1102	aTopView = selectionPanel window ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1103	self galleryShown value:false
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1104	] ifFalse:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1105	self painterShown value:false
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1106	].
133 e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1107	topView raise.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1108	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1109	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1110
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1111	openInterface
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1112	"open interfaces
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1113	"
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1114	\|painterView painter cls topView\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1115
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1116	aspects := IdentityDictionary new.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1117
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1118	aspects at:#classNameChannel put:(
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1119	(specClass notNil ifTrue:[specClass]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1120	ifFalse:['NewApplication']) asValue
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1121	).
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1122	specSuperclass isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1123	specClass notNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1124	(cls := Smalltalk at:specClass asSymbol) notNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1125	specSuperclass := cls superclass name.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1126	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1127	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1128	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1129	aspects at:#superclassNameChannel put:(
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1130	(specSuperclass notNil ifTrue:[specSuperclass]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1131	ifFalse:['ApplicationModel']) asValue
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1132	).
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1133	aspects at:#superclassNameDefaults put:#('ApplicationModel' 'SimpleDialog') asValue.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1134	aspects at:#methodNameChannel put:(
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1135	(specSelector notNil ifTrue:[specSelector asValue]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1136	ifFalse:[#windowSpec]) asValue
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1137	).
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1138
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1139	painterView := StandardSystemView new.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1140	painterView label:'unnamed canvas'.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1141	painterView extent:300@300.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1142
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1143	painter := UIPainterView in:painterView.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1144	painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1145
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1146	objectList := painter listHolder.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1147	objectList addDependent:self.
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1148
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1149	super openInterface.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1150
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1151	topView := self window.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1152	topView bePartner.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1153	topView label:'Interface Builder'.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1154	topView icon:(Image fromFile:'bitmaps/Builder.xbm' resolution:100).
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1155
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1156	painterView openInGroup:(topView windowGroup).
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1157	painterView bePartner.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1158	painterView application:self.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1159	painterView open.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1160
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1161	painterView application:self.
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	1162	selectionPanel := UISelectionPanel new.
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1163	selectionPanel allButOpenInterface:#windowSpec.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1164	selectionPanel window openInGroup:(topView windowGroup).
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1165	selectionPanel window bePartner.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1166	selectionPanel openWindow.
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	1167	selectionPanel masterApplication:self.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1168	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1169
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1170	openNewWindowCanvas
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1171	"open new
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1172	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1173	self open.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1174
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1175
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1176	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1177
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1178	openOnClass:aClass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1179	"open up an interface builder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1180	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1181	self openOnClass:aClass andSelector:#windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1182	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1183
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1184	openOnClass:aClass andSelector:aSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1185	"open up an interface builder, fetching a spec from someClass
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1186	via some selector
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1187	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1188	\|painter\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1189
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1190	aClass isNil ifTrue:[
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1191	self warn:'nil class given (class was probably renamed ?)'.
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1192	].
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1193
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1194	self openInterface.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1195
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1196	aClass notNil ifTrue:[
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1197	painter := self painter.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1198
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1199	self setClass:aClass selector:aSelector.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1200	"/ specClass := aClass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1201	"/ specSuperclass := aClass superclass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1202	"/ specSelector := aSelector.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1203	"/
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1204	"/ (aspects at:#classNameChannel) value:specClass.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1205	"/ (aspects at:#superclassNameChannel) value:specSuperclass.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1206	"/ (aspects at:#methodNameChannel) value:specSelector asSymbol.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1207	"/
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1208	"/ painter
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1209	"/ className:aClass name
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1210	"/ superclassName:aClass superclass name
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1211	"/ selector:aSelector.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1212
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1213	painter setupFromSpec:(aClass perform:aSelector).
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1214	]
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1215
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1216	"Modified: 24.6.1997 / 19:07:05 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1217	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1218
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1219	!UIPainter methodsFor:'user interaction - dialog'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1220
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1221	checkClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1222	"check for class & superclass"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1223
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1224	\|superclass cls\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1225
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1226	specClass isNil ifTrue:[^ false].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1227
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1228	specClass isBehavior ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1229	cls := Smalltalk at:specClass asSymbol
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1230	] ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1231	cls := specClass
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1232	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1233	cls isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1234	(superclass := Smalltalk at:specSuperclass asSymbol) isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1235	self warn:'no class named ' , specSuperclass , ' exists.'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1236	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1237	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1238	(self confirm:'create ' , specClass , ' ?') ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1239	superclass subclass:(specClass asSymbol)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1240	instanceVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1241	classVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1242	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1243	category:'New-Applications'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1244	^ true.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1245	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1246	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1247	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1248	cls isBehavior ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1249	self warn:'a global named ' , specClass , ' exists, but is no class.'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1250	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1251	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1252
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1253	specSuperclass isBehavior ifFalse:[
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1254	specSuperclass isEmpty ifFalse:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1255	superclass := Smalltalk at:specSuperclass asSymbol
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1256	] ifTrue:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1257	specSuperclass := nil.
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1258	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1259	] ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1260	superclass := specSuperclass
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1261	].
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1262
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1263	specSuperclass notNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1264	superclass isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1265	self warn:'no class named ' , specSuperclass , ' exists.'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1266	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1267	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1268
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1269	(cls isSubclassOf:superclass) ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1270	self warn:'a global named ' , specClass , ' exists, but is not a subclass of ' , superclass name , '.'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1271	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1272	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1273	].
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1274
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1275	superclass isNil ifTrue:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1276	cls notNil ifTrue:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1277	specSuperclass := cls superclass name
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1278	]
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1279	].
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1280
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1281	^ true
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1282
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1283	"Modified: 25.6.1997 / 13:37:11 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1284	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1285
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1286	defineClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1287	"launch a dialog to define class, superclass and method"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1288
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1289	\|again tmp\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1290
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1291	[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1292	again := false.
160 622b88baeff6 checkin from browser Claus Gittinger <cg@exept.de> parents: 157 diff changeset	1293
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1294	(tmp := specClass) isNil ifTrue:[tmp := 'NewApplication'].
a9e5b1615761 update menu ca parents: 174 diff changeset	1295	aspects at:#classNameChannel put:tmp asValue.
a9e5b1615761 update menu ca parents: 174 diff changeset	1296
a9e5b1615761 update menu ca parents: 174 diff changeset	1297	(tmp := specSelector) isNil ifTrue:[tmp := 'windowSpec'].
a9e5b1615761 update menu ca parents: 174 diff changeset	1298	aspects at:#methodNameChannel put:tmp asValue.
a9e5b1615761 update menu ca parents: 174 diff changeset	1299
a9e5b1615761 update menu ca parents: 174 diff changeset	1300	(tmp := specSuperclass) isNil ifTrue:[tmp := 'ApplicationModel'].
a9e5b1615761 update menu ca parents: 174 diff changeset	1301	aspects at:#superclassNameChannel put:tmp asValue.
160 622b88baeff6 checkin from browser Claus Gittinger <cg@exept.de> parents: 157 diff changeset	1302
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1303	(self openDialogInterface:#nameAndSelectorSpec) ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1304
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1305	specClass := (self aspectFor:#classNameChannel) value.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1306	specSelector := (self aspectFor:#methodNameChannel) value.
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1307	specSelector notNil ifTrue:[specSelector := specSelector asSymbol].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1308	specSuperclass := (self aspectFor:#superclassNameChannel) value.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1309
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1310	(again := self checkClassAndSelector not) ifFalse:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1311	self painter className:specClass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1312	superclassName:specSuperclass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1313	selector:specSelector.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1314	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1315	]
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1316
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1317	] doWhile:[again]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1318
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1319	"Modified: 17.6.1997 / 14:42:02 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1320	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1321
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1322	!UIPainter methodsFor:'user interaction - pullDown'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1323
149 e652608690b1 help ... ca parents: 144 diff changeset	1324	doBrowseAppClass
e652608690b1 help ... ca parents: 144 diff changeset	1325	"open a browser on the class"
e652608690b1 help ... ca parents: 144 diff changeset	1326
e652608690b1 help ... ca parents: 144 diff changeset	1327	\|cls\|
e652608690b1 help ... ca parents: 144 diff changeset	1328
e652608690b1 help ... ca parents: 144 diff changeset	1329	specClass isNil ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1330	^ self information:'no class yet'.
e652608690b1 help ... ca parents: 144 diff changeset	1331	].
e652608690b1 help ... ca parents: 144 diff changeset	1332
e652608690b1 help ... ca parents: 144 diff changeset	1333	specClass isBehavior ifFalse:[
e652608690b1 help ... ca parents: 144 diff changeset	1334	cls := Smalltalk at:specClass asSymbol
e652608690b1 help ... ca parents: 144 diff changeset	1335	] ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1336	cls := specClass
e652608690b1 help ... ca parents: 144 diff changeset	1337	].
e652608690b1 help ... ca parents: 144 diff changeset	1338
e652608690b1 help ... ca parents: 144 diff changeset	1339	cls isNil ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1340	^ self information:'no class yet'.
e652608690b1 help ... ca parents: 144 diff changeset	1341	].
e652608690b1 help ... ca parents: 144 diff changeset	1342
e652608690b1 help ... ca parents: 144 diff changeset	1343	SystemBrowser openInClass:cls
e652608690b1 help ... ca parents: 144 diff changeset	1344
e652608690b1 help ... ca parents: 144 diff changeset	1345
e652608690b1 help ... ca parents: 144 diff changeset	1346	!
e652608690b1 help ... ca parents: 144 diff changeset	1347
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1348	doFromClass
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1349	\|className methodName cls sel accepted failed spec s painter\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1350
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1351	objectList painter isModified ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1352	(self confirm:'edit another interface without saving your modifications ?') ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1353	^ self
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1354	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1355	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1356
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1357	className := (specClass ? '') asValue.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1358	methodName := (specSelector ? '') asValue.
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1359	painter := self painter.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1360
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1361	(s := painter className) notNil ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1362	className value:s
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1363	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1364	(s := painter methodName) notNil ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1365	methodName value:s
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1366	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1367
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1368	failed := false.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1369	[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1370	accepted :=
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1371	(DialogBox new
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1372	addTextLabel:'Classes name:';
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1373	addInputFieldOn:className;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1374	addVerticalSpace;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1375	addTextLabel:'methods name:';
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1376	addInputFieldOn:methodName;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1377	addAbortButton;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1378	addOkButton;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1379	open
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1380	) accepted.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1381
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1382	accepted ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1383	cls := Smalltalk classNamed:className value.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1384	cls isNil ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1385	failed := true.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1386	self warn:'no such class'.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1387	] ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1388	sel := methodName value asSymbol.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1389	(cls respondsTo:sel ) ifFalse:[
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1390	failed := true.
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1391	self warn:'no such method'
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1392	] ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1393	spec := cls perform:sel.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1394	spec isArray ifFalse:[
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1395	failed := true.
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1396	self warn:'not a windowSpec method'
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1397	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1398	"/ ok, got it
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1399
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1400	self setClass:cls selector:sel.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1401
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1402	painter setupFromSpec:spec.
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1403
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1404	^ self
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1405	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1406	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1407	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1408	] doWhile:[accepted and:[failed]].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1409
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1410	"Modified: 24.6.1997 / 18:59:29 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1411	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1412
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1413	doInstallAspects
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1414	\|code\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1415
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1416	(specClass isNil or:[specSelector isNil]) ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1417	self defineClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1418	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1419
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1420	self checkClassAndSelector ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1421	^ self
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1422	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1423
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1424	self painter className:specClass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1425	superclassName:specSuperclass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1426	selector:specSelector.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1427
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1428	code := self painter generateAspectMethods.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1429	(ReadStream on:code) fileIn.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1430
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1431	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1432
152 2261aa2fa21d help ca parents: 149 diff changeset	1433	doInstallHelp
2261aa2fa21d help ca parents: 149 diff changeset	1434	\|dict cls src\|
2261aa2fa21d help ca parents: 149 diff changeset	1435
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1436	cls := self activeHelpApplicationClass.
152 2261aa2fa21d help ca parents: 149 diff changeset	1437
2261aa2fa21d help ca parents: 149 diff changeset	1438	cls isNil ifTrue:[
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1439	^ self information:'no application class defined'
152 2261aa2fa21d help ca parents: 149 diff changeset	1440	].
2261aa2fa21d help ca parents: 149 diff changeset	1441
2261aa2fa21d help ca parents: 149 diff changeset	1442	activeHelpTool isNil ifTrue:[
2261aa2fa21d help ca parents: 149 diff changeset	1443	^ self information:'no help text defined'
2261aa2fa21d help ca parents: 149 diff changeset	1444	].
2261aa2fa21d help ca parents: 149 diff changeset	1445	dict := activeHelpTool dictionary.
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1446	src := '' writeStream.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1447
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1448	src nextPutAll:
152 2261aa2fa21d help ca parents: 149 diff changeset	1449
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1450	'helpSpec
152 2261aa2fa21d help ca parents: 149 diff changeset	1451	"return a dictionary filled with helpKey -> helptext associations.
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1452	These are used by the activeHelp tool.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1453	"
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1454	^ super helpSpec addPairsFrom:#(
152 2261aa2fa21d help ca parents: 149 diff changeset	1455
2261aa2fa21d help ca parents: 149 diff changeset	1456	'.
2261aa2fa21d help ca parents: 149 diff changeset	1457
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1458	dict keysAndValuesDo:[:key :txt\|
152 2261aa2fa21d help ca parents: 149 diff changeset	1459	\|t\|
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1460	src nextPutLine:key storeString.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1461
152 2261aa2fa21d help ca parents: 149 diff changeset	1462	t := txt asString.
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1463	(t endsWith:Character cr) ifTrue:[
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1464	t := t copyWithoutLast:1
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1465	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1466	src nextPutLine:t storeString; cr.
152 2261aa2fa21d help ca parents: 149 diff changeset	1467	].
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1468	src nextPutLine:')'.
152 2261aa2fa21d help ca parents: 149 diff changeset	1469	src := src contents.
2261aa2fa21d help ca parents: 149 diff changeset	1470	Compiler compile:src forClass:cls class inCategory:'help specs'
2261aa2fa21d help ca parents: 149 diff changeset	1471	!
2261aa2fa21d help ca parents: 149 diff changeset	1472
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1473	doInstallSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1474	\|code painter\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1475
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1476	(specClass isNil or:[specSelector isNil]) ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1477	self defineClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1478	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1479
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1480	self checkClassAndSelector ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1481	^ self
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1482	].
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1483	painter := self painter.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1484
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1485	painter className:specClass
a9e5b1615761 update menu ca parents: 174 diff changeset	1486	superclassName:specSuperclass
a9e5b1615761 update menu ca parents: 174 diff changeset	1487	selector:specSelector.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1488
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1489	code := painter generateWindowSpecMethodSource withCRs.
a9e5b1615761 update menu ca parents: 174 diff changeset	1490	painter resetModification.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1491	(ReadStream on:code) fileIn.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1492
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1493	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1494
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1495	doNew
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1496	objectList painter isModified ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1497	(self confirm:'new interface without saving your modifications ?') ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1498	^ self
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1499	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1500	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1501
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1502	self removeAll
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1503
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1504	"Modified: 17.6.1997 / 12:33:31 / cg"
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1505	!
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1506
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1507	doPickAView
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1508	\|painter view cls spec\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1509
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1510	objectList painter isModified ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1511	(self confirm:'pick another interface without saving your modifications ?') ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1512	^ self
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1513	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1514	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1515
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1516	(view := Screen current viewFromUser) notNil ifTrue:[
174 0e87610c2768 pick a view ca parents: 173 diff changeset	1517	view == Screen current rootView ifFalse:[
0e87610c2768 pick a view ca parents: 173 diff changeset	1518	painter := self painter.
0e87610c2768 pick a view ca parents: 173 diff changeset	1519	spec := UISpecification fromView:view topView.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1520
174 0e87610c2768 pick a view ca parents: 173 diff changeset	1521	"/ ok, got it
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1522
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1523	view application notNil ifTrue:[
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1524	cls := view application class
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1525	] ifFalse:[
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1526	cls := view class
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1527	].
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1528	self setClass:cls selector:nil.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1529
174 0e87610c2768 pick a view ca parents: 173 diff changeset	1530	painter setupFromSpec:spec.
0e87610c2768 pick a view ca parents: 173 diff changeset	1531	]
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1532	]
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1533
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1534	"Modified: 24.6.1997 / 19:02:57 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1535	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1536
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1537	doRaise
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1538	\|top x\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1539
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1540	top := self painter topView.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1541	top realized ifFalse:[
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1542	self painterShown value:true
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1543	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1544	top raise.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1545
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1546	top := selectionPanel window.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1547	top realized ifFalse:[
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1548	self galleryShown value:true
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1549	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1550	top raise.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1551	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1552
149 e652608690b1 help ... ca parents: 144 diff changeset	1553	doStartApplication
e652608690b1 help ... ca parents: 144 diff changeset	1554	\|cls\|
e652608690b1 help ... ca parents: 144 diff changeset	1555
e652608690b1 help ... ca parents: 144 diff changeset	1556	(specClass isNil or:[specSelector isNil]) ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1557	^ self information:'no class or selector defined'.
e652608690b1 help ... ca parents: 144 diff changeset	1558	].
e652608690b1 help ... ca parents: 144 diff changeset	1559
e652608690b1 help ... ca parents: 144 diff changeset	1560	specClass isBehavior ifFalse:[
e652608690b1 help ... ca parents: 144 diff changeset	1561	cls := Smalltalk at:specClass asSymbol
e652608690b1 help ... ca parents: 144 diff changeset	1562	] ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1563	cls := specClass
e652608690b1 help ... ca parents: 144 diff changeset	1564	].
e652608690b1 help ... ca parents: 144 diff changeset	1565
e652608690b1 help ... ca parents: 144 diff changeset	1566	cls isNil ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1567	^ self information:'class not existant'.
e652608690b1 help ... ca parents: 144 diff changeset	1568	].
e652608690b1 help ... ca parents: 144 diff changeset	1569
e652608690b1 help ... ca parents: 144 diff changeset	1570	(cls respondsTo:specSelector) ifFalse:[
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1571	self halt.
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1572	^ self information:('no method for: #'
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1573	, specSelector , ' in ' , cls name ,
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1574	'\\(did you install the spec ?)') withCRs.
149 e652608690b1 help ... ca parents: 144 diff changeset	1575	].
e652608690b1 help ... ca parents: 144 diff changeset	1576	cls new openInterface:specSelector
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1577
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1578	"Modified: 17.6.1997 / 14:40:21 / cg"
149 e652608690b1 help ... ca parents: 144 diff changeset	1579	!
e652608690b1 help ... ca parents: 144 diff changeset	1580
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1581	doWindowSpec
68 889c3877baf0 layout .... ca parents: 65 diff changeset	1582	\|code code2 v\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1583
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1584	code := self painter generateWindowSpecMethodSource.
68 889c3877baf0 layout .... ca parents: 65 diff changeset	1585
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1586	v := CodeView open.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1587	v contents:code.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1588	v label:'windowSpec'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1589
81 7493e2437af5 checkin from browser ca parents: 77 diff changeset	1590	! !
7493e2437af5 checkin from browser ca parents: 77 diff changeset	1591
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1592	!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1593
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1594	version
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1595	^ '$Header$'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1596	! !

author	ca
	Fri, 27 Jun 1997 18:11:19 +0200
changeset 188	8091a35bccf1
parent 187	fa52e7ad5cb2
child 193	450d9e5c6f4a
permissions	-rw-r--r--