LibraryDefinition.st
changeset 18502 52c60aea0795
parent 17242 03455ae3b8d0
child 18506 de28c10ed519
child 19206 ddfedbc80f20
--- a/LibraryDefinition.st	Wed Jun 24 00:19:20 2015 +0200
+++ b/LibraryDefinition.st	Wed Jun 24 00:19:46 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2006-2013 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 ProjectDefinition subclass:#LibraryDefinition
 	instanceVariableNames:''
 	classVariableNames:''
@@ -138,7 +142,7 @@
 extensionLine_libInit_dot_cc_mappings
 
     ^ Dictionary new
-        at: 'LIBRARY_NAME' put: ( self st2c:(self package copy asString replaceAny:':/' with:$_) );
+        at: 'LIBRARY_NAME' put: ( self st2c:(ProjectDefinition projectDefinitionClassNameForDefinitionOf:self package) );
         yourself
 
     "Created: / 09-08-2006 / 11:19:59 / fm"
@@ -574,20 +578,6 @@
     "Modified: / 08-08-2006 / 19:33:14 / fm"
 ! !
 
-!LibraryDefinition class methodsFor:'misc ui support'!
-
-iconInBrowserSymbol
-    <resource: #programImage>
-
-    self theNonMetaclass isLibraryDefinition ifTrue:[^ #libraryDefinitionClassIcon ].
-    ^ super iconInBrowserSymbol
-
-"/        (c == LibraryDefinition) ifTrue:[
-"/            aClass ~~ LibraryDefinition ifTrue:[
-"/                ^ self packageIconSmall
-"/            ].
-"/        ].
-! !
 
 !LibraryDefinition class methodsFor:'obsolete'!
 
@@ -750,10 +740,10 @@
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.123 2014-12-22 00:46:55 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.123 2014-12-22 00:46:55 cg Exp $'
+    ^ '$Header$'
 ! !