编辑器

优化

designer/utslcodeeditor.tsf

@@ -855,8 +855,9 @@ type TExecuteEditer=class(TCustomControl) //ִ
         begin
             if 13=e.charcode then 
             begin
+                if o.Completion and o.Completion.Visible then return ;
                 e.skip := true;
-                doSaveCurrentName();                    
+                //doSaveCurrentName();                    
             end 
         end 
         {FMemo.OnKeyDown := function(o,e)

funcext/tvclib/ugtkinterface.tsf

@@ -3193,7 +3193,18 @@ type tgtkapis = class() //gtk
     function openresourcemanager(p); //打开资源管理器
 		  begin
 		      if ifstring(p) then 
-		          return tsl_gtk_execsystem(format('nautilus   "%s" &',p));        
+		      begin 
+		          for i := length(p) downto 1 do 
+		          begin
+		              if p[i]="/" then 
+		              begin
+		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
+		                  break;
+		              end 
+		          end 		          
+		          tsl_gtk_execsystem(format('nautilus   "%s" &',p)); 
+		          return 1;
+		      end        
 		  end 
     /////////////////////////////pipe process///////////执行程序相关/////////////////////////////
    //function tsl_gtk_closehandle(p:pointer):integer;cdecl;external "plugin/libTSLUIL.so";