add user friendly name to semaphores
authorStefan Vogel <sv@exept.de>
Fri, 08 Feb 2013 20:01:15 +0100
changeset 14776 28a1f265cd65
parent 14775 fa2e7d4afdef
child 14777 a669080229da
add user friendly name to semaphores
ProjectDefinition.st
--- a/ProjectDefinition.st	Fri Feb 08 19:41:42 2013 +0100
+++ b/ProjectDefinition.st	Fri Feb 08 20:01:15 2013 +0100
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:6.2.2.0 on 06-02-2013 at 09:33:04 AM'                !
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ProjectDefinition
@@ -1137,11 +1135,13 @@
 !ProjectDefinition class methodsFor:'class initialization'!
 
 initialize
-    LibraryType := #'Library'.
-    GUIApplicationType := #'GUI-Application'.
-    NonGUIApplicationType := #'NonGUI-Application'.
-    AccessLock := Semaphore forMutualExclusion.
-    Verbose := false.
+    AccessLock isNil ifTrue:[
+        LibraryType := #Library.
+        GUIApplicationType := #'GUI-Application'.
+        NonGUIApplicationType := #'NonGUI-Application'.
+        AccessLock := Semaphore forMutualExclusion name:'ProjectDefinition Lock'.
+        Verbose := false.
+    ].
 
     "
      self initialize
@@ -6746,11 +6746,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.410 2013-02-07 14:37:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.411 2013-02-08 19:01:15 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.410 2013-02-07 14:37:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.411 2013-02-08 19:01:15 stefan Exp $'
 !
 
 version_SVN