ProjectBrowser.st
changeset 1267 db910ada83f7
parent 1255 d5616023622e
child 1278 b9769689b45c
--- a/ProjectBrowser.st	Fri Nov 19 14:27:52 1999 +0100
+++ b/ProjectBrowser.st	Thu Nov 25 11:50:45 1999 +0100
@@ -2589,15 +2589,15 @@
              #(#MenuItem
                 #label: '-'
             )
-             #(#MenuItem
-                #label: 'New SubProject'
-                #translateLabel: true
-                #value: #newSubProject
-                #enabled: #hasProjectSelectedHolder
-            )
-             #(#MenuItem
-                #label: '-'
-            )
+"/             #(#MenuItem
+"/                #label: 'New SubProject'
+"/                #translateLabel: true
+"/                #value: #newSubProject
+"/                #enabled: #hasProjectSelectedHolder
+"/            )
+"/             #(#MenuItem
+"/                #label: '-'
+"/            )
              #(#MenuItem
                 #label: 'Rename...'
                 #translateLabel: true
@@ -5555,7 +5555,7 @@
 checkInAllClasses
     "check in all classes"
 
-    |p classes methods anyMethodMissing|
+    |p classes|
 
     p := self currentProject.
     p isNil ifTrue:[
@@ -5563,6 +5563,9 @@
         ^ self
     ].
 
+    self warn:'CheckIn function not yet implemented.'.
+    ^ self.
+
     "/ check in classes ...
 
     classes := p classes.
@@ -5591,6 +5594,26 @@
 
 !
 
+checkInMakefiles
+    "check in the Make.proto, Makefile, nt.mak and vms.mak files"
+
+    |p|
+
+    p := self currentProject.
+    p isNil ifTrue:[
+        self information:'No project selected'.
+        ^ self
+    ].
+
+    self warn:'CheckIn function not yet implemented.'.
+    ^ self.
+
+    "/ check it in ...
+
+
+
+!
+
 checkInMethods
     "check in all extensions (patches)"
 
@@ -5602,6 +5625,9 @@
         ^ self
     ].
 
+    self warn:'CheckIn function not yet implemented.'.
+    ^ self.
+
     "/ check methods ...
 
     anyMethodMissing := false.
@@ -5634,6 +5660,9 @@
         ^ self
     ].
 
+    self warn:'CheckIn function not yet implemented.'.
+    ^ self.
+
     "/ check in classes ...
     self checkInAllClasses.
 
@@ -5645,6 +5674,26 @@
 
 !
 
+checkInProjectFile
+    "check in the prj-file"
+
+    |p|
+
+    p := self currentProject.
+    p isNil ifTrue:[
+        self information:'No project selected'.
+        ^ self
+    ].
+
+    self warn:'CheckIn function not yet implemented.'.
+    ^ self.
+
+    "/ check it in ...
+
+
+
+!
+
 inspectCurrentProject
     "inspect the current project"