--- 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"