equal
deleted
inserted
replaced
276 window notNil ifTrue:[ |
276 window notNil ifTrue:[ |
277 spec buildViewFor:self in:window. |
277 spec buildViewFor:self in:window. |
278 ] ifFalse:[ |
278 ] ifFalse:[ |
279 window := spec buildViewFor:self in:nil. |
279 window := spec buildViewFor:self in:nil. |
280 ]. |
280 ]. |
281 windowTitle notNil ifTrue:[ |
281 (windowTitle notNil and:[window isTopView]) ifTrue:[ |
282 window isTopView ifTrue:[ |
282 window label:windowTitle. |
283 window label:windowTitle. |
|
284 ]. |
|
285 ]. |
283 ]. |
286 ^ window |
284 ^ window |
|
285 |
|
286 "Modified: / 17-03-2017 / 17:03:12 / stefan" |
287 ! |
287 ! |
288 |
288 |
289 doFinalHookup |
289 doFinalHookup |
290 |
290 |
291 "Created: 14.2.1997 / 14:52:27 / cg" |
291 "Created: 14.2.1997 / 14:52:27 / cg" |