Wapp

Check-in [9ca390e69f]
Login

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

Overview
Comment:Add a "package require Tcl 8.6", suggested by AKU.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 9ca390e69f6c5536d90cc568dfa079d1c5d5c4e99f85db0d9fcbc4816804c4ed
User & Date: drh 2018-05-01 21:03:50
Context
2018-05-08
01:12
Fix a typo in the documentation. check-in: 123ddf6cef user: drh tags: trunk
2018-05-01
21:03
Add a "package require Tcl 8.6", suggested by AKU. check-in: 9ca390e69f user: drh tags: trunk
2018-03-30
12:25
Fix a typo in the compiling.md document. check-in: c4e1e20b3a user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to wapp.tcl.

12
13
14
15
16
17
18

19
20
21
22
23
24
25
#
# Design rules:
#
#   (1)  All identifiers in the global namespace begin with "wapp"
#
#   (2)  Indentifiers intended for internal use only begin with "wappInt"
#


# Add text to the end of the HTTP reply.  No interpretation or transformation
# of the text is performs.  The argument should be enclosed within {...}
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt







>







12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#
# Design rules:
#
#   (1)  All identifiers in the global namespace begin with "wapp"
#
#   (2)  Indentifiers intended for internal use only begin with "wappInt"
#
package require Tcl 8.6

# Add text to the end of the HTTP reply.  No interpretation or transformation
# of the text is performs.  The argument should be enclosed within {...}
#
proc wapp {txt} {
  global wapp
  dict append wapp .reply $txt