equal
deleted
inserted
replaced
1474 ]. |
1474 ]. |
1475 ^ descriptionHolder |
1475 ^ descriptionHolder |
1476 ! |
1476 ! |
1477 |
1477 |
1478 filesHolder |
1478 filesHolder |
|
1479 "automatically generated by UIPainter ..." |
|
1480 |
1479 <resource: #uiAspect> |
1481 <resource: #uiAspect> |
1480 |
|
1481 "automatically generated by UIPainter ..." |
|
1482 |
|
1483 "*** the code below creates a default model when invoked." |
|
1484 "*** (which may not be the one you wanted)" |
|
1485 "*** Please change as required and accept it in the browser." |
|
1486 "*** (and replace this comment by something more useful ;-)" |
|
1487 |
1482 |
1488 filesHolder isNil ifTrue:[ |
1483 filesHolder isNil ifTrue:[ |
1489 filesHolder := '' asValue. |
1484 filesHolder := '' asValue. |
1490 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
1491 "/ filesHolder addDependent:self. |
|
1492 "/ filesHolder onChangeSend:#filesHolderChanged to:self. |
|
1493 ]. |
1485 ]. |
1494 ^ filesHolder. |
1486 ^ filesHolder. |
1495 ! |
1487 ! |
1496 |
1488 |
1497 isStableHolder |
1489 isStableHolder |
1530 ]. |
1522 ]. |
1531 ^ tagHolder |
1523 ^ tagHolder |
1532 ! |
1524 ! |
1533 |
1525 |
1534 tagItInHolder |
1526 tagItInHolder |
|
1527 "automatically generated by UIPainter ..." |
|
1528 |
1535 <resource: #uiAspect> |
1529 <resource: #uiAspect> |
1536 |
|
1537 "automatically generated by UIPainter ..." |
|
1538 |
|
1539 "*** the code below creates a default model when invoked." |
|
1540 "*** (which may not be the one you wanted)" |
|
1541 "*** Please change as required and accept it in the browser." |
|
1542 "*** (and replace this comment by something more useful ;-)" |
|
1543 |
1530 |
1544 tagItInHolder isNil ifTrue:[ |
1531 tagItInHolder isNil ifTrue:[ |
1545 tagItInHolder := true asValue. |
1532 tagItInHolder := true asValue. |
1546 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
1547 "/ tagItInHolder addDependent:self. |
|
1548 "/ tagItInHolder onChangeSend:#tagItInHolderChanged to:self. |
|
1549 ]. |
1533 ]. |
1550 ^ tagItInHolder. |
1534 ^ tagItInHolder. |
1551 ! |
1535 ! |
1552 |
1536 |
1553 warningMessageHolder |
1537 warningMessageHolder |