equal
deleted
inserted
replaced
4454 |ns baseName| |
4454 |ns baseName| |
4455 |
4455 |
4456 baseName := currentClass nameWithoutPrefix. |
4456 baseName := currentClass nameWithoutPrefix. |
4457 (ns := currentClass topOwningClass nameSpace) ~~ Smalltalk ifTrue:[ |
4457 (ns := currentClass topOwningClass nameSpace) ~~ Smalltalk ifTrue:[ |
4458 ns := Dialog confirmWithCancel:(resources string:'Make public in ''Smalltalk'' or in its nameSpace ''%1'' ?' with:ns name) |
4458 ns := Dialog confirmWithCancel:(resources string:'Make public in ''Smalltalk'' or in its nameSpace ''%1'' ?' with:ns name) |
4459 labels:(Array with:'cancel' with:'in Smalltalk' with:'in ' , ns name) |
4459 labels:(Array with:'Cancel' with:'In Smalltalk' with:'In ' , ns name) |
4460 values:(Array with:nil with:Smalltalk with:ns) |
4460 values:(Array with:nil with:Smalltalk with:ns) |
4461 default:3. |
4461 default:3. |
4462 ns isNil ifTrue:[^ self]. |
4462 ns isNil ifTrue:[^ self]. |
4463 ]. |
4463 ]. |
4464 |
4464 |
14637 ! ! |
14637 ! ! |
14638 |
14638 |
14639 !BrowserView class methodsFor:'documentation'! |
14639 !BrowserView class methodsFor:'documentation'! |
14640 |
14640 |
14641 version |
14641 version |
14642 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.762 2003-08-14 16:38:37 cg Exp $' |
14642 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.763 2003-08-22 13:38:49 cg Exp $' |
14643 ! ! |
14643 ! ! |
14644 |
14644 |
14645 BrowserView initialize! |
14645 BrowserView initialize! |