equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1558 ) |
1556 ) |
1559 ! ! |
1557 ! ! |
1560 |
1558 |
1561 !MenuEditor methodsFor:'accessing'! |
1559 !MenuEditor methodsFor:'accessing'! |
1562 |
1560 |
1563 helpSpec |
|
1564 |spec t g| |
|
1565 |
|
1566 spec := super helpSpec. |
|
1567 t := spec at:#detailsStartGroup. |
|
1568 g := (aspects at:#startGroup ifAbsent:nil) value. |
|
1569 g == #conditionalRight ifTrue:[ |
|
1570 t := t , ' #conditionalRight means: "right on non-win32 systems"' |
|
1571 ]. |
|
1572 g == #right ifTrue:[ |
|
1573 t := t , ' #right means: "right align from here"' |
|
1574 ]. |
|
1575 g == #left ifTrue:[ |
|
1576 t := t , ' #left means: "left align group"' |
|
1577 ]. |
|
1578 spec at:#detailsStartGroup put:t. |
|
1579 |
|
1580 ^ spec. |
|
1581 "/ #detailsStartGroup |
|
1582 "/ 'Specify start of a right-aligned item group.' |
|
1583 |
|
1584 "Created: / 16-10-2006 / 13:19:14 / cg" |
|
1585 ! |
|
1586 |
|
1587 helpTool |
1561 helpTool |
1588 "get the help tool application |
1562 "get the help tool application |
1589 " |
1563 " |
1590 ^ wizards at:#help ifAbsentPut:[ |tool| |
1564 ^ wizards at:#help ifAbsentPut:[ |tool| |
1591 tool := UIHelpTool new. |
1565 tool := UIHelpTool new. |
2222 ]. |
2196 ]. |
2223 |
2197 |
2224 ^ false. |
2198 ^ false. |
2225 |
2199 |
2226 "Modified: / 12-02-2019 / 10:56:08 / Claus Gittinger" |
2200 "Modified: / 12-02-2019 / 10:56:08 / Claus Gittinger" |
|
2201 ! ! |
|
2202 |
|
2203 !MenuEditor methodsFor:'help specs'! |
|
2204 |
|
2205 helpSpec |
|
2206 |spec t g| |
|
2207 |
|
2208 spec := super helpSpec. |
|
2209 t := spec at:#detailsStartGroup. |
|
2210 g := (aspects at:#startGroup ifAbsent:nil) value. |
|
2211 g == #conditionalRight ifTrue:[ |
|
2212 t := t , ' #conditionalRight means: "right on non-win32 systems"' |
|
2213 ]. |
|
2214 g == #right ifTrue:[ |
|
2215 t := t , ' #right means: "right align from here"' |
|
2216 ]. |
|
2217 g == #left ifTrue:[ |
|
2218 t := t , ' #left means: "left align group"' |
|
2219 ]. |
|
2220 spec at:#detailsStartGroup put:t. |
|
2221 |
|
2222 ^ spec. |
|
2223 "/ #detailsStartGroup |
|
2224 "/ 'Specify start of a right-aligned item group.' |
|
2225 |
|
2226 "Created: / 16-10-2006 / 13:19:14 / cg" |
2227 ! ! |
2227 ! ! |
2228 |
2228 |
2229 !MenuEditor methodsFor:'initialization & release'! |
2229 !MenuEditor methodsFor:'initialization & release'! |
2230 |
2230 |
2231 closeRequest |
2231 closeRequest |