equal
deleted
inserted
replaced
8333 label: 'Browser on References to Class or Subclass' |
8333 label: 'Browser on References to Class or Subclass' |
8334 itemValue: classMenuSpawnClassOrSubclassReferences |
8334 itemValue: classMenuSpawnClassOrSubclassReferences |
8335 ) |
8335 ) |
8336 (MenuItem |
8336 (MenuItem |
8337 enabled: hasSharedPoolSelectedHolder |
8337 enabled: hasSharedPoolSelectedHolder |
8338 label: 'Browser with References to Pool Variable' |
8338 label: 'Browser with References to Pool' |
8339 itemValue: classMenuSpawnPoolVariableReferences |
8339 itemValue: classMenuSpawnPoolVariableReferences |
8340 isVisible: hasSharedPoolSelectedHolder |
8340 isVisible: hasSharedPoolSelectedHolder |
8341 ) |
8341 ) |
8342 (MenuItem |
8342 (MenuItem |
8343 enabled: hasProjectDefinitionSelectedHolder |
8343 enabled: hasProjectDefinitionSelectedHolder |
8657 nil |
8657 nil |
8658 nil |
8658 nil |
8659 ) |
8659 ) |
8660 |
8660 |
8661 "Modified: / 04-02-2019 / 17:05:41 / Claus Gittinger" |
8661 "Modified: / 04-02-2019 / 17:05:41 / Claus Gittinger" |
|
8662 "Modified: / 01-05-2020 / 14:57:55 / cg" |
8662 ! |
8663 ! |
8663 |
8664 |
8664 classNewGroovyClassSlice |
8665 classNewGroovyClassSlice |
8665 "This resource specification was automatically generated |
8666 "This resource specification was automatically generated |
8666 by the MenuEditor of ST/X." |
8667 by the MenuEditor of ST/X." |
28876 pools := self selectedClasses value select:[:cls | cls isSharedPool]. |
28877 pools := self selectedClasses value select:[:cls | cls isSharedPool]. |
28877 self browseClassesReferringToAnyPool:pools in:#newBuffer |
28878 self browseClassesReferringToAnyPool:pools in:#newBuffer |
28878 ! |
28879 ! |
28879 |
28880 |
28880 classMenuSpawnPoolVariableReferences |
28881 classMenuSpawnPoolVariableReferences |
28881 "search for classes importing the selectred pool(s)" |
28882 "search for classes importing the selected pool(s)" |
28882 |
28883 |
28883 |pools| |
28884 |pools| |
28884 |
28885 |
28885 pools := self selectedClasses value select:[:cls | cls isSharedPool]. |
28886 pools := self selectedClasses value select:[:cls | cls isSharedPool]. |
28886 self browseClassesReferringToAnyPool:pools in:#newBrowser |
28887 self browseClassesReferringToAnyPool:pools in:#newBrowser |
28887 |
28888 |
28888 "Modified: / 18-11-2016 / 04:47:20 / cg" |
28889 "Modified: / 18-11-2016 / 04:47:20 / cg" |
|
28890 "Modified (comment): / 01-05-2020 / 14:57:23 / cg" |
28889 ! |
28891 ! |
28890 |
28892 |
28891 defaultSearchArea |
28893 defaultSearchArea |
28892 "return a useful default search area" |
28894 "return a useful default search area" |
28893 |
28895 |