Difference for vnd/vnd_gui.tcl from version 1.44 to 1.45

version 1.44version 1.45
Line 1
Line 1
 ## ##
 ## VND -- Visual Neuronal Dynamics graphical interface ## VND -- Visual Neuronal Dynamics graphical interface
 ## ##
 ## $Id: vnd_gui.tcl,v 1.44 2025/07/25 18:54:27 barryi Exp $ ## $Id: vnd_gui.tcl,v 1.45 2025/08/14 21:52:59 jasonks2 Exp $
 ## ##
 ## ##
 ## Home Page ## Home Page
Line 383
Line 383
          
          
     grid [label $w.main.def.nb.page1.matlbl -text "Material" -width 10 -anchor c] -row 0 -column 3     grid [label $w.main.def.nb.page1.matlbl -text "Material" -width 10 -anchor c] -row 0 -column 3
     set materiallist {"Opaque" "Transparent" "BrushedMetal" "Diffuse" "Ghost" "Glass1" "Glass2" "Glass3" "Glossy" "HardPlastic" "MetallicPastel" "Steel" \     grid [ttk::combobox $w.main.def.nb.page1.matcb -width 15 -textvariable ::NeuronVND::materialRep -state readonly -postcommand { .neuron.fp.systems.rep.main.def.nb.page1.matcb configure -values [::NeuronVND::getUpdatedMaterialList] }] -row 1 -column 3
         "Translucent" "Edgy" "EdgyShiny" "EdgyGlass" "Goodsell" "AOShiny" "AOChalky" "AOEdgy" "BlownGlass" "GlassBubble" "RTChrome"} 
     grid [ttk::combobox $w.main.def.nb.page1.matcb -width 15 -values $materiallist -textvariable ::NeuronVND::materialRep -state readonly] -row 1 -column 3     
     bind $w.main.def.nb.page1.matcb <<ComboboxSelected>> {     bind $w.main.def.nb.page1.matcb <<ComboboxSelected>> {
         set text [%W get]         set text [%W get]
         ::NeuronVND::editRep material         ::NeuronVND::editRep material
Line 780
Line 780
     grid [ttk::combobox $aframe.lbl3.def.coloridcb -width 15 -values $colorvalues -textvariable ::NeuronVND::edgesColor -state readonly] -row 0 -column 1     grid [ttk::combobox $aframe.lbl3.def.coloridcb -width 15 -values $colorvalues -textvariable ::NeuronVND::edgesColor -state readonly] -row 0 -column 1
                  
     grid [label $aframe.lbl3.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2     grid [label $aframe.lbl3.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2
     set materiallist {"Opaque" "Transparent" "BrushedMetal" "Diffuse" "Ghost" "Glass1" "Glass2" "Glass3" "Glossy" "HardPlastic" "MetallicPastel" "Steel" \     grid [ttk::combobox $aframe.lbl3.def.matcb -width 12 -textvariable ::NeuronVND::compartMaterial -state readonly -postcommand { .neuron.fp.connect.main.lbl3.def.matcb configure -values [::NeuronVND::getUpdatedMaterialList] }] -row 0 -column 3
         "Translucent" "Edgy" "EdgyShiny" "EdgyGlass" "Goodsell" "AOShiny" "AOChalky" "AOEdgy" "BlownGlass" "GlassBubble" "RTChrome"} 
     grid [ttk::combobox $aframe.lbl3.def.matcb -width 15 -values $materiallist -textvariable ::NeuronVND::edgesMaterial -state readonly] -row 0 -column 3 
        
     set edgestyles {simple_edge source_soma target_soma source_target_soma simple_edge_swc source_sphere_swc target_sphere_swc source_target_sphere_swc }     set edgestyles {simple_edge source_soma target_soma source_target_soma simple_edge_swc source_sphere_swc target_sphere_swc source_target_sphere_swc }
     # source_morphology target_morphology source_morph_sphere target_morph_sphere source_target_morph_sphere simple_edge_morph     # source_morphology target_morphology source_morph_sphere target_morph_sphere source_target_morph_sphere simple_edge_morph
Line 890
Line 890
     grid [ttk::combobox $aframe.lbl1.def.coloridcb -width 12 -values [colorinfo colors] -textvariable ::NeuronVND::spikeColor1 -state readonly] -row 0 -column 1     grid [ttk::combobox $aframe.lbl1.def.coloridcb -width 12 -values [colorinfo colors] -textvariable ::NeuronVND::spikeColor1 -state readonly] -row 0 -column 1
                  
     grid [label $aframe.lbl1.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2     grid [label $aframe.lbl1.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2
     set materiallist {"Opaque" "Transparent" "BrushedMetal" "Diffuse" "Ghost" "Glass1" "Glass2" "Glass3" "Glossy" "HardPlastic" "MetallicPastel" "Steel" \     grid [ttk::combobox $aframe.lbl1.def.matcb -width 12 -textvariable ::NeuronVND::spikeMaterial1 -state readonly -postcommand { .neuron.fp.spikes.main.lbl1.def.matcb configure -values [::NeuronVND::getUpdatedMaterialList] }] -row 0 -column 3
         "Translucent" "Edgy" "EdgyShiny" "EdgyGlass" "Goodsell" "AOShiny" "AOChalky" "AOEdgy" "BlownGlass" "GlassBubble" "RTChrome"} 
     grid [ttk::combobox $aframe.lbl1.def.matcb -width 12 -values $materiallist -textvariable ::NeuronVND::spikeMaterial1 -state readonly] -row 0 -column 3 
        
     grid [label $aframe.lbl1.def.stylbl -text "Style:" -width 10 -anchor e] -row 1 -column 0     grid [label $aframe.lbl1.def.stylbl -text "Style:" -width 10 -anchor e] -row 1 -column 0
     grid [ttk::combobox $aframe.lbl1.def.stycb -width 12 -values {"soma" "morphology_line" "morphology_draft" "morphology"} -textvariable ::NeuronVND::spikeStyle1 -state readonly] -row 1 -column 1     grid [ttk::combobox $aframe.lbl1.def.stycb -width 12 -values {"soma" "morphology_line" "morphology_draft" "morphology"} -textvariable ::NeuronVND::spikeStyle1 -state readonly] -row 1 -column 1
Line 931
Line 931
     grid [ttk::combobox $aframe.lbl2frame.lbl.def.coloridcb -width 12 -values [colorinfo colors] -textvariable ::NeuronVND::spikeColor2 -state readonly] -row 0 -column 1     grid [ttk::combobox $aframe.lbl2frame.lbl.def.coloridcb -width 12 -values [colorinfo colors] -textvariable ::NeuronVND::spikeColor2 -state readonly] -row 0 -column 1
                  
     grid [label $aframe.lbl2frame.lbl.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2     grid [label $aframe.lbl2frame.lbl.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2
     grid [ttk::combobox $aframe.lbl2frame.lbl.def.matcb -width 12 -values $materiallist -textvariable ::NeuronVND::spikeMaterial2 -state readonly] -row 0 -column 3     grid [ttk::combobox $aframe.lbl2frame.lbl.def.matcb -width 12 -textvariable ::NeuronVND::spikeMaterial2 -state readonly -postcommand { .neuron.fp.spikes.main.lbl2frame.lbl.def.matcb configure -values [::NeuronVND::getUpdatedMaterialList] }] -row 0 -column 3
  
  
        
     grid [label $aframe.lbl2frame.lbl.def.stylbl -text "Style:" -width 10 -anchor e] -row 1 -column 0     grid [label $aframe.lbl2frame.lbl.def.stylbl -text "Style:" -width 10 -anchor e] -row 1 -column 0
     grid [ttk::combobox $aframe.lbl2frame.lbl.def.stycb -width 12 -values {"soma" "morphology_line" "morphology_draft" "morphology"} -textvariable ::NeuronVND::spikeStyle2 -state readonly] -row 1 -column 1     grid [ttk::combobox $aframe.lbl2frame.lbl.def.stycb -width 12 -values {"soma" "morphology_line" "morphology_draft" "morphology"} -textvariable ::NeuronVND::spikeStyle2 -state readonly] -row 1 -column 1
Line 1146
Line 1148
     grid [ttk::combobox $aframe.lbl3.def.coloridcb -width 12 -values {"BlueToRed"} -textvariable ::NeuronVND::compartColor -state readonly] -row 0 -column 1     grid [ttk::combobox $aframe.lbl3.def.coloridcb -width 12 -values {"BlueToRed"} -textvariable ::NeuronVND::compartColor -state readonly] -row 0 -column 1
                  
     grid [label $aframe.lbl3.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2     grid [label $aframe.lbl3.def.matlbl -text "Material:" -width 10 -anchor e] -row 0 -column 2
     set materiallist {"Opaque" "Transparent" "BrushedMetal" "Diffuse" "Ghost" "Glass1" "Glass2" "Glass3" "Glossy" "HardPlastic" "MetallicPastel" "Steel" \     grid [ttk::combobox $aframe.lbl3.def.matcb -width 12 -textvariable ::NeuronVND::compartMaterial -state readonly -postcommand { .neuron.fp.compart.main.lbl3.def.matcb configure -values [::NeuronVND::getUpdatedMaterialList] }] -row 0 -column 3
         "Translucent" "Edgy" "EdgyShiny" "EdgyGlass" "Goodsell" "AOShiny" "AOChalky" "AOEdgy" "BlownGlass" "GlassBubble" "RTChrome"} 
     grid [ttk::combobox $aframe.lbl3.def.matcb -width 12 -values $materiallist -textvariable ::NeuronVND::compartMaterial -state readonly] -row 0 -column 3 
        
     grid [label $aframe.lbl3.def.stylbl -text "Style:" -width 10 -anchor e] -row 1 -column 0     grid [label $aframe.lbl3.def.stylbl -text "Style:" -width 10 -anchor e] -row 1 -column 0
     grid [ttk::combobox $aframe.lbl3.def.stycb -width 12 -values {"line" "sphere" "spheretube"} -textvariable ::NeuronVND::compartStyle -state readonly] -row 1 -column 1     grid [ttk::combobox $aframe.lbl3.def.stycb -width 12 -values {"line" "sphere" "spheretube"} -textvariable ::NeuronVND::compartStyle -state readonly] -row 1 -column 1
Line 1375
Line 1376
    $w.menubar.display.menu.rendermode add radiobutton -label "Acrobat3D" -variable render -value a3D -command { display rendermode Acrobat3D }    $w.menubar.display.menu.rendermode add radiobutton -label "Acrobat3D" -variable render -value a3D -command { display rendermode Acrobat3D }
    $w.menubar.display.menu add separator    $w.menubar.display.menu add separator
    $w.menubar.display.menu add command -label "Display Settings" -command { menu display off; menu display on }    $w.menubar.display.menu add command -label "Display Settings" -command { menu display off; menu display on }
     $w.menubar.display.menu add command -label "Materials" -command {menu material off; menu material on}
    $w.menubar.display.menu add checkbutton -label "Show Virtuals in New Reps" -variable ::neuro::display_virtuals_at_creation -onvalue True -offvalue False     $w.menubar.display.menu add checkbutton -label "Show Virtuals in New Reps" -variable ::neuro::display_virtuals_at_creation -onvalue True -offvalue False 
    $w.menubar.display.menu add command -label "Ruler" -command {::Ruler::ruler_gui}    $w.menubar.display.menu add command -label "Ruler" -command {::Ruler::ruler_gui}
  
Line 1689
Line 1691
  
 } }
  
  proc ::NeuronVND::getUpdatedMaterialList { } {
   return [material list]
  }
  
 # unified createRep procs # unified createRep procs
 proc ::NeuronVND::createRepArgs {args} { proc ::NeuronVND::createRepArgs {args} {
     variable repselected     variable repselected

Legend:
Removed in v.1.44 
changed lines
 Added in v.1.45


Made by using version 1.65 of cvs2html