hg/stx-libtool2: UIPainter.st@575239b7ad0b (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Tue, 17 Jun 1997 12:34:33 +0200
changeset 155	575239b7ad0b
parent 152	2261aa2fa21d
child 156	b332d7117c40
permissions	-rw-r--r--