ProjectBrowser.st
changeset 1236 a7dbf8ace3f4
parent 1235 2eb4b86bd0a6
child 1237 6d473fbfdf7d
--- a/ProjectBrowser.st	Fri Sep 24 15:02:03 1999 +0200
+++ b/ProjectBrowser.st	Fri Sep 24 18:15:34 1999 +0200
@@ -74,6 +74,25 @@
 
 ! !
 
+!ProjectBrowser class methodsFor:'class initialization'!
+
+initialize
+    "add myself to the launchers tool menu"
+
+    NewLauncher allInstancesDo:[:l |
+        l addUserTool:'Project Builder' 
+          action:[ProjectBrowser open] 
+          in:#menu 
+          icon:self projectBrowserIcon 
+          space:true
+    ].
+
+    "
+     self initialize
+    "
+
+! !
+
 !ProjectBrowser class methodsFor:'help specs'!
 
 helpSpec
@@ -343,6 +362,24 @@
         constantNamed:#'ProjectBrowser prerequisitesIcon'
         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@AD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP@@@@@AD@@Q@@@@@@DP@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@AD@@@@@@@@@DP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@G(@^PA80@C@^@=8S7//^D<@C7#@^LA9@G(@@@@b') ; yourself); yourself]!
 
+projectBrowserIcon
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self projectBrowserIcon inspect
+     ImageEditor openOnClass:self andSelector:#projectBrowserIcon
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'ProjectBrowser projectBrowserIcon'
+        ifAbsentPut:[(Depth4Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L0@@@3L0@@@@@@@3L3@@L3L3@@@@@@L3@3@CL@@3@@@@@CL@@3@CL@@3@@@@@CL@@3@CL@@3@@@@@CL@@3@CLCL3@@@@@@L3P3QCL3MDP@@@@@L3L3P3L3QDA@@@@@L3L3L3L3L3Q@@@@@QDQCL3QDPCQ@@@@@QDP3L4QDACQ@@@@@@@L3L@@@QCQ@@@ADQDL3QDQ@QCQ@@@ADQDL3QDQ@QCQ@@@ADQDL3QDQ@QCQ@@@ADQDL3QDQ@QCQ@@@ADQDL3QDQ@QCQ@@@ADQDL3QDQ@QCQ@@@ADQDL3QDQ@QCP@@@ADQDL3QDQ@QC@@@@ADQDL3QDQ@QC@@@@ADQDL3QDQ@P@@@@@ADQDL3QDQ@@@@@@@@@@@L3@@@@@@@@') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@FC0@_G8@;LXA#LXA#LXA''??@???@???@???A???A???G???G???G???G???G???G???G???G??>G??<G??8G??0G?? G??@') ; yourself); yourself]!
+
 projectsIcon
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -5279,3 +5316,4 @@
 version
     ^ '$Header$'
 ! !
+ProjectBrowser initialize!