equal
deleted
inserted
replaced
3019 |
3019 |
3020 tree := SelectionInTree new. |
3020 tree := SelectionInTree new. |
3021 tree root:(root := TreeItem name:'invisibleRoot'). |
3021 tree root:(root := TreeItem name:'invisibleRoot'). |
3022 root hide:false. |
3022 root hide:false. |
3023 |
3023 |
3024 (Project knownProjects asOrderedCollection |
3024 showWhat == #current ifTrue:[ |
3025 sort:[:a :b | a packageName < b packageName]) |
3025 root add:(self nodeFor:Project current). |
3026 do:[:aProject | |
3026 ] ifFalse:[ |
3027 |doShow| |
3027 (Project knownProjects asOrderedCollection |
3028 |
3028 sort:[:a :b | a packageName < b packageName]) |
3029 (doShow := showWhat == #all) ifFalse:[ |
3029 do:[:aProject | |
3030 doShow := (aProject package startsWith:'stx:') not |
3030 |doShow| |
|
3031 |
|
3032 (doShow := showWhat == #all) ifFalse:[ |
|
3033 doShow := (aProject package startsWith:'stx:') not |
|
3034 ]. |
|
3035 doShow ifTrue:[ |
|
3036 root add:(self nodeFor:aProject). |
|
3037 ] |
3031 ]. |
3038 ]. |
3032 doShow ifTrue:[ |
|
3033 root add:(self nodeFor:aProject). |
|
3034 ] |
|
3035 ]. |
3039 ]. |
3036 projectTree := root. |
3040 projectTree := root. |
3037 |
3041 |
3038 self projectTreeHolder root:projectTree. |
3042 self projectTreeHolder root:projectTree. |
3039 ^ projectTree |
3043 ^ projectTree |
3313 self hasProjectNodeSelected ifTrue:[ |
3317 self hasProjectNodeSelected ifTrue:[ |
3314 selectedNode := self selectedTreeNode. |
3318 selectedNode := self selectedTreeNode. |
3315 project := selectedNode contents. |
3319 project := selectedNode contents. |
3316 |
3320 |
3317 Project current:project. |
3321 Project current:project. |
|
3322 self showWhat value == #current ifTrue:[ |
|
3323 self updateProjectTree |
|
3324 ] |
3318 ] |
3325 ] |
3319 ! |
3326 ! |
3320 |
3327 |
3321 methodPatchDoubleClick:arg |
3328 methodPatchDoubleClick:arg |
3322 self halt. |
3329 self halt. |
3637 , ' unloaded classes)'. |
3644 , ' unloaded classes)'. |
3638 ] ifFalse:[ |
3645 ] ifFalse:[ |
3639 msg := 'Project is not loaded completely - ' , nMissing printString |
3646 msg := 'Project is not loaded completely - ' , nMissing printString |
3640 , ' of the projects ' , nTotal printString , ' classes are not loaded'. |
3647 , ' of the projects ' , nTotal printString , ' classes are not loaded'. |
3641 ]. |
3648 ]. |
3642 self notify:msg. |
3649 "/ self notify:msg. |
3643 ]. |
3650 ]. |
3644 modifiedChannel value:false. |
3651 modifiedChannel value:false. |
3645 ! ! |
3652 ! ! |
3646 |
3653 |
3647 !ProjectBrowser methodsFor:'user actions - canvas'! |
3654 !ProjectBrowser methodsFor:'user actions - canvas'! |