Changeset 354

Show
Ignore:
Timestamp:
09/14/08 12:11:14 (4 months ago)
Author:
sergey.kol..@gmail.com
Message:

Sergey Kolos:

  • Cleaning code: MANAGE_PACKAGES and USE_UNIT_TEST properties are now read only when lisp starts.
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • jasko.tim.lisp/src/jasko/tim/lisp/editors/LispEditor.java

    r348 r354  
    651651                 
    652652                // === undefine removed forms (at the moment functions and tests only) 
    653                 boolean undefineTests = LispPlugin.getDefault().getSwank().useUnitTest;  
     653                boolean undefineTests = LispPlugin.getDefault().getSwank().getUseUnitTest();  
    654654                for( String itm: toUndefine){ 
    655655                        String[] item = itm.split(","); 

  • jasko.tim.lisp/src/jasko/tim/lisp/navigator/CleanFaslsAction.java

    r81 r354  
    7070                                // TODO: also delete fasls from .cusp folder, if use cusp to manage packages 
    7171                                SwankInterface swank = LispPlugin.getDefault().getSwank(); 
    72                                 if( swank.isConnected() && swank.managePackages ){ 
     72                                if( swank.isConnected() && swank.getManagePackages() ){ 
    7373                                        //String cuspFolder = "this"; 
    7474                                } 

  • jasko.tim.lisp/src/jasko/tim/lisp/preferences/PreferenceConstants.java

    r268 r354  
    2424        public static final String LISP_INI = "lispIni"; 
    2525        public static final String USE_SITEWIDE_LISP = "usePluginLisp"; 
     26        /** 
     27         *      this preference should be accessed only through  
     28         *  SwankInterface.getManagePackages - because its value should be constant 
     29         *  after lisp starts 
     30         */ 
    2631        public static final String MANAGE_PACKAGES = "managePackages"; 
     32        /** 
     33         *      this preference should be accessed only through  
     34         *  SwankInterface.getUseUnitTest - because its value should be constant after 
     35         *  lisp starts 
     36         */ 
    2737        public static final String USE_UNIT_TEST= "useUnitTest"; 
    2838        public static final String CONSOLE_COMPILER_LOG = "consoleCompilerLog"; 

  • jasko.tim.lisp/src/jasko/tim/lisp/swank/SwankInterface.java

    r352 r354  
    6464        private String currPackage = "COMMON-LISP-USER"; 
    6565        private String lispVersion = "(NO CL IMPLEMENTATION)"; 
    66         private String lastTestPackage = "nil"; 
     66        private String lastTestPackage = "nil"; //FIXME: this should be in test view 
    6767 
    6868        public String getCurrPackage() { 
    …… 
    7474        } 
    7575 
    76         private boolean ranafterLispStart = false; 
    77          
    78         public boolean ranAfterLispStart(){ 
    79                 return ranafterLispStart; 
    80         } 
    81          
    8276        private ListenerThread listener; 
    8377        private DisplayListenerThread displayListener; 
    …… 
    260254         
    261255 
    262         public boolean managePackages = false; 
    263         public boolean useUnitTest = false; 
     256        // SK: note, MANAGE_PACKAGES and USE_UNIT_TEST preferences should be 
     257        // accessed only through SwankInterface.getManagePackages and  
     258        // swankInterface.getUnitTest - because their value only have importance 
     259        // when lisp starts 
     260        private boolean managePackages = false; 
     261        private boolean useUnitTest = false; 
     262         
     263        public boolean getManagePackages(){ 
     264                return managePackages; 
     265        } 
     266 
     267        public boolean getUseUnitTest(){ 
     268                return useUnitTest; 
     269        } 
    264270 
    265271        public String translateRemoteFilePath(String path) { 
    …… 
    340346                        }); 
    341347                } 
    342                 ranafterLispStart = true; 
    343348        } 
    344349 

  • jasko.tim.lisp/src/jasko/tim/lisp/views/ReplView.java

    r353 r354  
    761761                                                        LispImages.getImageDescriptor( 
    762762                                                                        LispImages.RECONNECT)); 
    763                                         loadPackageButton.setEnabled(swank.managePackages); 
     763                                        loadPackageButton.setEnabled(swank.getManagePackages()); 
    764764                                         
    765765                                } 

  • jasko.tim.lisp/src/jasko/tim/lisp/views/TestAction.java

    r353 r354  
    2929                String hasunit = swank.sendEvalAndGrab("(some #'(lambda (x) " + 
    3030                                "(equal \"LISP-UNIT\" (package-name x))) (list-all-packages))", 1000); 
    31                 if( swank != null && "T".equalsIgnoreCase(hasunit) && swank.useUnitTest ){ 
     31                if( swank != null && "T".equalsIgnoreCase(hasunit) && swank.getUseUnitTest() ){ 
    3232                        PackageDialog pd =  
    3333                                new PackageDialog(shell,