equal
deleted
inserted
replaced
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 version |
38 version |
39 " |
39 " |
40 $Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.13 1995-05-03 01:13:01 claus Exp $ |
40 $Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.14 1995-06-06 04:21:03 claus Exp $ |
41 " |
41 " |
42 ! ! |
42 ! ! |
43 |
43 |
44 !ProjectView class methodsFor:'instance creation'! |
44 !ProjectView class methodsFor:'instance creation'! |
45 |
45 |
64 |
64 |
65 browsePackage |
65 browsePackage |
66 "launch browsers for all classes/methods which are defined in this package" |
66 "launch browsers for all classes/methods which are defined in this package" |
67 |
67 |
68 self topView withWaitCursorDo:[ |
68 self topView withWaitCursorDo:[ |
69 |classes packageName| |
69 |classes packageName methods methodList| |
70 |
70 |
71 packageName := myProject packageName. |
71 packageName := myProject packageName. |
72 classes := myProject classes. |
72 classes := myProject classes. |
73 classes notNil ifTrue:[ |
73 classes notNil ifTrue:[ |
74 SystemBrowser browseClasses:classes |
74 SystemBrowser browseClasses:classes |
77 classes := classes asIdentitySet. |
77 classes := classes asIdentitySet. |
78 classes addAll:(classes collect:[:c | c class]). |
78 classes addAll:(classes collect:[:c | c class]). |
79 ] ifFalse:[ |
79 ] ifFalse:[ |
80 classes := #() |
80 classes := #() |
81 ]. |
81 ]. |
82 SystemBrowser browseMethodsWhere:[:cls :mthd :sel | |
82 "/ SystemBrowser browseMethodsWhere:[:cls :mthd :sel | |
83 mthd package = packageName |
83 "/ mthd package = packageName |
84 and:[(classes includes:cls) not] |
84 "/ and:[(classes includes:cls) not] |
85 ] |
85 "/ ] |
86 title:'additional methods in package ' , packageName |
86 "/ title:'individual methods in package ' , packageName. |
|
87 |
|
88 methods := myProject individualMethods. |
|
89 methodList := methods collect:[:m | |
|
90 |who| |
|
91 |
|
92 who := m who. |
|
93 (who at:1) name , ' ' , (who at:2) |
|
94 ]. |
|
95 SystemBrowser browseMethods:methodList |
|
96 title:'individual methods in package ' , packageName. |
87 ] |
97 ] |
88 ! |
98 ! |
89 |
99 |
90 projectDirectory |
100 projectDirectory |
91 |box d| |
101 |box d| |