Changeset 6dc91d2 in tol for tolbase/lib/toltk/tolprj.tcl

Timestamp:

Nov 23, 2016, 12:06:20 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

cc64b09

Parents:

ffeacdc

Message:

Refs #1933
Se incorporan las barras a la ventana de salida del inspector (tolbase.tcl).
Se corrige un bug con el botón derecho sobre el árbol del inspector (tolinspewtree2.tcl).
Se revisan los binds del editor de PRJs (tolprj.tcl) y se hace uso de la nueva opción de wtree: -selectcommand.
Se añade el método focus y dos opciones de configuración (selectcommand y bindtags) al wtree (wtree.tcl).

Se revisa listboxplus:

+ Se añaden algunas opciones auxiliares (para evitar errores)
+ Se suspenden las barras para que no salgan duplicadas (wtree ya las tiene)
+ Se redirigen los mecanismos de ordenación a los de wtree (véase _SortByColumn, por ejemplo).

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7354 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolprj.tcl (modified) (3 diffs)

tolbase/lib/toltk/tolprj.tcl

@@ -408 +408 @@
   set tv [::wtree $f.sw.t -table 0 -filter no \
     -background white -showroot 1 -selectmode single -showheader 0 \
+    -selectcommand "::TolProject::SelectProc $this" \
     -highlightbackground gray75 -highlightcolor black \
     -highlightthickness 0 -font $toltk_options(fonts,Label) \
@@ -425 +426 @@
   $tv column configure "range 1 end" -visible no
   $tv column configure first -expand yes -weight 1
-  $tv column configure all -itembackground ""       
-  $tv notify bind $tv <Selection> "::TolProject::SelectProc $this"        
+  $tv column configure all -itembackground ""
   
   $f.sw setwidget $f.sw.t
@@ -441 +441 @@
   grid columnconfigure $f 0 -weight 1
 
-
-  bind $tv.frameTree.t <Control-KeyRelease> [list ::TolProject::OnControlKey $this %K %k]
-
-  bind $tv.frameTree.t <Button-1> "::focus $tv"  
- 
-  bind $tv.frameTree.t <Button-3> +[list ::TolProject::PostVariable $this %X %Y]
-  
-  set prevBind [bind $tv.frameTree.t <Double-1>]
-  set newBind "[lrange $prevBind 0 [expr [llength $prevBind]-3]] ; mdidoc disableglobalraise ; ::TolProject::OpenNodeIfTerminal $this ; break"
-  #@ mdidoc disableglobalraise y break parece que cumplen el mismo cometido 
-  bind $tv.frameTree.t <Double-1> $newBind
-  
-  set prevBind [bind $tv.frameTree.t <KeyPress-Return>]
-  set newBind "[lrange $prevBind 0 [expr [llength $prevBind]-3]] ; ::TolProject::OpenNodeIfTerminal $this ; break"
-  bind $tv.frameTree.t <KeyPress-Return> $newBind    
-
-  bind $tv.frameTree.t <KeyPress-space>  +[list ::TolProject::NodeActiveAttributes $this]
-  bind $tv.frameTree.t <KeyPress-Delete> +[list ::TolProject::DeleteActiveNode     $this]
-  bind $tv.frameTree.t <KeyPress-F9>     "::TolProject::CompileActiveNode    $this ; break"
-  bind $tv.frameTree.t <KeyPress-F8>     "::TolProject::DecompileActiveNode  $this ; break"  
+  bind $tv <Control-KeyRelease> [list ::TolProject::OnControlKey $this %K %k]
+  bind $tv <Button-1> "::focus $tv"
+  bind $tv <Button-3> +[list ::TolProject::PostVariable $this %X %Y]
+
+  bind $tv <Double-1> "mdidoc disableglobalraise ; ::TolProject::OpenNodeIfTerminal $this"
+  bind $tv <KeyPress-Return> "::TolProject::OpenNodeIfTerminal $this" 
+
+  bind $tv <KeyPress-space>  +[list ::TolProject::NodeActiveAttributes $this]
+  bind $tv <KeyPress-Delete> +[list ::TolProject::DeleteActiveNode     $this]
+  bind $tv <KeyPress-F9>     "::TolProject::CompileActiveNode    $this ; break"
+  bind $tv <KeyPress-F8>     "::TolProject::DecompileActiveNode  $this ; break"  
  
   set data(mainMenu) [menu $tv.m -tearoff 0]