diff options
Diffstat (limited to 'ext/tk/sample/tkextlib')
| -rw-r--r-- | ext/tk/sample/tkextlib/blt/readme.txt | 2 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/readme.txt | 4 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/repeater.tcl | 10 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl | 8 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl | 28 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl | 2 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl | 38 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl | 2 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl | 2 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/toolbutton.tcl | 34 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tkHTML/README | 6 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tkHTML/page2/index.html | 48 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tkHTML/page3/index.html | 38 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tkimg/license_terms_of_Img_extension | 4 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tkimg/readme.txt | 2 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/treectrl/readme.txt | 2 |
16 files changed, 115 insertions, 115 deletions
diff --git a/ext/tk/sample/tkextlib/blt/readme.txt b/ext/tk/sample/tkextlib/blt/readme.txt index fe12dd88a3..4183c01ecb 100644 --- a/ext/tk/sample/tkextlib/blt/readme.txt +++ b/ext/tk/sample/tkextlib/blt/readme.txt @@ -1,2 +1,2 @@ The scripts and image files in this directory are based on demo files -of Tcl/Tk's BLT extention. +of Tcl/Tk's BLT extention. diff --git a/ext/tk/sample/tkextlib/tile/readme.txt b/ext/tk/sample/tkextlib/tile/readme.txt index a76b3338f7..6c4a5cf543 100644 --- a/ext/tk/sample/tkextlib/tile/readme.txt +++ b/ext/tk/sample/tkextlib/tile/readme.txt @@ -1,2 +1,2 @@ -All of *.tcl and under themes/ directory (except kroc.rb) are -quoted from Tcl/Tk's Tile extension. Please read Orig_LICENSE.txt. +All of *.tcl and under themes/ directory (except kroc.rb) are +quoted from Tcl/Tk's Tile extension. Please read Orig_LICENSE.txt. diff --git a/ext/tk/sample/tkextlib/tile/repeater.tcl b/ext/tk/sample/tkextlib/tile/repeater.tcl index 652ba8ab17..43beb9430a 100644 --- a/ext/tk/sample/tkextlib/tile/repeater.tcl +++ b/ext/tk/sample/tkextlib/tile/repeater.tcl @@ -17,7 +17,7 @@ # Notes: # Repeater buttons work more like scrollbar arrows than # Tk repeating buttons: they fire once immediately when -# first pressed, and $State(delay) specifies the initial +# first pressed, and $State(delay) specifies the initial # interval before the button starts autorepeating. # @@ -49,8 +49,8 @@ bind Repeater <B1-Enter> \ ### Binding procedures. # -## Activate -- Keyboard activation binding. -# Simulate clicking the button, and invoke the command once. +## Activate -- Keyboard activation binding. +# Simulate clicking the button, and invoke the command once. # proc tile::Repeater::Activate {w} { $w instate disabled { return } @@ -61,7 +61,7 @@ proc tile::Repeater::Activate {w} { } ## Press -- ButtonPress-1 binding. -# Invoke the command once and start autorepeating after +# Invoke the command once and start autorepeating after # $State(delay) milliseconds. # proc tile::Repeater::Press {w} { @@ -104,7 +104,7 @@ proc tile::Repeater::Resume {w} { } ## Repeat -- Timer script -# Invoke the command and reschedule another repetition +# Invoke the command and reschedule another repetition # after $State(interval) milliseconds. # proc tile::Repeater::Repeat {w} { diff --git a/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl b/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl index 37e3d07ff7..68733e8ad2 100644 --- a/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl @@ -68,12 +68,12 @@ namespace eval tile::theme::blue { style default Toolbutton \ -width 0 -relief flat -borderwidth 2 -padding 4 \ -background $colors(-frame) -foreground #000000 ; - style map Toolbutton -background [list active $colors(-selectbg)] - style map Toolbutton -foreground [list active $colors(-selectfg)] + style map Toolbutton -background [list active $colors(-selectbg)] + style map Toolbutton -foreground [list active $colors(-selectfg)] style map Toolbutton -relief { disabled flat - selected sunken - pressed sunken + selected sunken + pressed sunken active raised } diff --git a/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl b/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl index 79fcd7c04e..60c59be0ca 100644 --- a/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl @@ -1,4 +1,4 @@ -# keramik.tcl - +# keramik.tcl - # # A sample pixmap theme for the tile package. # @@ -48,12 +48,12 @@ namespace eval tile::theme::keramik { ; style map . -foreground [list disabled $colors(-disabledfg)] - + # ----------------------------------------------------------------- # Button elements # - the button has a large rounded border and needs a bit of # horizontal padding. - # - the checkbutton and radiobutton have the focus drawn around + # - the checkbutton and radiobutton have the focus drawn around # the whole widget - hence the new layouts. # style layout TButton { @@ -125,7 +125,7 @@ namespace eval tile::theme::keramik { # one at the top. # style layout Vertical.TScrollbar { - Scrollbar.background + Scrollbar.background Scrollbar.trough -children { Scrollbar.uparrow -side top Scrollbar.downarrow -side bottom @@ -133,9 +133,9 @@ namespace eval tile::theme::keramik { Vertical.Scrollbar.thumb -side top -expand true -sticky ns } } - + style layout Horizontal.TScrollbar { - Scrollbar.background + Scrollbar.background Scrollbar.trough -children { Scrollbar.leftarrow -side left Scrollbar.rightarrow -side right @@ -149,26 +149,26 @@ namespace eval tile::theme::keramik { style element create Horizontal.Scrollbar.thumb image $I(hsb-n) \ -border {6 4} -width 15 -height 16 -sticky news \ -map [list {pressed !disabled} $I(hsb-p)] - + style element create Vertical.Scrollbar.thumb image $I(vsb-n) \ -border {4 6} -width 16 -height 15 -sticky news \ -map [list {pressed !disabled} $I(vsb-p)] - + style element create Scale.slider image $I(hslider-n) \ -border 3 - + style element create Vertical.Scale.slider image $I(vslider-n) \ -border 3 - + style element create Horizontal.Progress.bar image $I(hsb-n) \ -border {6 4} - + style element create Vertical.Progress.bar image $I(vsb-n) \ -border {4 6} - + style element create uparrow image $I(arrowup-n) \ -map [list {pressed !disabled} $I(arrowup-p)] - + style element create downarrow image $I(arrowdown-n) \ -map [list {pressed !disabled} $I(arrowdown-p)] @@ -177,7 +177,7 @@ namespace eval tile::theme::keramik { style element create leftarrow image $I(arrowleft-n) \ -map [list {pressed !disabled} $I(arrowleft-p)] - + # ----------------------------------------------------------------- # Notebook elements # diff --git a/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl b/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl index 4bb89aa8a5..cedec328f8 100644 --- a/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl @@ -4,7 +4,7 @@ # or we don't have the right version of Tcl/Tk # # To use this automatically within tile, the tile-using application should -# use tile::availableThemes and tile::setTheme +# use tile::availableThemes and tile::setTheme # # $Id$ diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl b/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl index 73548acef2..b2cd79679a 100644 --- a/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl @@ -11,25 +11,25 @@ namespace eval tile { } namespace eval tile::kroc { - + set imgdir [file join [file dirname [info script]] kroc] array set Images [tile::LoadImages $imgdir *.gif] - + if {[package vsatisfies [package provide tile] 0.5]} { set TNoteBook_Tab TNotebook.Tab } else { set TNoteBook_Tab Tab.TNotebook } - + style theme create kroc -parent alt -settings { - + style default . -background #FCB64F -troughcolor #F8C278 -borderwidth 1 style default . -font TkDefaultFont -borderwidth 1 style map . -background [list active #694418] style map . -foreground [list disabled #B2B2B2 active #FFE7CB] - + style default TButton -padding "10 4" - + style default $TNoteBook_Tab -padding {10 3} -font TkDefaultFont style map $TNoteBook_Tab \ -background [list selected #FCB64F {} #FFE6BA] \ @@ -41,7 +41,7 @@ namespace eval tile::kroc { -arrowcolor { pressed #FFE7CB } \ -relief { pressed sunken } \ ; - + style layout Vertical.TScrollbar { Scrollbar.trough -children { Scrollbar.uparrow -side top @@ -50,7 +50,7 @@ namespace eval tile::kroc { Scrollbar.thumb -side top -expand true } } - + style layout Horizontal.TScrollbar { Scrollbar.trough -children { Scrollbar.leftarrow -side left @@ -59,18 +59,18 @@ namespace eval tile::kroc { Scrollbar.thumb -side left -expand true } } - + # # Elements: # if {[package vsatisfies [package provide tile] 0.5]} { - + style element create Button.button image $Images(button-n) \ -map [list \ pressed $Images(button-p) \ active $Images(button-h) \ ] -border 3 -sticky ew - + style element create Checkbutton.indicator image $Images(check-nu) \ -map [list \ {pressed selected} $Images(check-nc) \ @@ -79,7 +79,7 @@ namespace eval tile::kroc { active $Images(check-hu) \ selected $Images(check-nc) \ ] -sticky w - + style element create Radiobutton.indicator image $Images(radio-nu) \ -map [list \ {pressed selected} $Images(radio-nc) \ @@ -88,15 +88,15 @@ namespace eval tile::kroc { active $Images(radio-hu) \ selected $Images(radio-nc) \ ] -sticky w - + } else { - + style element create Button.button pixmap -images [list \ pressed $Images(button-p) \ active $Images(button-h) \ {} $Images(button-n) \ ] -border 3 -tiling tile - + style element create Checkbutton.indicator pixmap -images [list \ {pressed selected} $Images(check-nc) \ pressed $Images(check-nu) \ @@ -105,7 +105,7 @@ namespace eval tile::kroc { selected $Images(check-nc) \ {} $Images(check-nu) \ ] -tiling fixed - + style element create Radiobutton.indicator pixmap -images [list \ {pressed selected} $Images(radio-nc) \ pressed $Images(radio-nu) \ @@ -114,7 +114,7 @@ namespace eval tile::kroc { selected $Images(radio-nc) \ {} $Images(radio-nu) \ ] -tiling fixed - + } # @@ -141,7 +141,7 @@ namespace eval tile::kroc { } } } - + style layout TRadiobutton { Radiobutton.border -children { Radiobutton.background @@ -153,7 +153,7 @@ namespace eval tile::kroc { } } } - + } } # ------------------------------------------------------------------------- diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl b/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl index 179077917c..de4f3d4555 100644 --- a/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl @@ -4,7 +4,7 @@ # or we don't have the right version of Tcl/Tk # # To use this automatically within tile, the tile-using application should -# use tile::availableThemes and tile::setTheme +# use tile::availableThemes and tile::setTheme # # $Id$ diff --git a/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl b/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl index e39aff6f44..f402a73f10 100644 --- a/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl @@ -4,7 +4,7 @@ # or we don't have the right version of Tcl/Tk # # To use this automatically within tile, the tile-using application should -# use tile::availableThemes and tile::setTheme +# use tile::availableThemes and tile::setTheme # # $Id$ diff --git a/ext/tk/sample/tkextlib/tile/toolbutton.tcl b/ext/tk/sample/tkextlib/tile/toolbutton.tcl index 4e08034e31..91e9ad18bb 100644 --- a/ext/tk/sample/tkextlib/tile/toolbutton.tcl +++ b/ext/tk/sample/tkextlib/tile/toolbutton.tcl @@ -7,14 +7,14 @@ # # ~ BACKGROUND # -# Checkbuttons in toolbars have a very different appearance +# Checkbuttons in toolbars have a very different appearance # than regular checkbuttons: there's no indicator, they # "pop up" when the mouse is over them, and they appear sunken # when selected. -# -# Tk added partial support for toolbar-style buttons in 8.4 +# +# Tk added partial support for toolbar-style buttons in 8.4 # with the "-overrelief" option, and TIP #82 added further -# support with the "-offrelief" option. So to get a toolbar-style +# support with the "-offrelief" option. So to get a toolbar-style # checkbutton, you can configure it with: # # checkbutton .cb \ @@ -34,11 +34,11 @@ # # ~ DEMONSTRATION # -# The tile built-in themes (default, "alt", windows, and XP) +# The tile built-in themes (default, "alt", windows, and XP) # already include Toolbutton styles. This script will add # them to the "step" and "blue" themes as a demonstration. # -# (Note: Pushbuttons and radiobuttons can also use the "Toolbutton" +# (Note: Pushbuttons and radiobuttons can also use the "Toolbutton" # style; see demo.tcl.) # @@ -48,7 +48,7 @@ style theme settings "step" { # First, we use [style layout] to define what elements to # use and how they're arranged. Toolbuttons are pretty # simple, consisting of a border, some internal padding, -# and a label. (See also the TScrollbar layout definition +# and a label. (See also the TScrollbar layout definition # in demos/blue.tcl for a more complicated layout spec.) # style layout Toolbutton { @@ -60,8 +60,8 @@ style theme settings "step" { } } -# (Actually the above isn't strictly necessary, since the same layout -# is defined in the default theme; we could have inherited it +# (Actually the above isn't strictly necessary, since the same layout +# is defined in the default theme; we could have inherited it # instead.) # # Next, specify default values for element options. @@ -71,17 +71,17 @@ style theme settings "step" { style default Toolbutton -width 0 -padding 1 -relief flat -borderwidth 2 # -# Finally, use [style map] to specify state-specific +# Finally, use [style map] to specify state-specific # resource values. We want a flat relief if the widget is -# disabled, sunken if it's selected (on) or pressed, +# disabled, sunken if it's selected (on) or pressed, # and raised when it's active (the mouse pointer is # over the widget). Each state-value pair is checked # in order, and the first matching state takes precedence. # style map Toolbutton -relief { disabled flat - selected sunken - pressed sunken + selected sunken + pressed sunken active raised } } @@ -107,10 +107,10 @@ style theme settings "blue" { # style map Toolbutton -relief { disabled flat - selected sunken - pressed sunken + selected sunken + pressed sunken active raised - } + } # # Adjust the -padding at the same time, to enhance @@ -138,7 +138,7 @@ style theme settings "blue" { } # -# ~ A final note: +# ~ A final note: # # TIP #82 also says: "When -indicatoron is off and the button itself # is on, the relief continues to be hard-coded to sunken. For symmetry, diff --git a/ext/tk/sample/tkextlib/tkHTML/README b/ext/tk/sample/tkextlib/tkHTML/README index 1208e270b4..0b9f799cbd 100644 --- a/ext/tk/sample/tkextlib/tkHTML/README +++ b/ext/tk/sample/tkextlib/tkHTML/README @@ -1,12 +1,12 @@ [ TkHtml widget example ] -The directory page1 -- page4 are referd from "test" directory of -original TkHtml extension's source archive. +The directory page1 -- page4 are referd from "test" directory of +original TkHtml extension's source archive. ( see http://www.hwaci.com/sw/tkhtml/index.html ) You can see the HTML documents on the 'hv.rb' or 'ss.rb' sample script. - e.g. + e.g. LD_LIBRARY_PATH=/usr/local/ActiveTcl/lib:$LD_LIBRARY_PATH /usr/local/bin/ruby ./hv.rb page1/index.html diff --git a/ext/tk/sample/tkextlib/tkHTML/page2/index.html b/ext/tk/sample/tkextlib/tkHTML/page2/index.html index 7eaf2d2cc9..1c67be6c0b 100644 --- a/ext/tk/sample/tkextlib/tkHTML/page2/index.html +++ b/ext/tk/sample/tkextlib/tkHTML/page2/index.html @@ -10,7 +10,7 @@ <tr> <td width="120" valign="TOP"><a href="/"><img src="image1" width="120" height="79" alt="Scriptics" border="0"></a></td> <td valign="top" width="548"> - + <!-- Table to hold tabs --> <table cellpadding="0" cellspacing="0" border="0" width="548"> <tr> @@ -50,8 +50,8 @@ } } //--> - </SCRIPT> - + </SCRIPT> + <!-- MenuSubLevel Resource Software Extensions Tk --> <table cellpadding="0" cellspacing="0" border="0"> @@ -186,13 +186,13 @@ or higher. There are also an "<a href="#bltunoff">unofficial</a>" release for 8.0p2 and 8.1a2 that were not done by the author. <a href="/live/annotate?url=http%3a%2f%2fwww%2etcltk%2ecom%2fblt%2f">Edit</a> <i><font size="-1">(October 26, 1999 09:43)</font></i><dt><b><a href="http://www.unifix-online.com/BWidget/index.html" ="">BWidget</a></b> -<dd>A set of native Tk 8.x Widgets using Tcl8.x namespaces. +<dd>A set of native Tk 8.x Widgets using Tcl8.x namespaces. The ToolKit is available under Unix/X11 and Windows. -The BWidget(s) have a professional look&feel as in other -well known Toolkits (Tix or Incr Widget) but the concept is -radically different because everything is native +The BWidget(s) have a professional look&feel as in other +well known Toolkits (Tix or Incr Widget) but the concept is +radically different because everything is native so no platform compilation, no compiled extension -library are needed. The code is 100 Pure Tcl/Tk. +library are needed. The code is 100 Pure Tcl/Tk. More 30 components : Notebook, PageManager, Tree, PanedWindow, ButtonBox, ScrollView, ComboBox, SpinBox, ListBox, SelectFont, SelectColor, ProgressBare ... <a href="/live/annotate?url=http%3a%2f%2fwww%2eunifix%2donline%2ecom%2fBWidget%2findex%2ehtml">Edit</a> @@ -220,10 +220,10 @@ Unix). The console itself provides many more features than the standard console. <dd>This project seeks to integrate the Tk toolkit with the Frontier scripting language. <a href="/live/annotate?url=http%3a%2f%2fwww%2escriptmeridian%2eorg%2fprojects%2ftk%2f">Edit</a> <i><font size="-1">(August 19, 1999 15:36)</font></i><dt><b><a href="http://purl.oclc.org/net/nijtmans/img.html" ="">Img image format extension</a></b> -<dd>This package enhances Tk, adding support for many other Image formats: +<dd>This package enhances Tk, adding support for many other Image formats: BMP, XBM, XPM, GIF (with transparency), PNG, JPEG, TIFF and postscript. -This is implemented as a shared library that can be dynamically loaded into +This is implemented as a shared library that can be dynamically loaded into Tcl/Tk. <a href="/live/annotate?url=http%3a%2f%2fpurl%2eoclc%2eorg%2fnet%2fnijtmans%2fimg%2ehtml">Edit</a> <i><font size="-1">(November 21, 1999 06:35)</font></i><dt><b><a href="http://purl.oclc.org/net/oakley/tcl/mclistbox/index.html" ="">mclistbox - a multi-column listbox widget</a></b> @@ -234,7 +234,7 @@ requires no other extensions; it is completely standalone. <a href="/live/annotate?url=http%3a%2f%2fpurl%2eoclc%2eorg%2fnet%2foakley%2ftcl%2fmclistbox%2findex%2ehtml">Edit</a> <i><font size="-1">(August 19, 1999 15:37)</font></i><dt><b><a href="http://home.t-online.de/home/dshepherd/tkview.htm" ="">MFC views C++ class for embedding Tk</a></b> <dd>The idea of embedding Tk in MFC windows always seemed very enticing but information was sparse and contradictory - on a - scale between "very easy" and "not yet possible". The only thing for it was to have a go and lo, it wasn't that hard after all. + scale between "very easy" and "not yet possible". The only thing for it was to have a go and lo, it wasn't that hard after all. CTkView is a C++ class which can be used in MFC SDI or MDI applications. An instance of CTkView hosts an embedded Tk toplevel widget and performs some management chores for the widget so that it can size, update and react correctly to Windows events. <a href="/live/annotate?url=http%3a%2f%2fhome%2et%2donline%2ede%2fhome%2fdshepherd%2ftkview%2ehtm">Edit</a> @@ -244,7 +244,7 @@ standalone. <a href="/live/annotate?url=http%3a%2f%2fpurl%2eoclc%2eorg%2fnet%2fo Works with <b>8.0</b> <br>Download: <a href="http://www.cs.umd.edu/hcil/pad++/download.html">download.html</a><br>Pad++ is a Tk widget that provides a Zoomable User Interface (ZUI) that supports real-time interactive zoomable graphics in a fashion similar to the Tk Canvas widget. Pad++ supports tens of thousands of objects which include text, images, graphics, portals, lenses, simple html (and more), including transparency and rotation. <a href="/live/annotate?url=http%3a%2f%2fwww%2ecs%2eumd%2eedu%2fhcil%2fpad%2b%2b">Edit</a> <i><font size="-1">(August 19, 1999 15:39)</font></i><dt><b><a href="http://home.t-online.de/home/sesam.com/freeware.htm" ="">Progressbar</a></b> -<dd>Progressbar is a megawidget written in pure tcl (ie: no compiling required - runs on all platforms Macintosh, Unix, Windows). +<dd>Progressbar is a megawidget written in pure tcl (ie: no compiling required - runs on all platforms Macintosh, Unix, Windows). Its primary purpose is to show the progress of any action in percent. <a href="/live/annotate?url=http%3a%2f%2fhome%2et%2donline%2ede%2fhome%2fsesam%2ecom%2ffreeware%2ehtm">Edit</a> <i><font size="-1">(January 24, 2000 09:19)</font></i><dt><b><a href="http://jfontain.free.fr/" ="">scwoop (Simple Composite Widget Object Oriented Package)</a></b> <dd>Scwoop is a composite widget (also known as mega widget) extension to the great Tk widget library. Scwoop is @@ -287,7 +287,7 @@ pie charts on a Tk canvas. <a href="/live/annotate?url=http%3a%2f%2fjfontain%2ef <dd>TkPrint is an extension that allows you to print from a Tk widget. <a href="/live/annotate?url=http%3a%2f%2fwww%2ecygnus%2ecom%2f%7eirox%2ftkprint%2f">Edit</a> <i><font size="-1">(October 11, 1999 09:58)</font></i><dt><b><a href="http://www.purl.org/net/hobbs/tcl/capp/" ="">TkTable Home Page</a></b> -<dd>The TkTable widget. The <code>table</code> command creates a +<dd>The TkTable widget. The <code>table</code> command creates a 2-dimensional grid of cells. The table can use a Tcl array variable or Tcl command for data storage and retrieval. <a href="/live/annotate?url=http%3a%2f%2fwww%2epurl%2eorg%2fnet%2fhobbs%2ftcl%2fcapp%2f">Edit</a> @@ -303,14 +303,14 @@ command for data storage and retrieval. <a href="/live/annotate?url=http%3a%2f%2 distribution. <a href="/live/annotate?url=http%3a%2f%2fftp%2eaustintx%2enet%2fusers%2fjatucker%2fTkTextmatrix%2fdefault%2ehtm">Edit</a> <i><font size="-1">(August 23, 1999 12:14)</font></i><dt><b><a href="http://www.cs.umd.edu/~bederson/Togl.html" ="">ToGL - a Tk Open GL widget</a></b> <dd>Togl is a Tk widget for OpenGL rendering. Togl is based on OGLTK, originally written by Benjamin Bederson at the -University of New Mexico (who has since moved to the University of Maryland). Togl adds the new features: +University of New Mexico (who has since moved to the University of Maryland). Togl adds the new features: <ul> -<li> color-index mode support including color allocation functions -<li> support for requesting stencil, accumulation, alpha buffers, etc -<li> multiple OpenGL drawing widgets -<li> OpenGL extension testing from Tcl -<li> simple, portable font support -<li> overlay plane support +<li> color-index mode support including color allocation functions +<li> support for requesting stencil, accumulation, alpha buffers, etc +<li> multiple OpenGL drawing widgets +<li> OpenGL extension testing from Tcl +<li> simple, portable font support +<li> overlay plane support </ul> Togl allows one to create and manage a special Tk/OpenGL widget with Tcl and render into it with a C program. That is, a typical Togl program will have Tcl code for managing the user interface and a C program for computations and @@ -383,7 +383,7 @@ tree. The tree can be displayed horizontally or vertically. Works with <b>Tcl/Tk 8.0 or higher</b> <br>Download: <a href="http://www.purl.org/net/hobbs/tcl/script/widget/widget-0.9.tar.gz">widget-0.9.tar.gz</a><br>This is a package of megawidgets (i.e., compound widgets) that work almost exactly like Tk widgets. - You can also build your own new megawidgets. + You can also build your own new megawidgets. Includes: combobox, hierarchy, console, progressbar, tabnotebook, validating entry, pane geometry manager, baloon help. <a href="/live/annotate?url=http%3a%2f%2fwww%2epurl%2eorg%2fnet%2fhobbs%2ftcl%2fscript%2fwidget%2f">Edit</a> <i><font size="-1">(August 23, 1999 12:16)</font></i></dl> @@ -419,15 +419,15 @@ tabnotebook, validating entry, pane geometry manager, baloon help. <a href="/liv over[9].src = "http://images.scriptics.com/images/homeMainRollover3.gif" } - + function MakeImageArray(n) { this.length = n for (var i = 0; i<=n; i++)="i++)" {="{" this[i]="this[i]" ="" new="new" Image()="Image()" }="}" return="return" this="this" }="}" //="//" --="--"> </SCRIPT><br> <font size="2"> © 1998-2000 Scriptics Corporation. All rights reserved. - <a href="/legal_notice.html">Legal Notice</a> | <A href="" /privacy.html="/privacy.html"> + <a href="/legal_notice.html">Legal Notice</a> | <A href="" /privacy.html="/privacy.html"> Privacy Statement</a> </td></tr></table></td></tr></table> </Body> -</Html>
\ No newline at end of file +</Html> diff --git a/ext/tk/sample/tkextlib/tkHTML/page3/index.html b/ext/tk/sample/tkextlib/tkHTML/page3/index.html index ce92e8a22e..a04470e659 100644 --- a/ext/tk/sample/tkextlib/tkHTML/page3/index.html +++ b/ext/tk/sample/tkextlib/tkHTML/page3/index.html @@ -218,7 +218,7 @@ <h2 align="center">How To Compile Under Unix Without Installing Tcl</h2> <p><p>Specify the *.a file directly:</p> <blockquote><pre> - $ gcc -I../tcl8.2.2/generic hello.c \ + $ gcc -I../tcl8.2.2/generic hello.c \ ../tcl8.2.2/unix/libtcl8.2.a -lm -ldl $ strip a.out $ ./a.out @@ -226,7 +226,7 @@ <p>Or, tell the C compiler where to look for *.a files:</p> <blockquote><pre> - $ gcc -I../tcl8.2.2/generic hello.c \ + $ gcc -I../tcl8.2.2/generic hello.c \ -L../tcl8.2.2/unix -ltcl -lm -ldl $ strip a.out $ ./a.out @@ -982,7 +982,7 @@ int main(int argc, char **argv){<br> <br clear="both"><p><hr></p> <h2 align="center">Linkage From Tcl To C</h2> <p><p align="center"><img src="image4"></p></p><p><ul><li>3rd parameter of Tcl_CreateCommand() is a pointer to the C subroutine - that implements the command.</li></ul><ul><li>4th parameter to Tcl_CreateCommand() becomes the 1st parameter to + that implements the command.</li></ul><ul><li>4th parameter to Tcl_CreateCommand() becomes the 1st parameter to the C routine whenever the Tcl command is executed.</li></ul><ul><li>1st parameter to Tcl_CreateCommand() must be a valid Tcl interpreter. The same pointer appears as the second parameter to the C routine whenever the Tcl command is executed.</li></ul></p> @@ -990,7 +990,7 @@ int main(int argc, char **argv){<br> <br clear="both"><p><hr></p> <h2 align="center">Linkage From Tcl To C</h2> <p><p align="center"><img src="image5"></p></p><p><ul><li>5th parameter of Tcl_CreateCommand() is a pointer to the C subroutine - that is called when the Tcl command is deleted.</li></ul><ul><li>4th parameter to Tcl_CreateCommand() becomes the 1st parameter to + that is called when the Tcl command is deleted.</li></ul><ul><li>4th parameter to Tcl_CreateCommand() becomes the 1st parameter to the C routine.</li></ul></p> <br clear="both"><p><hr></p> @@ -1035,7 +1035,7 @@ pack .b</tt></small></td> <br clear="both"><p><hr></p> <h2 align="center">Linkage From Tcl To C</h2> -<p>The <tt>argc</tt> and <tt>argv</tt> parameters work just like in +<p>The <tt>argc</tt> and <tt>argv</tt> parameters work just like in <tt>main()</tt></p><p> <table cellspacing="0" cellpadding="0" border="0"> <tr><td valign="center"> @@ -1139,7 +1139,7 @@ pack .b</tt></small></td> <td></td><td></td><td></td><td></td> </tr> </table> -<p><ul><li>Result should be the text of an error message if you +<p><ul><li>Result should be the text of an error message if you return TCL_ERROR.</li></ul><ul><li>3rd argument to Tcl_SetResult() can be TCL_STATIC, TCL_DYNAMIC, TCL_VOLATILE, or a function pointer.</li></ul><ul><li>Also consider using Tcl_AppendResult().</li></ul><ul><li>Direct access to <tt>interp->result</tt> is deprecated.</li></ul><ul><li>See the man pages for details.</li></ul></p> @@ -1443,7 +1443,7 @@ int main(int argc, char **argv){<br> <h2 align="center">Initialization Scripts</h2> <p><ul><li>Run the mini TCLSH implemented above and execute the <tt>parray</tt> command</li></ul><ul><li>It doesn't work! What's wrong? </p></li></li></ul><ul><li><tt>parray</tt> is really a Tcl proc that is read in when the interpreter is initialized. </p></li></li></ul><ul><li><tt>parray</tt> (and several other commands) are stored in a - handful of "Initialization Scripts" </p></li></li></ul><ul><li>All the initialization scripts are stored in the + handful of "Initialization Scripts" </p></li></li></ul><ul><li>All the initialization scripts are stored in the "Tcl Library" - a directory on the host computer. </p></li></li></ul><table><tr><td valign="top"><img src="image3"></td> <td valign="top"><b>Invoke the Tcl_Init() function to locate and read the @@ -1668,8 +1668,8 @@ int main(int argc, char **argv){<br> </ul></li></ul><ul><li>Allows us to implement a virtual filesystem that overlays the real filesystem.</li></ul><ul><li>The virtual filesystem contains all the initialization scripts as compiled-in strings. The initialization scripts look like - they are resident on disk even though they are built in.</li></ul><ul><li>These functions first appeared in Tcl8.0.3. - Presumably to support TclPro Wrapper.</li></ul><ul><li>The only documentation is comments on the code. + they are resident on disk even though they are built in.</li></ul><ul><li>These functions first appeared in Tcl8.0.3. + Presumably to support TclPro Wrapper.</li></ul><ul><li>The only documentation is comments on the code. See the Tcl source file <tt>generic/tclIOUtil.c</tt></li></ul></p> <br clear="both"><p><hr></p> <h2 align="center">The <tt>TclStatInsertProc()</tt> Function</h2> @@ -1997,7 +1997,7 @@ int main(int argc, char **argv){<br> <h2 align="center">Compiling "Hello, World!" For Tk</h2> <p><p><b>Unix:</b></p> <blockquote><pre> - $ gcc hello.c -ltk -L/usr/X11R6/lib \ + $ gcc hello.c -ltk -L/usr/X11R6/lib \ -lX11 -ltcl -lm -ldl $ ./a.out</pre></blockquote> @@ -2008,7 +2008,7 @@ int main(int argc, char **argv){<br> <p><b>Windows using Mingw32:</b></p> <blockquote><pre> - C:> gcc -mno-cygwin hello.c -mwindows \ + C:> gcc -mno-cygwin hello.c -mwindows \ -ltk82 -ltcl82 -lm C:> a.exe</pre></blockquote></p> <br clear="both"><p><hr></p> @@ -2162,7 +2162,7 @@ int main(int argc, char **argv){<br> <li> FreeWrap - http://www.albany.net/~dlabelle/freewrap/freewrap.html </li> <li> Wrap - http://members1.chello.nl/~j.nijtmans/wrap.html </li> </ul></li></ul><ul><li>No C compiler required!</li></ul><ul><li>TclPro will convert Tcl script into bytecode so that it cannot be - easily read by the end user. FreeWrap encrypts the scripts.</li></ul><ul><li>FreeWrap uses compression on its executable. + easily read by the end user. FreeWrap encrypts the scripts.</li></ul><ul><li>FreeWrap uses compression on its executable. Wrap uses compression on both the executable and on the bundled script files.</li></ul><ul><li>Usually include extensions like winico and/or BLT</li></ul></p></td></tr></table> <br clear="both"><p><hr></p> @@ -2170,8 +2170,8 @@ int main(int argc, char **argv){<br> <table><tr><td valign="top"><img src="image9"></td> <td valign="top"><p><ul><li>Mix C/C++ with Tcl/Tk into a standalone binary</li></ul> <ul><li><tt>mktclapp</tt> generates an application initialization file - that contains Tcl scripts as strings and makes all necessary calls - to <tt>Tcl_Init</tt>, <tt>Tcl_CreateCommand</tt>, + that contains Tcl scripts as strings and makes all necessary calls + to <tt>Tcl_Init</tt>, <tt>Tcl_CreateCommand</tt>, <tt>Tcl</tt>*<tt>InsertProc</tt>, etc.</li></ul><ul><li>Features to make it easier to write new Tcl command in C</li></ul><ul><li><tt>xmktclapp.tcl</tt> provides a GUI interface to <tt>mktclapp</tt></li></ul><ul><li>http://www.hwaci.com/sw/mktclapp/</li></ul></p></td></tr></table> <br clear="both"><p><hr></p> @@ -2400,7 +2400,7 @@ int ET_OBJCOMMAND_add2(ET_OBJARGS){<br> <h2 align="center">Locations Of Libraries</h2> <table><tr><td valign="top"><img src="image13"></td> <td valign="top"><p><ul><li>Tells mktclapp where to look for script libraries.</li></ul><ul><li>All Tcl scripts in the indicated directories are - compiled into the <tt>appinit.c</tt> file.</li></ul><ul><li>Comments and extra white-space are removed. + compiled into the <tt>appinit.c</tt> file.</li></ul><ul><li>Comments and extra white-space are removed. There is no way to turn this off.</li></ul></p></td></tr></table> <br clear="both"><p><hr></p> @@ -2607,10 +2607,10 @@ int main(int argc, char **argv){</tt></small></td> <br clear="both"><p><hr></p> <h2 align="center">Mktclapp Initialization Sequence</h2> -<p><ul><li>Initialization starts when the <tt>Et_Init()</tt> +<p><ul><li>Initialization starts when the <tt>Et_Init()</tt> function is called either by client code or by the <tt>main()</tt> that mktclapp generates</li></ul><ul><li>Create the main Tcl interpreter</li></ul><ul><li>Construct the virtual filesystem overlay by redefining - the <tt>source</tt> command and by using the + the <tt>source</tt> command and by using the <tt>Tcl</tt>*<tt>InsertProc()</tt> functions</li></ul><ul><li>Call <tt>Et_PreInit()</tt> if the client defines it</li></ul><ul><li>Call <tt>Tcl_Init()</tt> and <tt>Tk_Init()</tt></li></ul><ul><li>Call <tt>Tcl_CreateCommand()</tt> and <tt>Tcl_CreateObjCommand()</tt> for every <tt>ET_COMMAND_</tt>* and <tt>ET_OBJCOMMAND_</tt>* function in the client code</li></ul><ul><li>Call <tt>Et_AppInit()</tt> if the client defines it</li></ul><ul><li>Run the main Tcl script if there is one</li></ul><ul><li>Call <tt>Et_CustomMainLoop()</tt> if defined by client code or @@ -2680,7 +2680,7 @@ void ErrMsg(char *zMsg){<br> <ul><li> The command that gets executed is: <pre> - tk_messageBox -icon error -msg \ + tk_messageBox -icon error -msg \ {Syntax error near "}"} -type ok </pre> </li></ul> @@ -2708,7 +2708,7 @@ void ErrMsg(char *zMsg){<br> <p><ul><li>The <tt></tt> puts a backslash before all characters that are special to Tcl</li></ul><ul><li>The Tcl command becomes: <pre> - tk_messageBox -icon error -msg \ + tk_messageBox -icon error -msg \ "Syntax error near \"\}\"" -type ok </pre></li></ul></p> diff --git a/ext/tk/sample/tkextlib/tkimg/license_terms_of_Img_extension b/ext/tk/sample/tkextlib/tkimg/license_terms_of_Img_extension index 7f515feee8..23238e9c66 100644 --- a/ext/tk/sample/tkextlib/tkimg/license_terms_of_Img_extension +++ b/ext/tk/sample/tkextlib/tkimg/license_terms_of_Img_extension @@ -30,7 +30,7 @@ MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" -in the software and related documentation as defined in the Federal +in the software and related documentation as defined in the Federal Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you are acquiring the software on behalf of the Department of Defense, the software shall be classified as "Commercial Computer Software" and the @@ -38,4 +38,4 @@ Government shall have only "Restricted Rights" as defined in Clause 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the authors grant the U.S. Government and others acting in its behalf permission to use and distribute the software in accordance with the -terms specified in this license. +terms specified in this license. diff --git a/ext/tk/sample/tkextlib/tkimg/readme.txt b/ext/tk/sample/tkextlib/tkimg/readme.txt index 4d9774492c..8e4b0163b1 100644 --- a/ext/tk/sample/tkextlib/tkimg/readme.txt +++ b/ext/tk/sample/tkextlib/tkimg/readme.txt @@ -1,3 +1,3 @@ -The script 'demo.rb' is based on 'demo.tcl' of Tcl/Tk's 'Img' extention. +The script 'demo.rb' is based on 'demo.tcl' of Tcl/Tk's 'Img' extention. Image data in 'demo.rb' is those of 'demo.tcl'. Please read 'license_terms_of_Img_extension' file. diff --git a/ext/tk/sample/tkextlib/treectrl/readme.txt b/ext/tk/sample/tkextlib/treectrl/readme.txt index 9f26ac069c..bda4f63d88 100644 --- a/ext/tk/sample/tkextlib/treectrl/readme.txt +++ b/ext/tk/sample/tkextlib/treectrl/readme.txt @@ -1,2 +1,2 @@ The scripts and image files in this directory are based on demo files -of Tcl/Tk's TreeCtrl extention. +of Tcl/Tk's TreeCtrl extention. |