equal
deleted
inserted
replaced
1435 "Modified: / 22-08-2006 / 11:42:53 / cg" |
1435 "Modified: / 22-08-2006 / 11:42:53 / cg" |
1436 ! ! |
1436 ! ! |
1437 |
1437 |
1438 !StandardSystemView methodsFor:'queries'! |
1438 !StandardSystemView methodsFor:'queries'! |
1439 |
1439 |
|
1440 isDialogBox |
|
1441 "answer true, if my view represent a Dialog" |
|
1442 |
|
1443 ^ application notNil and:[application isDialog] |
|
1444 |
|
1445 "Created: / 29-04-2020 / 12:42:50 / Stefan Vogel" |
|
1446 ! |
|
1447 |
1440 processName |
1448 processName |
1441 "return a string to be shown for my process in the |
1449 "return a string to be shown for my process in the |
1442 process monitor. This has no semantic meaning, but exists |
1450 process monitor. This has no semantic meaning, but exists |
1443 for your convenience only." |
1451 for your convenience only." |
1444 |
1452 |
1447 ]. |
1455 ]. |
1448 label notNil ifTrue:[^ label]. |
1456 label notNil ifTrue:[^ label]. |
1449 ^ super processName |
1457 ^ super processName |
1450 |
1458 |
1451 "Modified: 24.4.1996 / 09:47:01 / cg" |
1459 "Modified: 24.4.1996 / 09:47:01 / cg" |
|
1460 ! |
|
1461 |
|
1462 title |
|
1463 "Infobox compatibility: Answer the window's label" |
|
1464 |
|
1465 label notEmptyOrNil ifTrue:[ |
|
1466 ^ label. |
|
1467 ]. |
|
1468 labelChannel notNil ifTrue:[ |
|
1469 ^ labelChannel value. |
|
1470 ]. |
|
1471 ^ ''. |
|
1472 |
|
1473 "Created: / 29-04-2020 / 12:50:23 / Stefan Vogel" |
1452 ! ! |
1474 ! ! |
1453 |
1475 |
1454 !StandardSystemView methodsFor:'realization'! |
1476 !StandardSystemView methodsFor:'realization'! |
1455 |
1477 |
1456 create |
1478 create |