Tools__TagsBrowser.st
changeset 16281 cbc89f67739a
parent 16047 0f42991fe9ac
child 16285 7009be618265
child 16512 9d06c889f22f
equal deleted inserted replaced
16280:b4b9c4079ee8 16281:cbc89f67739a
  1035             translateLabel: true
  1035             translateLabel: true
  1036             submenuChannel: pythonMenuSlice
  1036             submenuChannel: pythonMenuSlice
  1037             isMenuSlice: true
  1037             isMenuSlice: true
  1038           )
  1038           )
  1039          (MenuItem
  1039          (MenuItem
       
  1040             label: 'ObjC Menu Slice'
       
  1041             translateLabel: true
       
  1042             submenuChannel: objcMenuSlice
       
  1043             isMenuSlice: true
       
  1044           )
       
  1045          (MenuItem
  1040             label: 'OZ Menu Slice'
  1046             label: 'OZ Menu Slice'
  1041             translateLabel: true
  1047             translateLabel: true
  1042             submenuChannel: ozMenuSlice
  1048             submenuChannel: ozMenuSlice
  1043             isMenuSlice: true
  1049             isMenuSlice: true
  1044           )
  1050           )
  1068       )
  1074       )
  1069 
  1075 
  1070     "Modified: / 21-08-2012 / 21:00:35 / cg"
  1076     "Modified: / 21-08-2012 / 21:00:35 / cg"
  1071 !
  1077 !
  1072 
  1078 
       
  1079 objcMenuSlice
       
  1080     "This resource specification was automatically generated
       
  1081      by the MenuEditor of ST/X."
       
  1082 
       
  1083     "Do not manually edit this!! If it is corrupted,
       
  1084      the MenuEditor may not be able to read the specification."
       
  1085 
       
  1086     "
       
  1087      MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#objcMenuSlice
       
  1088      (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser objcMenuSlice)) startUp
       
  1089     "
       
  1090 
       
  1091     <resource: #menu>
       
  1092 
       
  1093     ^
       
  1094      #(Menu
       
  1095         (
       
  1096          (MenuItem
       
  1097             label: '-'
       
  1098             isVisible: editedFileHasObjcSuffix
       
  1099           )
       
  1100          (MenuItem
       
  1101             enabled: tagTypesPresentHolder
       
  1102             label: 'Hide Classes'
       
  1103             translateLabel: true
       
  1104             isVisible: editedFileHasObjcSuffix
       
  1105             hideMenuOnActivated: false
       
  1106             indication: hideObjcClasses:
       
  1107           )
       
  1108          (MenuItem
       
  1109             enabled: tagTypesPresentHolder
       
  1110             label: 'Hide Methods'
       
  1111             translateLabel: true
       
  1112             isVisible: editedFileHasObjcSuffix
       
  1113             hideMenuOnActivated: false
       
  1114             indication: hideObjcMethods:
       
  1115           )
       
  1116          )
       
  1117         nil
       
  1118         nil
       
  1119       )
       
  1120 !
       
  1121 
  1073 ozMenuSlice
  1122 ozMenuSlice
  1074     "This resource specification was automatically generated
  1123     "This resource specification was automatically generated
  1075      by the MenuEditor of ST/X."
  1124      by the MenuEditor of ST/X."
  1076 
  1125 
  1077     "Do not manually edit this!! If it is corrupted,
  1126     "Do not manually edit this!! If it is corrupted,
  1203 
  1252 
  1204     "Do not manually edit this!! If it is corrupted,
  1253     "Do not manually edit this!! If it is corrupted,
  1205      the MenuEditor may not be able to read the specification."
  1254      the MenuEditor may not be able to read the specification."
  1206 
  1255 
  1207     "
  1256     "
  1208      MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#ozMenuSlice
  1257      MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#smalltalkMenuSlice
  1209      (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser ozMenuSlice)) startUp
  1258      (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser smalltalkMenuSlice)) startUp
  1210     "
  1259     "
  1211 
  1260 
  1212     <resource: #menu>
  1261     <resource: #menu>
  1213 
  1262 
  1214     ^
  1263     ^
  1215      #(Menu
  1264      #(Menu
  1216 	(
  1265         (
  1217 	 (MenuItem
  1266          (MenuItem
  1218 	    label: '-'
  1267             label: '-'
  1219 	    isVisible: editedFileHasSmalltalkSuffix
  1268             isVisible: editedFileHasSmalltalkSuffix
  1220 	  )
  1269           )
  1221 	 (MenuItem
  1270          (MenuItem
  1222 	    enabled: tagTypesPresentHolder
  1271             enabled: tagTypesPresentHolder
  1223 	    label: 'Hide Classes'
  1272             label: 'Hide Classes'
  1224 	    translateLabel: true
  1273             translateLabel: true
  1225 	    isVisible: editedFileHasSmalltalkSuffix
  1274             isVisible: editedFileHasSmalltalkSuffix
  1226 	    hideMenuOnActivated: false
  1275             hideMenuOnActivated: false
  1227 	    indication: hideClasses:
  1276             indication: hideClasses:
  1228 	  )
  1277           )
  1229 	 (MenuItem
  1278          (MenuItem
  1230 	    enabled: tagTypesPresentHolder
  1279             enabled: tagTypesPresentHolder
  1231 	    label: 'Hide Methods'
  1280             label: 'Hide Methods'
  1232 	    translateLabel: true
  1281             translateLabel: true
  1233 	    isVisible: editedFileHasSmalltalkSuffix
  1282             isVisible: editedFileHasSmalltalkSuffix
  1234 	    hideMenuOnActivated: false
  1283             hideMenuOnActivated: false
  1235 	    indication: hideMethods:
  1284             indication: hideMethods:
  1236 	  )
  1285           )
  1237 	 )
  1286          )
  1238 	nil
  1287         nil
  1239 	nil
  1288         nil
  1240       )
  1289       )
  1241 
  1290 
  1242     "Created: / 21-08-2012 / 20:59:28 / cg"
  1291     "Created: / 21-08-2012 / 20:59:28 / cg"
  1243 !
  1292 !
  1244 
  1293 
  1827     self updateTagList
  1876     self updateTagList
  1828 
  1877 
  1829     "Created: / 21-08-2012 / 21:01:45 / cg"
  1878     "Created: / 21-08-2012 / 21:01:45 / cg"
  1830 !
  1879 !
  1831 
  1880 
       
  1881 hideObjcClasses
       
  1882     ^ tagList hideObjcClasses
       
  1883 !
       
  1884 
       
  1885 hideObjcClasses:aBool
       
  1886     tagList hideObjcClasses:aBool.
       
  1887     self updateTagList
       
  1888 !
       
  1889 
  1832 hideOzClasses
  1890 hideOzClasses
  1833     ^ tagList hideOzClasses
  1891     ^ tagList hideOzClasses
  1834 !
  1892 !
  1835 
  1893 
  1836 hideOzClasses:aBool
  1894 hideOzClasses:aBool
  2246 
  2304 
  2247 !
  2305 !
  2248 
  2306 
  2249 editedFileHasLuaSuffix
  2307 editedFileHasLuaSuffix
  2250     ^builder booleanValueAspectFor: #editedFileHasLuaSuffix
  2308     ^builder booleanValueAspectFor: #editedFileHasLuaSuffix
       
  2309 !
       
  2310 
       
  2311 editedFileHasObjcSuffix
       
  2312     ^builder booleanValueAspectFor: #editedFileHasObjcSuffix
  2251 !
  2313 !
  2252 
  2314 
  2253 editedFileHasOzSuffix
  2315 editedFileHasOzSuffix
  2254     ^builder booleanValueAspectFor: #editedFileHasOzSuffix
  2316     ^builder booleanValueAspectFor: #editedFileHasOzSuffix
  2255 !
  2317 !
  2426           (editedFileHasDartSuffix      ('text/dart' 'application/x-dart' 'application/x-dart-source') )
  2488           (editedFileHasDartSuffix      ('text/dart' 'application/x-dart' 'application/x-dart-source') )
  2427           (editedFileHasCSuffix         ('text/c' 'application/x-c-source'))
  2489           (editedFileHasCSuffix         ('text/c' 'application/x-c-source'))
  2428           (editedFileHasEiffelSuffix    ('text/eiffel' 'application/x-eiffel-source'))
  2490           (editedFileHasEiffelSuffix    ('text/eiffel' 'application/x-eiffel-source'))
  2429           (editedFileHasFortranSuffix   ('text/fortran' 'application/x-fortran-source'))
  2491           (editedFileHasFortranSuffix   ('text/fortran' 'application/x-fortran-source'))
  2430           (editedFileHasPythonSuffix    ('text/python' 'application/x-python-source'))
  2492           (editedFileHasPythonSuffix    ('text/python' 'application/x-python-source'))
       
  2493           (editedFileHasObjcSuffix      ('text/objcsrc' 'application/x-objcsrc'))
  2431           (editedFileHasOzSuffix        ('text/oz' 'application/x-oz-source'))
  2494           (editedFileHasOzSuffix        ('text/oz' 'application/x-oz-source'))
  2432           (editedFileHasLuaSuffix       ('text/lua' 'application/x-lua-source'))
  2495           (editedFileHasLuaSuffix       ('text/lua' 'application/x-lua-source'))
  2433           (editedFileHasLispSuffix      ('text/lisp' 'text/lisp-arc' 'text/scheme' 'application/x-lisp-source' 'application/x-scheme-source') )
  2496           (editedFileHasLispSuffix      ('text/lisp' 'text/lisp-arc' 'text/scheme' 'application/x-lisp-source' 'application/x-scheme-source') )
  2434           (editedFileHasSmalltalkSuffix ('text/smalltalk' 'application/x-smalltalk-source'))
  2497           (editedFileHasSmalltalkSuffix ('text/smalltalk' 'application/x-smalltalk-source'))
  2435           (editedFileHasTCLSuffix       ('text/tcl' 'application/x-tcl-source') )
  2498           (editedFileHasTCLSuffix       ('text/tcl' 'application/x-tcl-source') )