equal
deleted
inserted
replaced
1502 #translateLabel: true |
1502 #translateLabel: true |
1503 #value: #addClass |
1503 #value: #addClass |
1504 #enabled: #hasClassesSelectedHolder |
1504 #enabled: #hasClassesSelectedHolder |
1505 ) |
1505 ) |
1506 #(#MenuItem |
1506 #(#MenuItem |
|
1507 #label: 'Add Classes found in image' |
|
1508 #translateLabel: true |
|
1509 #value: #addClassesImage |
|
1510 #enabled: #hasClassesSelectedHolder |
|
1511 ) |
|
1512 #(#MenuItem |
1507 #label: 'Add Classes from files found in directory' |
1513 #label: 'Add Classes from files found in directory' |
1508 #translateLabel: true |
1514 #translateLabel: true |
1509 #value: #addClassesFromFilesInDirectory |
1515 #value: #addClassesFromFilesInDirectory |
1510 #enabled: #hasClassesSelectedHolder |
1516 #enabled: #hasClassesSelectedHolder |
1511 ) |
1517 ) |
3504 self information:'No st-sourcefiles found in ' , prjDirectory pathName. |
3510 self information:'No st-sourcefiles found in ' , prjDirectory pathName. |
3505 ] |
3511 ] |
3506 ] |
3512 ] |
3507 ! |
3513 ! |
3508 |
3514 |
|
3515 addClassesImage |
|
3516 |project| |
|
3517 |
|
3518 project := self currentProject. |
|
3519 Smalltalk allClassesDo:[:aClass | |
|
3520 aClass isMeta ifFalse:[ |
|
3521 (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[ |
|
3522 aClass package = project package ifTrue:[ |
|
3523 (project classInfoFor:aClass) isNil ifTrue:[ |
|
3524 project |
|
3525 addClass:aClass name |
|
3526 classFileName:(aClass classFilename |
|
3527 ? ((Smalltalk fileNameForClass:aClass) , '.st')). |
|
3528 ] |
|
3529 ] |
|
3530 ] |
|
3531 ] |
|
3532 ]. |
|
3533 |
|
3534 self updateClassListForProject:project |
|
3535 |
|
3536 ! |
|
3537 |
3509 browseClasses |
3538 browseClasses |
3510 |ns p classes nBad uniqueClasses| |
3539 |ns p classes nBad uniqueClasses| |
3511 |
3540 |
3512 p := self currentProject. |
3541 p := self currentProject. |
3513 classes := p classes |
3542 classes := p classes |