equal
deleted
inserted
replaced
5479 |
5479 |
5480 readOnly ifFalse:[ |
5480 readOnly ifFalse:[ |
5481 unloadButton := Button label:(resources string:'Unload'). |
5481 unloadButton := Button label:(resources string:'Unload'). |
5482 unloadButton action:[ |
5482 unloadButton action:[ |
5483 box withWaitCursorDo:[ |
5483 box withWaitCursorDo:[ |
5484 |info idx pathName| |
5484 |handle idx| |
5485 |
5485 |
5486 idx := list1 selectionIndex. |
5486 idx := list1 selectionIndex. |
5487 info := allModules at:idx ifAbsent:nil. |
|
5488 |
|
5489 list1 selectionIndex:nil. |
5487 list1 selectionIndex:nil. |
5490 |
5488 |
5491 info isNil ifTrue:[ |
5489 handle := handles at:idx. |
5492 "/ selected a method |
5490 handle notNil ifTrue:[ |
5493 "/ idx := idx - allModules size. |
5491 handle unload. |
5494 pathName := (handles at:idx) pathName. |
|
5495 |
|
5496 ] ifFalse:[ |
|
5497 "/ selected a package |
|
5498 pathName := info pathName. |
|
5499 ]. |
|
5500 pathName isNil ifTrue:[ |
|
5501 ] ifFalse:[ |
|
5502 ObjectFileLoader unloadObjectFile:pathName. |
|
5503 ]. |
5492 ]. |
5504 moduleListUpdater value. |
5493 moduleListUpdater value. |
5505 unloadButton disable. |
5494 unloadButton disable. |
5506 ] |
5495 ] |
5507 ]. |
5496 ]. |
6759 ! ! |
6748 ! ! |
6760 |
6749 |
6761 !AbstractLauncherApplication class methodsFor:'documentation'! |
6750 !AbstractLauncherApplication class methodsFor:'documentation'! |
6762 |
6751 |
6763 version |
6752 version |
6764 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.391 2010-02-26 20:32:16 cg Exp $' |
6753 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.392 2010-04-16 17:19:10 stefan Exp $' |
6765 ! |
6754 ! |
6766 |
6755 |
6767 version_CVS |
6756 version_CVS |
6768 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.391 2010-02-26 20:32:16 cg Exp $' |
6757 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.392 2010-04-16 17:19:10 stefan Exp $' |
6769 ! ! |
6758 ! ! |