equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1997-1998 by eXept Software AG |
4 COPYRIGHT (c) 1997-1998 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3922 |dir| |
3924 |dir| |
3923 |
3925 |
3924 package notNil ifTrue:[ |
3926 package notNil ifTrue:[ |
3925 dir := Smalltalk packageDirectoryForPackageId:package. |
3927 dir := Smalltalk packageDirectoryForPackageId:package. |
3926 dir notNil ifTrue:[ |
3928 dir notNil ifTrue:[ |
3927 UserPreferences current fileBrowserClass openOn:dir. |
3929 FileBrowser default openOn:dir. |
3928 ] ifFalse:[ |
3930 ] ifFalse:[ |
3929 Dialog warn:(resources string:'Directory not present/readable: "%1"' with:dir) |
3931 Dialog warn:(resources string:'Directory not present/readable: "%1"' with:dir) |
3930 ] |
3932 ] |
3931 ]. |
3933 ]. |
3932 ] |
3934 ] |
3934 m addItem:(MenuItem |
3936 m addItem:(MenuItem |
3935 label: (resources string:'Browse Project Definition') |
3937 label: (resources string:'Browse Project Definition') |
3936 itemValue: |
3938 itemValue: |
3937 [ |
3939 [ |
3938 defClass notNil ifTrue:[ |
3940 defClass notNil ifTrue:[ |
3939 UserPreferences current systemBrowserClass openInClass:defClass class |
3941 SystemBrowser default openInClass:defClass class |
3940 ]. |
3942 ]. |
3941 ] |
3943 ] |
3942 enabled:defClass notNil). |
3944 enabled:defClass notNil). |
3943 |
3945 |
3944 item type == #monticelloPackage ifTrue:[ |
3946 item type == #monticelloPackage ifTrue:[ |
5382 ! |
5384 ! |
5383 |
5385 |
5384 findApplicationAndOpen |
5386 findApplicationAndOpen |
5385 |cls| |
5387 |cls| |
5386 |
5388 |
5387 cls := UserPreferences current systemBrowserClass |
5389 cls := SystemBrowser default askForClassWithFilter:[:cls | cls isVisualStartable]. |
5388 askForClassWithFilter:[:cls | cls isVisualStartable]. |
|
5389 cls notNil ifTrue:[ |
5390 cls notNil ifTrue:[ |
5390 cls open |
5391 cls open |
5391 ] |
5392 ] |
5392 ! |
5393 ! |
5393 |
5394 |
5394 findClassAndBrowse |
5395 findClassAndBrowse |
5395 |cls| |
5396 |cls| |
5396 |
5397 |
5397 cls := UserPreferences current systemBrowserClass askForClass. |
5398 cls := SystemBrowser default askForClass. |
5398 cls notNil ifTrue:[ |
5399 cls notNil ifTrue:[ |
5399 UserPreferences current systemBrowserClass |
5400 SystemBrowser default openInClass:cls selector:nil |
5400 openInClass:cls selector:nil |
|
5401 ] |
5401 ] |
5402 ! |
5402 ! |
5403 |
5403 |
5404 openMethodFinder |
5404 openMethodFinder |
5405 "open the methodFinder (ported from squeak)" |
5405 "open the methodFinder (ported from squeak)" |