equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 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 |
7455 ]. |
7453 ]. |
7456 ] |
7454 ] |
7457 enabled:package notNil). |
7455 enabled:package notNil). |
7458 m addSeparator. |
7456 m addSeparator. |
7459 m addItem:(MenuItem |
7457 m addItem:(MenuItem |
7460 label: (resources string:'Open File Browser on Project''s Folder') |
7458 label: (resources string:'Open File Browser on Package''s Folder') |
7461 itemValue: |
7459 itemValue: |
7462 [ |
7460 [ |
7463 |dir| |
7461 |dir| |
7464 |
7462 |
7465 package notNil ifTrue:[ |
7463 package notNil ifTrue:[ |
7472 ]. |
7470 ]. |
7473 ] |
7471 ] |
7474 enabled:package notNil). |
7472 enabled:package notNil). |
7475 m addSeparator. |
7473 m addSeparator. |
7476 m addItem:(MenuItem |
7474 m addItem:(MenuItem |
7477 label: (resources string:'Browse Project Definition') |
7475 label: (resources string:'Browse Package Definition') |
7478 itemValue: |
7476 itemValue: |
7479 [ |
7477 [ |
7480 defClass notNil ifTrue:[ |
7478 defClass notNil ifTrue:[ |
7481 SystemBrowser default openInClass:defClass class |
7479 SystemBrowser default openInClass:defClass class |
7482 ]. |
7480 ]. |
|
7481 ] |
|
7482 enabled:defClass notNil). |
|
7483 m addItem:(MenuItem |
|
7484 label: (resources string:'Browse Package') |
|
7485 itemValue: |
|
7486 [ |
|
7487 Tools::NewSystemBrowser openOnPackage:package |
7483 ] |
7488 ] |
7484 enabled:defClass notNil). |
7489 enabled:defClass notNil). |
7485 |
7490 |
7486 item type == #monticelloPackage ifTrue:[ |
7491 item type == #monticelloPackage ifTrue:[ |
7487 m addItem:(MenuItem |
7492 m addItem:(MenuItem |