Changeset 1215 for branches/sandbox/export_drawxtl.tcl

Timestamp:

Aug 19, 2012 8:40:46 AM (9 years ago)

Author:

toby

Message:

Split restraints & constraints; add compositional (chemical) constraint

File:

• branches/sandbox/export_drawxtl.tcl (modified) (2 diffs)

branches/sandbox/export_drawxtl.tcl

@@ -5 +5 @@
 set label "export to DRAWXTL (.str) file"
 set action export_drawxtl
-set DXTLcolorlist "White Red Green Blue Yellow Cyan Magenta Black Orange Brown Grey Silver White"
+set ::DXTLcolorlist "White Red Green Blue Yellow Cyan Magenta Black Orange Brown Grey Silver White"
 proc export_drawxtl {} {
     global expmap expgui
@@ -559 +559 @@
 
 proc AddContour {} {
+    global DXTL
+    # if {$DXTL(bonds) == 0} {
+    #     # insert header
+    #     set row 0
+    #     grid [label $DXTL(Blst).a$row -text "from " -bg yellow\
+    #            ] -column 1 -row $row  -sticky ew
+    #     grid [label $DXTL(Blst).b$row -text " to " -bg yellow\
+    #            ] -column 2 -row $row  -sticky ew
+    #     grid [label $DXTL(Blst).c$row -text " width " -bg yellow\
+    #            ] -column 3 -row $row  -sticky ew
+    #     grid [label $DXTL(Blst).d$row -text " min " -bg yellow\
+    #          ] -column 4 -row $row  -sticky ew
+    #     grid [label $DXTL(Blst).e$row -text " max " -bg yellow\
+    #            ] -column 5 -row $row  -sticky ew
+    #     grid [label $DXTL(Blst).f$row -text " color " -bg yellow\
+    #            ] -column 6 -row $row  -sticky ew
+    # }
+    # set row [incr DXTL(bonds)]
+    # eval tk_optionMenu $DXTL(Blst).ta$row DXTL(ba_$row) $DXTL(typelist)
+    # grid $DXTL(Blst).ta$row -column 1 -row $row
+    # eval tk_optionMenu $DXTL(Blst).tb$row DXTL(bb_$row) $DXTL(typelist)
+    # grid $DXTL(Blst).tb$row -column 2 -row $row
+    # grid [entry $DXTL(Blst).w$row -textvariable DXTL(bw_$row) \
+    #           -width 5] -column 3 -row $row
+    # grid [entry $DXTL(Blst).mi$row -textvariable DXTL(bmin_$row) \
+    #           -width 5] -column 4 -row $row
+    # grid [entry $DXTL(Blst).mx$row -textvariable DXTL(bmax_$row) \
+    #           -width 5] -column 5 -row $row
+    # eval tk_optionMenu $DXTL(Blst).c$row DXTL(bc_$row) $::DXTLcolorlist
+    # grid $DXTL(Blst).c$row -column 6 -row $row
+    # set DXTL(bw_$row) 0.02
+    # set DXTL(bmin_$row) 1.0
+    # set DXTL(bmax_$row) 2.0
+    # set DXTL(bc_$row) [lindex $::DXTLcolorlist $row]
+    # # Resize the list
+    # update
+    # set sizes [grid bbox $DXTL(Blst)]
+    # [winfo parent $DXTL(Blst)] config -scrollregion $sizes \
+    #     -width [lindex $sizes 2]
     error
 }