/[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

trunk/ascend4/TK/ascend.tcl revision 1 by aw0a, Fri Oct 29 20:54:12 2004 UTC trunk/tcltk98/TK/ascend.tcl 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"
# Line 216  puts "tk sourced" Line 225  puts "tk sourced"
225  # The plot window and the solver window require the  # The plot window and the solver window require the
226  # TkTable exension package by Roland King  # TkTable exension package by Roland King
227  # mthomas 98.05.07: require 1.8 until we debug the memory errors in 2.0  # mthomas 98.05.07: require 1.8 until we debug the memory errors in 2.0
228  if {[catch {package require Tktable } err]} {  if {[catch {package require Tktable 2.8} err]} {
229    # print a message to stderr since a catch further up the call stack    # print a message to stderr since a catch further up the call stack
230    # eats the call to "error"    # eats the call to "error"
231    puts stderr "ASCEND cannot locate the tkTable package."    puts stderr "ASCEND cannot locate the tkTable package."
232    puts stderr "internal message: $err"    puts stderr "internal message: $err"
233      puts stderr "tck_pkgPath: $tcl_pkgPath"
234      puts stderr "auto_path: $auto_path"
235    error "ASCEND cannot locate the tkTable package.\ninternal message: $err"    error "ASCEND cannot locate the tkTable package.\ninternal message: $err"
236  }  }
237    
Legend:
Removed from v.1  
changed lines
  Added in v.538
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22