1361 |
1361 |
1362 preferredExtent |
1362 preferredExtent |
1363 "preferred extent of my window; top/main menu and top toolbar (named by 'menuToolbarView') |
1363 "preferred extent of my window; top/main menu and top toolbar (named by 'menuToolbarView') |
1364 will be considered" |
1364 will be considered" |
1365 |
1365 |
1366 |window menu menuToolbarView preferredExtentOfWindow| |
1366 |window menu menuToolbarView preferredExtentOfWindow maxExtent| |
1367 |
1367 |
1368 window := self builder window. |
1368 window := self builder window. |
1369 menu := window subViews first. |
1369 menu := window subViews first. |
1370 menuToolbarView := builder componentAt: #menuToolbarView. |
1370 menuToolbarView := builder componentAt: #menuToolbarView. |
1371 |
1371 |
1372 preferredExtentOfWindow := window extent. |
1372 preferredExtentOfWindow := window extent max:window minExtent. |
1373 menu class = MenuPanel ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menu preferredExtent]. |
1373 menu class == MenuPanel ifTrue:[ |
1374 menuToolbarView notNil ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menuToolbarView preferredExtent]. |
1374 preferredExtentOfWindow := preferredExtentOfWindow max:menu preferredExtent |
1375 |
1375 ]. |
1376 ^window minExtent max: (preferredExtentOfWindow min: window maxExtent) |
1376 menuToolbarView notNil ifTrue:[ |
|
1377 preferredExtentOfWindow := preferredExtentOfWindow max:menuToolbarView preferredExtent |
|
1378 ]. |
|
1379 |
|
1380 maxExtent := window maxExtent. |
|
1381 maxExtent notNil ifTrue:[ |
|
1382 preferredExtentOfWindow := preferredExtentOfWindow min:maxExtent. |
|
1383 ]. |
|
1384 |
|
1385 ^ preferredExtentOfWindow. |
1377 ! ! |
1386 ! ! |
1378 |
1387 |
1379 !ToolApplicationModel methodsFor:'startup & release'! |
1388 !ToolApplicationModel methodsFor:'startup & release'! |
1380 |
1389 |
1381 closeDownViews |
1390 closeDownViews |