Patch by Sergei Golovan fixes errors in manual pages (several words started
with a dot are treated as undefined macros). Also, -full is treated as an argument.

--- tklib-0.5.orig/modules/chatwidget/chatwidget.man
+++ tklib-0.5/modules/chatwidget/chatwidget.man
@@ -55,7 +55,7 @@
 Control the names and tags associated with names. 
 [list_begin commands]
 [cmd_def "list [opt [arg -full]]"]
-Returns a list of all the user names from the names view. If [opt \
+Returns a list of all the user names from the names view. If [arg \
 -full] is given then the list returned is a list of lists where each
 sublist is made up of the nick followed by any options that have been
 set on this nick entry. This may be used to examine any application
@@ -97,17 +97,17 @@
 [section EXAMPLE]
 
 [example {
-chatwidget::chatwidget .chat
-proc speak {w msg} {$w message $msg -nick user}
-.chat hook add post [list speak .chat]
-pack .chat -side top -fill both -expand 1
-.chat topic show
-.chat topic set "Chat widget demo"
-.chat name add "admin" -group admin
-.chat name add "user" -group users -color tomato
-.chat message "Chatwidget ready" -type system
-.chat message "Hello, user" -nick admin
-.chat message "Hello, admin" -nick user
+ chatwidget::chatwidget .chat
+ proc speak {w msg} {$w message $msg -nick user}
+ .chat hook add post [list speak .chat]
+ pack .chat -side top -fill both -expand 1
+ .chat topic show
+ .chat topic set "Chat widget demo"
+ .chat name add "admin" -group admin
+ .chat name add "user" -group users -color tomato
+ .chat message "Chatwidget ready" -type system
+ .chat message "Hello, user" -nick admin
+ .chat message "Hello, admin" -nick user
 }]
 
 [para]
--- tklib-0.5.orig/modules/history/tklib_history.man
+++ tklib-0.5/modules/history/tklib_history.man
@@ -46,7 +46,7 @@
 
 This command queries or sets configuration options. Currently the options recognized
 are [arg length] and [arg alert]. Setting the length determines the number of history entries to keep for
-the named Entry. Alert specifies the command to run when the user reaches the end of the history, it defaults to [call bell]. Although configure requires a [arg pathName] argument, the setting for alert is global and the path is ignored.
+the named Entry. Alert specifies the command to run when the user reaches the end of the history, it defaults to [cmd bell]. Although configure requires a [arg pathName] argument, the setting for alert is global and the path is ignored.
 
 [list_end]
 
--- tklib-0.5.orig/modules/ntext/ntextIndent.man
+++ tklib-0.5/modules/ntext/ntextIndent.man
@@ -101,39 +101,39 @@
 To switch on [emph Ntext] 's indentation and use it in widget .t:
 
 [example {
-package require ntext
-set ::ntext::classicWrap 0
-text .t -wrap word
-bindtags .t {.t Ntext . all}
+ package require ntext
+ set ::ntext::classicWrap 0
+ text .t -wrap word
+ bindtags .t {.t Ntext . all}
 }]
 
 To decide later to switch off [emph Ntext] 's indentation:
 
 [example {
-set ::ntext::classicWrap 1
-::ntext::wrapIndent .t
+ set ::ntext::classicWrap 1
+ ::ntext::wrapIndent .t
 }]
 
 To decide later to switch [emph Ntext] 's indentation back on:
 
 [example {
-set ::ntext::classicWrap 0
-::ntext::wrapIndent .t 1.0 end
+ set ::ntext::classicWrap 0
+ ::ntext::wrapIndent .t 1.0 end
 }]
 
 To inject some text into the widget:
 
 [example {
-set foo [.t index end]
-.t insert end {This line was added by the script, not the keyboard!}
-::ntext::wrapIndent .t $foo end
+ set foo [.t index end]
+ .t insert end {This line was added by the script, not the keyboard!}
+ ::ntext::wrapIndent .t $foo end
 }]
 
 To switch to [arg -wrap] [arg char] mode:
 
 [example {
-.t configure -wrap char
-::ntext::wrapIndent .t
+ .t configure -wrap char
+ ::ntext::wrapIndent .t
 }]
 
 
--- tklib-0.5.orig/modules/tooltip/tooltip.man
+++ tklib-0.5/modules/tooltip/tooltip.man
@@ -97,44 +97,44 @@
 [section EXAMPLE]
 
 [example {
-# Demonstrate widget tooltip
-package require tooltip
-pack [label .l -text "label"]
-tooltip::tooltip .l "This is a label widget"
+ # Demonstrate widget tooltip
+ package require tooltip
+ pack [label .l -text "label"]
+ tooltip::tooltip .l "This is a label widget"
 }]
 
 [example {
-# Demonstrate menu tooltip
-package require tooltip
-. configure -menu [menu .menu]
-.menu add cascade -label Test -menu [menu .menu.test -tearoff 0]
-.menu.test add command -label Tooltip
-tooltip::tooltip .menu.test -index 0 "This is a menu tooltip"
+ # Demonstrate menu tooltip
+ package require tooltip
+ . configure -menu [menu .menu]
+ .menu add cascade -label Test -menu [menu .menu.test -tearoff 0]
+ .menu.test add command -label Tooltip
+ tooltip::tooltip .menu.test -index 0 "This is a menu tooltip"
 }]
 
 [example {
-# Demonstrate canvas item tooltip
-package require tooltip
-pack [canvas .c]
-set item [.c create rectangle 10 10 80 80]
-tooltip::tooltip .c -item $item "Canvas item tooltip"
+ # Demonstrate canvas item tooltip
+ package require tooltip
+ pack [canvas .c]
+ set item [.c create rectangle 10 10 80 80]
+ tooltip::tooltip .c -item $item "Canvas item tooltip"
 }]
 
 [example {
-# Demonstrate listbox item tooltip
-package require tooltip
-pack [listbox .lb]
-.lb insert 0 "item one"
-tooltip::tooltip .lb -item 0 "Listbox item tooltip"
+ # Demonstrate listbox item tooltip
+ package require tooltip
+ pack [listbox .lb]
+ .lb insert 0 "item one"
+ tooltip::tooltip .lb -item 0 "Listbox item tooltip"
 }]
 
 [example {
-# Demonstrate text tag tooltip
-package require tooltip
-pack [text .txt]
-.txt tag configure TIP-1 -underline 1
-tooltip::tooltip .txt -tag TIP-1 "tooltip one text"
-.txt insert end "An example of a " {} "tooltip" TIP-1 " tag.\n" {}
+ # Demonstrate text tag tooltip
+ package require tooltip
+ pack [text .txt]
+ .txt tag configure TIP-1 -underline 1
+ tooltip::tooltip .txt -tag TIP-1 "tooltip one text"
+ .txt insert end "An example of a " {} "tooltip" TIP-1 " tag.\n" {}
 }]
 
 [keywords tooltip hover balloon help]