Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 23 Mar 1999 12:10:24 +0100
changeset 4066 74e64b5cedce
parent 4065 c0b7689b3a49
child 4067 732848627915
checkin from browser
Project.st file | annotate | diff | comparison | revisions 
--- a/Project.st	Fri Mar 19 22:39:37 1999 +0100
+++ b/Project.st	Tue Mar 23 12:10:24 1999 +0100
@@ -90,47 +90,47 @@
      once the ProjectBrowser is finished, this info is read from
      '.prj' files ..."
 
-    |stx p|
-
-    stx := self new name:'stx'.
-    stx packageName:'noPackage'.
-    stx changeSet:nil.
-    stx type:#smalltalk.
-    stx comment:'The ST/X project itself'.
-
-    AllProjects add:stx.
-
-    #(
-        ('libbasic'      #'stx:libbasic'            'Basic (non-GUI) classes. Required for all applications')
-        ('libbasic2'     #'stx:libbasic2'           'More basic (non-GUI) classes. Required for most applications')
-        ('libbasic3'     #'stx:libbasic3'           'More basic (non-GUI) classes. Required for development')
-        ('libcomp'       #'stx:libcomp'             'The bytecode compiler. Required for all applications')
-        ('libview'       #'stx:libview'             'Low level GUI classes. Required for all GUI applications')
-        ('libview2'      #'stx:libview2'            'Additional low level GUI classes. Required for most GUI applications')
-        ('libwidg'       #'stx:libwidg'             'Basic widgets. Required for all GUI applications')
-        ('libwidg2'      #'stx:libwidg2'            'More widgets. Required for most GUI applications')
-        ('libwidg3'      #'stx:libwidg3'            'More (fun) widgets. Seldom required')
-        ('libtool'       #'stx:libtool'             'Development applications. Required for program development')
-        ('libtool2'      #'stx:libtool2'            'More development applications. Required for GUI development')
-        ('libui'         #'stx:libui'               'UI spec classes. Required for UIPainter applications')
-        ('libhtml'       #'stx:libhtml'             'HTML related classes. Required for Web applications and the HTML browser')
-        ('libodbc'       #'stx:libodbc'             'ODBC interface classes.')
-        ('libopengl'     #'stx:libopengl'           'OpenGL interface classes.')
-        ('persistency'   #'stx:goodies/persistency' 'Simple DB interface')
-        ('goodies'       #'stx:goodies'             'Misc goodies - not really maintained')
-    ) do:[:entry |
-        |libName package comment|
-
-        libName := entry at:1.
-        package := entry at:2.
-        comment := entry at:3.
-
-        p := self new name:libName.
-        p packageName:package.
-        p type:#library.
-        p comment:comment.
-        stx addSubProject:p.
-    ].
+"/    |stx p|
+"/
+"/    stx := self new name:'stx'.
+"/    stx packageName:'noPackage'.
+"/    stx changeSet:nil.
+"/    stx type:#smalltalk.
+"/    stx comment:'The ST/X project itself'.
+"/
+"/    AllProjects add:stx.
+"/
+"/    #(
+"/        ('libbasic'      #'stx:libbasic'            'Basic (non-GUI) classes. Required for all applications')
+"/        ('libbasic2'     #'stx:libbasic2'           'More basic (non-GUI) classes. Required for most applications')
+"/        ('libbasic3'     #'stx:libbasic3'           'More basic (non-GUI) classes. Required for development')
+"/        ('libcomp'       #'stx:libcomp'             'The bytecode compiler. Required for all applications')
+"/        ('libview'       #'stx:libview'             'Low level GUI classes. Required for all GUI applications')
+"/        ('libview2'      #'stx:libview2'            'Additional low level GUI classes. Required for most GUI applications')
+"/        ('libwidg'       #'stx:libwidg'             'Basic widgets. Required for all GUI applications')
+"/        ('libwidg2'      #'stx:libwidg2'            'More widgets. Required for most GUI applications')
+"/        ('libwidg3'      #'stx:libwidg3'            'More (fun) widgets. Seldom required')
+"/        ('libtool'       #'stx:libtool'             'Development applications. Required for program development')
+"/        ('libtool2'      #'stx:libtool2'            'More development applications. Required for GUI development')
+"/        ('libui'         #'stx:libui'               'UI spec classes. Required for UIPainter applications')
+"/        ('libhtml'       #'stx:libhtml'             'HTML related classes. Required for Web applications and the HTML browser')
+"/        ('libodbc'       #'stx:libodbc'             'ODBC interface classes.')
+"/        ('libopengl'     #'stx:libopengl'           'OpenGL interface classes.')
+"/        ('persistency'   #'stx:goodies/persistency' 'Simple DB interface')
+"/        ('goodies'       #'stx:goodies'             'Misc goodies - not really maintained')
+"/    ) do:[:entry |
+"/        |libName package comment|
+"/
+"/        libName := entry at:1.
+"/        package := entry at:2.
+"/        comment := entry at:3.
+"/
+"/        p := self new name:libName.
+"/        p packageName:package.
+"/        p type:#library.
+"/        p comment:comment.
+"/        stx addSubProject:p.
+"/    ].
 
     "
      self initKnownProjects
@@ -154,7 +154,8 @@
     ].
 
     CurrentProject := SystemProject.
-    AllProjects := OrderedCollection with:SystemProject.
+    AllProjects := OrderedCollection new.
+"/    AllProjects := OrderedCollection with:SystemProject.
     self initKnownProjects.
 
     "
@@ -1373,6 +1374,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.65 1999-02-27 13:49:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.66 1999-03-23 11:10:24 cg Exp $'
 ! !
 Project initialize!
hg/stx-libbasic