equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997-1998 by eXept Software AG |
2 COPYRIGHT (c) 1997-1998 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
3510 |
3508 |
3511 monticelloRoot := myHierarchicalItemWithLabelAndIcon new. |
3509 monticelloRoot := myHierarchicalItemWithLabelAndIcon new. |
3512 monticelloLabel := ((resources string:'[Monticello Packages]') asText allItalic colorizeAllWith:Color grey). |
3510 monticelloLabel := ((resources string:'[Monticello Packages]') asText allItalic colorizeAllWith:Color grey). |
3513 monticelloRoot type:#monticelloRoot. |
3511 monticelloRoot type:#monticelloRoot. |
3514 |
3512 |
3515 MCRepositoryGroup isNil ifTrue:[ |
3513 (MCRepositoryGroup isNil or:[MCRepositoryGroup isLoaded not]) ifTrue:[ |
3516 monticelloRoot icon:greyFolderIcon. |
3514 monticelloRoot icon:greyFolderIcon. |
3517 monticelloRoot label:monticelloLabel, (' (Monticello Support not Loaded)' asText colorizeAllWith:Color grey). |
3515 monticelloRoot label:monticelloLabel, (' (Monticello Support not Loaded)' asText colorizeAllWith:Color grey). |
3518 ] ifFalse:[ |
3516 ] ifFalse:[ |
3519 monticelloRoot icon:folderIcon. |
3517 monticelloRoot icon:folderIcon. |
3520 monticelloRoot label:monticelloLabel. |
3518 monticelloRoot label:monticelloLabel. |
5132 "returns a subMenu on the history of the filebrowsers directories" |
5130 "returns a subMenu on the history of the filebrowsers directories" |
5133 |
5131 |
5134 <resource: #programMenu > |
5132 <resource: #programMenu > |
5135 |
5133 |
5136 ^ [ |
5134 ^ [ |
5137 |m anyItem hosts| |
5135 |m anyItem hosts| |
5138 |
5136 |
5139 m := Menu new. |
5137 m := Menu new. |
5140 |
5138 |
5141 hosts := SmallTeam hostsWithChanges asSortedCollection. |
5139 SmallTeam notNil ifTrue:[ |
5142 hosts do:[:eachHost | |
5140 hosts := SmallTeam hostsWithChanges asSortedCollection. |
5143 |item| |
5141 hosts do:[:eachHost | |
5144 |
5142 |item| |
5145 item := MenuItem label:eachHost. |
5143 |
5146 item itemValue:#'startBrowserOnChangesOnSmallTeamHost:' argument:eachHost. |
5144 item := MenuItem label:eachHost. |
5147 m addItem:item. |
5145 item itemValue:#'startBrowserOnChangesOnSmallTeamHost:' argument:eachHost. |
5148 anyItem := true. |
5146 m addItem:item. |
5149 ]. |
5147 anyItem := true. |
5150 hosts isEmptyOrNil ifTrue:[ nil ] ifFalse:[ m ] |
5148 ]. |
|
5149 ]. |
|
5150 hosts isEmptyOrNil ifTrue:[ nil ] ifFalse:[ m ] |
5151 ]. |
5151 ]. |
5152 |
5152 |
5153 "Created: / 12-11-2006 / 16:06:06 / cg" |
5153 "Created: / 12-11-2006 / 16:06:06 / cg" |
5154 ! ! |
5154 ! ! |
5155 |
5155 |