Changeset 5140c94 in tol for tolbase/lib/toltk


Ignore:
Timestamp:
Jun 11, 2012, 11:07:54 AM (14 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
0dbdad1
Parents:
78e136b
Message:

refs #1375, también cuando la selección contiene solo una matriz

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tolbase/lib/toltk/tolinspe.tcl

    r78e136b r5140c94  
    24182418                $data_menu(Matrix,Export) add command -label "BDT" \
    24192419                  -command [list ::TolInspector::ExportBDTMatrix $object]
    2420                 $data_menu(main) add command -label [mc "Draw matrix"] \
     2420                $data_menu(main) add command -label [mc "Draw matrix"]... \
    24212421                  -command [list ::TolInspector::DrawMatrix $object]
    24222422              } else {
    … …  
    24252425                $data_menu(Matrix,Export) add cascade -label "BDT" \
    24262426                  -menu $data_menu(Matrix,Export,BDT)
    2427                 $data_menu(main) add cascade -label [mc "Draw matrix"] \
     2427                $data_menu(main) add cascade -label [mc "Draw matrix"]... \
    24282428                  -menu $data_menu(Matrix,Draw)
    24292429                foreach objInfo $options_selected(Matrix) {
    … …  
    24352435                    -command [list ::TolInspector::DrawMatrix [lindex $objInfo 0]]
    24362436                }
    2437                 if { $grammar eq "Matrix" } {
    2438                   set all_matrix {}
    2439                   foreach m $options_selected(Matrix) {
    2440                     lappend all_matrix [ lindex $m 0 ]
    2441                   }
    2442                   TolGui_InsertEntriesMatrixChart $data_menu(main) $all_matrix
     2437              }
     2438              if { $grammar eq "Matrix" } {
     2439                set all_matrix {}
     2440                foreach m $options_selected(Matrix) {
     2441                  lappend all_matrix [ lindex $m 0 ]
    24432442                }
     2443                TolGui_InsertEntriesMatrixChart $data_menu(main) $all_matrix
    24442444              }
    24452445            }
Note: See TracChangeset for help on using the changeset viewer.