equal
deleted
inserted
replaced
27 |
27 |
28 BrowserView comment:' |
28 BrowserView comment:' |
29 COPYRIGHT (c) 1989 by Claus Gittinger |
29 COPYRIGHT (c) 1989 by Claus Gittinger |
30 All Rights Reserved |
30 All Rights Reserved |
31 |
31 |
32 $Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.13 1995-08-03 01:37:22 claus Exp $ |
32 $Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.14 1995-08-10 13:13:21 claus Exp $ |
33 '! |
33 '! |
34 |
34 |
35 !BrowserView class methodsFor:'documentation'! |
35 !BrowserView class methodsFor:'documentation'! |
36 |
36 |
37 copyright |
37 copyright |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 version |
51 version |
52 " |
52 " |
53 $Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.13 1995-08-03 01:37:22 claus Exp $ |
53 $Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.14 1995-08-10 13:13:21 claus Exp $ |
|
54 $Revision: 1.14 $ |
54 " |
55 " |
55 ! |
56 ! |
56 |
57 |
57 documentation |
58 documentation |
58 " |
59 " |
310 sel := sel , ' (* protected *)'. |
311 sel := sel , ' (* protected *)'. |
311 ]. |
312 ]. |
312 aMethod isWrapped ifTrue:[ |
313 aMethod isWrapped ifTrue:[ |
313 sel := sel , ' !!' |
314 sel := sel , ' !!' |
314 ]. |
315 ]. |
|
316 aMethod isInvalid ifTrue:[ |
|
317 sel := sel , ' (not executable)' |
|
318 ]. |
315 |
319 |
316 "mhmh - can this happen ?" |
320 "mhmh - can this happen ?" |
317 "/ (newList includes:sel) ifFalse:[ |
321 "/ (newList includes:sel) ifFalse:[ |
318 newList add:sel |
322 newList add:sel |
319 "/ ] |
323 "/ ] |
527 "set the normal (inactive) window- and icon labels" |
531 "set the normal (inactive) window- and icon labels" |
528 |
532 |
529 |l il| |
533 |l il| |
530 |
534 |
531 myLabel notNil ifTrue:[ |
535 myLabel notNil ifTrue:[ |
532 l := il := myLabel |
536 "if I have been given an explicit label, |
533 ] ifFalse:[ |
537 and its not the default, take that one" |
|
538 |
|
539 myLabel ~= 'System Browser' ifTrue:[ |
|
540 l := il := myLabel |
|
541 ] |
|
542 ]. |
|
543 l isNil ifTrue:[ |
534 l := resources string:'System Browser'. |
544 l := resources string:'System Browser'. |
535 |
545 |
536 currentClass notNil ifTrue:[ |
546 currentClass notNil ifTrue:[ |
537 l := l, ': ', currentClass name. |
547 l := l, ': ', currentClass name. |
538 classListView isNil ifTrue:[ |
548 classListView isNil ifTrue:[ |
3844 methodListView flash. |
3854 methodListView flash. |
3845 ^ nil |
3855 ^ nil |
3846 ]. |
3856 ]. |
3847 labels := #( |
3857 labels := #( |
3848 'inspect method' |
3858 'inspect method' |
|
3859 'decompile ' |
3849 '-' |
3860 '-' |
3850 'make private' |
3861 'make private' |
3851 'make protected' |
3862 'make protected' |
3852 'make public' |
3863 'make public' |
3853 ). |
3864 ). |
3854 selectors := #( |
3865 selectors := #( |
3855 methodInspect |
3866 methodInspect |
|
3867 methodDecompile |
3856 nil |
3868 nil |
3857 methodMakePrivate |
3869 methodMakePrivate |
3858 methodMakeProtected |
3870 methodMakeProtected |
3859 methodMakePublic |
3871 methodMakePublic |
3860 ) |
3872 ) |
4382 "inspect the current method" |
4394 "inspect the current method" |
4383 |
4395 |
4384 self checkMethodSelected ifFalse:[^ self]. |
4396 self checkMethodSelected ifFalse:[^ self]. |
4385 |
4397 |
4386 currentMethod inspect. |
4398 currentMethod inspect. |
|
4399 ! |
|
4400 |
|
4401 methodDecompile |
|
4402 "decompile the current methods bytecodes. |
|
4403 The Decompiler is delivered as an extra, and not normally |
|
4404 avaliable with the system." |
|
4405 |
|
4406 self checkMethodSelected ifFalse:[^ self]. |
|
4407 Decompiler notNil ifTrue:[ |
|
4408 Autoload autoloadFailedSignal handle:[:ex | |
|
4409 ex return |
|
4410 ] do:[ |
|
4411 Decompiler autoload. |
|
4412 ]. |
|
4413 ]. |
|
4414 Decompiler isLoaded ifFalse:[ |
|
4415 Smalltalk fileIn:'/phys/clam/claus/work/libcomp/not_delivered/Decomp.st'. |
|
4416 ]. |
|
4417 Decompiler isLoaded ifFalse:[ |
|
4418 ^ self warn:'No decompiler available'. |
|
4419 ]. |
|
4420 |
|
4421 Decompiler decompile:currentMethod. |
4387 ! ! |
4422 ! ! |
4388 |
4423 |
4389 !BrowserView methodsFor:'method category list menu'! |
4424 !BrowserView methodsFor:'method category list menu'! |
4390 |
4425 |
4391 methodCategoryMenu |
4426 methodCategoryMenu |