Check-in [a6021ce249]
Not logged in

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

Overview
Comment:Modifications so that the hv3 widget is easier to use. (CVS 1272)
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:a6021ce249725a49a550468b299a079599e8141e
User & Date: danielk1977 2008-03-02 15:00:13
Context
2008-03-03
10:29
Changes to form submit logic. (CVS 1273) check-in: b992a14631 user: danielk1977 tags: trunk
2008-03-02
15:00
Modifications so that the hv3 widget is easier to use. (CVS 1272) check-in: a6021ce249 user: danielk1977 tags: trunk
14:43
Minor changes to javascript debugger. (CVS 1271) check-in: 13dc246a99 user: danielk1977 tags: trunk
Changes

Changes to Makefile.in.

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
...
184
185
186
187
188
189
190

191
192
193
194
195
196
197
198
199
200
#
# Copyright (c) 1999 Scriptics Corporation.
# Copyright (c) 2002-2005 ActiveState Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: Makefile.in,v 1.34 2008/01/11 06:22:38 danielk1977 Exp $

#========================================================================
# Add additional lines to handle any additional AC_SUBST cases that
# have been added in a customized configure script.
#========================================================================

#SAMPLE_NEW_VAR	= @SAMPLE_NEW_VAR@
................................................................................

binaries: $(BINARIES) pkgIndex.tcl

HV3_VERSION = 0.1
HV3_LIB = hv3-$(HV3_VERSION).tm

HV3_TCL_SOURCE =          \

  $(srcdir)/hv/hv3.tcl              \
  $(srcdir)/hv/hv3_encodings.tcl    \
  $(srcdir)/hv/hv3_util.tcl         \
  $(srcdir)/hv/hv3_form.tcl         \
  $(srcdir)/hv/hv3_request.tcl

$(HV3_LIB): $(HV3_TCL_SOURCE)
	echo "package provide $(HV3_LIB)" > $@
	cat $(HV3_TCL_SOURCE) >> $@








|







 







>


<







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
...
184
185
186
187
188
189
190
191
192
193

194
195
196
197
198
199
200
#
# Copyright (c) 1999 Scriptics Corporation.
# Copyright (c) 2002-2005 ActiveState Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: Makefile.in,v 1.35 2008/03/02 15:00:13 danielk1977 Exp $

#========================================================================
# Add additional lines to handle any additional AC_SUBST cases that
# have been added in a customized configure script.
#========================================================================

#SAMPLE_NEW_VAR	= @SAMPLE_NEW_VAR@
................................................................................

binaries: $(BINARIES) pkgIndex.tcl

HV3_VERSION = 0.1
HV3_LIB = hv3-$(HV3_VERSION).tm

HV3_TCL_SOURCE =          \
  $(srcdir)/hv/hv3_util.tcl         \
  $(srcdir)/hv/hv3.tcl              \
  $(srcdir)/hv/hv3_encodings.tcl    \

  $(srcdir)/hv/hv3_form.tcl         \
  $(srcdir)/hv/hv3_request.tcl

$(HV3_LIB): $(HV3_TCL_SOURCE)
	echo "package provide $(HV3_LIB)" > $@
	cat $(HV3_TCL_SOURCE) >> $@

Changes to hv/hv3.tcl.

1
2
3
4
5
6
7
8
...
135
136
137
138
139
140
141



142
143
144
145

146
147
148
149
150
151
152
namespace eval hv3 { set {version($Id: hv3.tcl,v 1.247 2008/03/02 14:43:49 danielk1977 Exp $)} 1 }

# This file contains the mega-widget hv3::hv3 that is at the core
# of the Hv3 web browser implementation. An instance of this widget 
# displays a single HTML frame. Documentation for the published
# interface to this widget is found at:
#
#   http://tkhtml.tcl.tk/hv3_widget.html
................................................................................
#
# The -targetcmd option of ::hv3::hv3 is delegated to the
# ::hv3::hyperlinkmanager component.
#
package require Tkhtml 3.0
package require snit




source [file join [file dirname [info script]] hv3_encodings.tcl]
source [file join [file dirname [info script]] hv3_util.tcl]
source [file join [file dirname [info script]] hv3_form.tcl]
source [file join [file dirname [info script]] hv3_request.tcl]

#source [file join [file dirname [info script]] hv3_request.tcl.bak]

#--------------------------------------------------------------------------
# Class ::hv3::hv3::mousemanager
#
#     This type contains code for the ::hv3::hv3 widget to manage 
#     dispatching mouse events that occur in the HTML widget to the 
|







 







>
>
>
|
|
|
|
>







1
2
3
4
5
6
7
8
...
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
namespace eval hv3 { set {version($Id: hv3.tcl,v 1.248 2008/03/02 15:00:13 danielk1977 Exp $)} 1 }

# This file contains the mega-widget hv3::hv3 that is at the core
# of the Hv3 web browser implementation. An instance of this widget 
# displays a single HTML frame. Documentation for the published
# interface to this widget is found at:
#
#   http://tkhtml.tcl.tk/hv3_widget.html
................................................................................
#
# The -targetcmd option of ::hv3::hv3 is delegated to the
# ::hv3::hyperlinkmanager component.
#
package require Tkhtml 3.0
package require snit

package provide hv3 0.1

if {[info commands ::hv3::make_constructor] eq ""} {
  source [file join [file dirname [info script]] hv3_encodings.tcl]
  source [file join [file dirname [info script]] hv3_util.tcl]
  source [file join [file dirname [info script]] hv3_form.tcl]
  source [file join [file dirname [info script]] hv3_request.tcl]
}
#source [file join [file dirname [info script]] hv3_request.tcl.bak]

#--------------------------------------------------------------------------
# Class ::hv3::hv3::mousemanager
#
#     This type contains code for the ::hv3::hv3 widget to manage 
#     dispatching mouse events that occur in the HTML widget to the