equal
deleted
inserted
replaced
1921 box defaultButtonIndex:3. |
1921 box defaultButtonIndex:3. |
1922 box action:[:n | answer := #(#cancel #keep #continue) at:n]. |
1922 box action:[:n | answer := #(#cancel #keep #continue) at:n]. |
1923 box label:'Method redefinition'; image:(WarningBox iconBitmap). |
1923 box label:'Method redefinition'; image:(WarningBox iconBitmap). |
1924 box yPosition:(box formLabel bottom max:box textLabel bottom). |
1924 box yPosition:(box formLabel bottom max:box textLabel bottom). |
1925 box addVerticalSpace:10. |
1925 box addVerticalSpace:10. |
1926 chk := box addCheckBox:'Dont show this dialog again (never keep)' on:(notAgain := false asValue). |
1926 chk := box addCheckBoxAtBottom:'Dont show this dialog again (never keep)' on:(notAgain := false asValue). |
1927 box preferredExtent:(box preferredExtent + (0 @ chk preferredHeight) + (0@10)). |
1927 box preferredExtent:(box preferredExtent + (0 @ chk preferredHeight) + (0@10)). |
1928 box resize. |
1928 box resize. |
1929 box showAtPointer. |
1929 box showAtPointer. |
1930 box destroy. |
1930 box destroy. |
1931 |
1931 |
1933 notAgain value ifTrue:[ |
1933 notAgain value ifTrue:[ |
1934 Class catchMethodRedefinitions:false. |
1934 Class catchMethodRedefinitions:false. |
1935 ]. |
1935 ]. |
1936 ]. |
1936 ]. |
1937 ^ answer. |
1937 ^ answer. |
|
1938 |
|
1939 "Modified: / 28-02-2012 / 10:41:52 / cg" |
1938 ! |
1940 ! |
1939 |
1941 |
1940 showNoneFound |
1942 showNoneFound |
1941 self warn:(self classResources string:'None found.'). |
1943 self warn:(self classResources string:'None found.'). |
1942 ! |
1944 ! |
5826 ! ! |
5828 ! ! |
5827 |
5829 |
5828 !SystemBrowser class methodsFor:'documentation'! |
5830 !SystemBrowser class methodsFor:'documentation'! |
5829 |
5831 |
5830 version_CVS |
5832 version_CVS |
5831 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.298 2012-02-14 13:21:39 cg Exp $' |
5833 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.299 2012-02-28 11:24:36 cg Exp $' |
5832 ! |
5834 ! |
5833 |
5835 |
5834 version_SVN |
5836 version_SVN |
5835 ^ '§Id: SystemBrowser.st 7772 2011-06-08 21:59:15Z vranyj1 §' |
5837 ^ '§Id: SystemBrowser.st 7772 2011-06-08 21:59:15Z vranyj1 §' |
5836 ! ! |
5838 ! ! |