Check-in [985e5d061f]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove a few files that haven't been used for a while. (CVS 1268)
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 985e5d061f3ed1054ed56e9e221999900d806ef1
User & Date: danielk1977 2008-02-15 18:54:58.000
Context
2008-02-15
19:01
Remove a reference to one of the recently removed files. (CVS 1269) check-in: a2e4e489a3 user: danielk1977 tags: trunk
18:54
Remove a few files that haven't been used for a while. (CVS 1268) check-in: 985e5d061f user: danielk1977 tags: trunk
18:23
Move towards the new javascript architecture. One js interpreter per frame, special wrapper objects to allow scripts in one interpreter to use the objects from another. (CVS 1267) check-in: 5861340a25 user: danielk1977 tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to hv/hv3_main.tcl.
1
2
3
4
5
6
7
8
namespace eval hv3 { set {version($Id: hv3_main.tcl,v 1.188 2008/02/15 18:23:37 danielk1977 Exp $)} 1 }

catch {memory init on}

proc sourcefile {file} [string map              \
  [list %HV3_DIR% [file dirname [info script]]] \
{ 
  return [file join {%HV3_DIR%} $file] 
|







1
2
3
4
5
6
7
8
namespace eval hv3 { set {version($Id: hv3_main.tcl,v 1.189 2008/02/15 18:54:58 danielk1977 Exp $)} 1 }

catch {memory init on}

proc sourcefile {file} [string map              \
  [list %HV3_DIR% [file dirname [info script]]] \
{ 
  return [file join {%HV3_DIR%} $file] 
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
# but won't be able to load many image formats.
#
if {[catch { package require Img } errmsg]} {
  puts stderr "WARNING: $errmsg (most image types will fail to load)"
}

source [sourcefile hv3_browser.tcl]
# if {![llength [info procs ::console]]} {
#     source [sourcefile hv3_console.tcl]
# }

namespace eval ::hv3 {
  set log_source_option 0
  set reformat_scripts_option 0
}

# This class is used to create toplevel "sub-window" widgets. Sub-windows







<
<
<







22
23
24
25
26
27
28



29
30
31
32
33
34
35
# but won't be able to load many image formats.
#
if {[catch { package require Img } errmsg]} {
  puts stderr "WARNING: $errmsg (most image types will fail to load)"
}

source [sourcefile hv3_browser.tcl]




namespace eval ::hv3 {
  set log_source_option 0
  set reformat_scripts_option 0
}

# This class is used to create toplevel "sub-window" widgets. Sub-windows