equal
deleted
inserted
replaced
1870 self updateListOfImages. |
1870 self updateListOfImages. |
1871 self selectionOfImage value: (self listOfImages detect: [:im| im string == (aspects at: #icon) value] ifNone: nil). |
1871 self selectionOfImage value: (self listOfImages detect: [:im| im string == (aspects at: #icon) value] ifNone: nil). |
1872 |
1872 |
1873 ! ! |
1873 ! ! |
1874 |
1874 |
|
1875 !MenuEditor methodsFor:'defaults'! |
|
1876 |
|
1877 aboutImage |
|
1878 "the image to be displayed in my about-box; |
|
1879 If nil is returned, thhe ST/X default image is used." |
|
1880 |
|
1881 ^ Image fromFile:'bitmaps/xpmBitmaps/misc_tools/setup_menus.xpm' |
|
1882 |
|
1883 "Created: / 25.7.1998 / 20:48:12 / cg" |
|
1884 "Modified: / 27.7.1998 / 10:21:55 / cg" |
|
1885 ! ! |
|
1886 |
1875 !MenuEditor methodsFor:'event handling'! |
1887 !MenuEditor methodsFor:'event handling'! |
1876 |
1888 |
1877 doesNotUnderstand: aMessage |
1889 doesNotUnderstand: aMessage |
1878 "detour incoming messages to the tree view" |
1890 "detour incoming messages to the tree view" |
1879 |
1891 |