88 initKnownProjects |
88 initKnownProjects |
89 "this is a temporary experimental kludge - |
89 "this is a temporary experimental kludge - |
90 once the ProjectBrowser is finished, this info is read from |
90 once the ProjectBrowser is finished, this info is read from |
91 '.prj' files ..." |
91 '.prj' files ..." |
92 |
92 |
93 |stx p| |
93 "/ |stx p| |
94 |
94 "/ |
95 stx := self new name:'stx'. |
95 "/ stx := self new name:'stx'. |
96 stx packageName:'noPackage'. |
96 "/ stx packageName:'noPackage'. |
97 stx changeSet:nil. |
97 "/ stx changeSet:nil. |
98 stx type:#smalltalk. |
98 "/ stx type:#smalltalk. |
99 stx comment:'The ST/X project itself'. |
99 "/ stx comment:'The ST/X project itself'. |
100 |
100 "/ |
101 AllProjects add:stx. |
101 "/ AllProjects add:stx. |
102 |
102 "/ |
103 #( |
103 "/ #( |
104 ('libbasic' #'stx:libbasic' 'Basic (non-GUI) classes. Required for all applications') |
104 "/ ('libbasic' #'stx:libbasic' 'Basic (non-GUI) classes. Required for all applications') |
105 ('libbasic2' #'stx:libbasic2' 'More basic (non-GUI) classes. Required for most applications') |
105 "/ ('libbasic2' #'stx:libbasic2' 'More basic (non-GUI) classes. Required for most applications') |
106 ('libbasic3' #'stx:libbasic3' 'More basic (non-GUI) classes. Required for development') |
106 "/ ('libbasic3' #'stx:libbasic3' 'More basic (non-GUI) classes. Required for development') |
107 ('libcomp' #'stx:libcomp' 'The bytecode compiler. Required for all applications') |
107 "/ ('libcomp' #'stx:libcomp' 'The bytecode compiler. Required for all applications') |
108 ('libview' #'stx:libview' 'Low level GUI classes. Required for all GUI applications') |
108 "/ ('libview' #'stx:libview' 'Low level GUI classes. Required for all GUI applications') |
109 ('libview2' #'stx:libview2' 'Additional low level GUI classes. Required for most GUI applications') |
109 "/ ('libview2' #'stx:libview2' 'Additional low level GUI classes. Required for most GUI applications') |
110 ('libwidg' #'stx:libwidg' 'Basic widgets. Required for all GUI applications') |
110 "/ ('libwidg' #'stx:libwidg' 'Basic widgets. Required for all GUI applications') |
111 ('libwidg2' #'stx:libwidg2' 'More widgets. Required for most GUI applications') |
111 "/ ('libwidg2' #'stx:libwidg2' 'More widgets. Required for most GUI applications') |
112 ('libwidg3' #'stx:libwidg3' 'More (fun) widgets. Seldom required') |
112 "/ ('libwidg3' #'stx:libwidg3' 'More (fun) widgets. Seldom required') |
113 ('libtool' #'stx:libtool' 'Development applications. Required for program development') |
113 "/ ('libtool' #'stx:libtool' 'Development applications. Required for program development') |
114 ('libtool2' #'stx:libtool2' 'More development applications. Required for GUI development') |
114 "/ ('libtool2' #'stx:libtool2' 'More development applications. Required for GUI development') |
115 ('libui' #'stx:libui' 'UI spec classes. Required for UIPainter applications') |
115 "/ ('libui' #'stx:libui' 'UI spec classes. Required for UIPainter applications') |
116 ('libhtml' #'stx:libhtml' 'HTML related classes. Required for Web applications and the HTML browser') |
116 "/ ('libhtml' #'stx:libhtml' 'HTML related classes. Required for Web applications and the HTML browser') |
117 ('libodbc' #'stx:libodbc' 'ODBC interface classes.') |
117 "/ ('libodbc' #'stx:libodbc' 'ODBC interface classes.') |
118 ('libopengl' #'stx:libopengl' 'OpenGL interface classes.') |
118 "/ ('libopengl' #'stx:libopengl' 'OpenGL interface classes.') |
119 ('persistency' #'stx:goodies/persistency' 'Simple DB interface') |
119 "/ ('persistency' #'stx:goodies/persistency' 'Simple DB interface') |
120 ('goodies' #'stx:goodies' 'Misc goodies - not really maintained') |
120 "/ ('goodies' #'stx:goodies' 'Misc goodies - not really maintained') |
121 ) do:[:entry | |
121 "/ ) do:[:entry | |
122 |libName package comment| |
122 "/ |libName package comment| |
123 |
123 "/ |
124 libName := entry at:1. |
124 "/ libName := entry at:1. |
125 package := entry at:2. |
125 "/ package := entry at:2. |
126 comment := entry at:3. |
126 "/ comment := entry at:3. |
127 |
127 "/ |
128 p := self new name:libName. |
128 "/ p := self new name:libName. |
129 p packageName:package. |
129 "/ p packageName:package. |
130 p type:#library. |
130 "/ p type:#library. |
131 p comment:comment. |
131 "/ p comment:comment. |
132 stx addSubProject:p. |
132 "/ stx addSubProject:p. |
133 ]. |
133 "/ ]. |
134 |
134 |
135 " |
135 " |
136 self initKnownProjects |
136 self initKnownProjects |
137 " |
137 " |
138 ! |
138 ! |