/[ascend]/trunk/tcltk98/TK/ascend.tcl
ViewVC logotype

Diff of /trunk/tcltk98/TK/ascend.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 537 by johnpye, Wed Dec 7 15:44:43 2005 UTC revision 538 by ben.allan, Tue Apr 25 22:49:54 2006 UTC
# Line 135  proc load_Templates {} { Line 135  proc load_Templates {} {
135    asc_source "$env(ASCENDTK)/templates/ascListSelectB1.tcl"    asc_source "$env(ASCENDTK)/templates/ascListSelectB1.tcl"
136    puts "source $env(ASCENDTK)/templates/amlscroll.tcl"    puts "source $env(ASCENDTK)/templates/amlscroll.tcl"
137    asc_source "$env(ASCENDTK)/templates/amlscroll.tcl"    asc_source "$env(ASCENDTK)/templates/amlscroll.tcl"
138    global tcl_platform    global tcl_platform tk_version
139    if {$tcl_platform(platform) == "unix"} {    if {$tcl_platform(platform) == "unix"} {
140      puts "source $env(ASCENDTK)/templates/asctkfbox.tcl"      switch $tk_version {
141      asc_source "$env(ASCENDTK)/templates/asctkfbox.tcl"      8.5 -
142        8.4 {
143            puts "source $env(ASCENDTK)/templates/asctkfbox84.tcl"
144            asc_source "$env(ASCENDTK)/templates/asctkfbox84.tcl"
145          }
146        default  {
147            puts "source $env(ASCENDTK)/templates/asctkfbox.tcl"
148            asc_source "$env(ASCENDTK)/templates/asctkfbox.tcl"
149          }
150        }
151    }    }
152    puts "source $env(ASCENDTK)/templates/ascdialog.tcl"    puts "source $env(ASCENDTK)/templates/ascdialog.tcl"
153    asc_source "$env(ASCENDTK)/templates/ascdialog.tcl"    asc_source "$env(ASCENDTK)/templates/ascdialog.tcl"

Legend:
Removed from v.537  
changed lines
  Added in v.538

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22