--- tklib-0.4.1-20080501.orig/debian/changelog +++ tklib-0.4.1-20080501/debian/changelog @@ -0,0 +1,90 @@ +tklib (0.4.1-20080501-1) unstable; urgency=low + + * New CVS snapshot. + * Changed section in doc-base registration file to Programming. + * Added copyright statements for individual Tklib modules. + * Protected quilt calls in debian/rules to allow converting the source + package into 3.0 (quilt) format (closes: #484926). + * Cleaned up debian/rules. + * Bumped standards version to 3.8.0. + * Fixed errors in man pages (lines started with a dot). + * Added debian/watch uscan control file to help tracking new upstream + releases. + + -- Sergei Golovan Tue, 17 Jun 2008 15:31:42 +0400 + +tklib (0.4.1-20080125-1) unstable; urgency=low + + * New CVS snapshot. + * Removed empty directory /usr/lib from the binary package. + * Removed extra leading spaces from continuation strings in doc-base + registration file. + * Bumped standards version to 3.7.3. + + -- Sergei Golovan Fri, 25 Jan 2008 17:44:11 +0300 + +tklib (0.4.1-20071020-1) unstable; urgency=low + + * New CVS snapshot. + * Adapted the package to Debian Tcl/Tk policy. This includes moving the Tcl + modules into a subdirectory of /usr/share/tcltk and switching to default + tcl package in dependencies. + * Use quilt for patch management. + * Fixed ignoring errors in clean target in debian/rules. + * Added Homepage field in debian/control. + + -- Sergei Golovan Sat, 17 Nov 2007 11:47:05 +0300 + +tklib (0.4.1-20070927-1) unstable; urgency=low + + * New CVS snapshot. + * Upload to Debian archive (closes: #444415). + + -- Sergei Golovan Sun, 30 Sep 2007 15:53:42 +0400 + +tklib (0.4.1-20070504-1) unstable; urgency=low + + * New CVS snapshot. + * Fixed registering docs in doc-base. + + -- Sergei Golovan Fri, 11 May 2007 12:06:49 +0400 + +tklib (0.4.1-20070108-1) unstable; urgency=low + + * New CVS snapshot. + * Fixed sections inside manual pages and HTML docs. + * Added an index for HTML documentation. + * Register HTML docs in doc-base. + * Removed tk8.4 from build-dependencies and tcllib from dependencies. + * Moved tklib scripts to /usr/share as required by Debian Policy + leaving symlink in /usr/lib. + + -- Sergei Golovan Mon, 08 Jan 2007 01:59:26 +0300 + +tklib (0.4.1-20061210-2) unstable; urgency=low + + * Fixed manual pages filenames. + + -- Sergei Golovan Thu, 04 Jan 2007 11:30:53 +0300 + +tklib (0.4.1-20061210-1) unstable; urgency=low + + * Used current CVS because of KHIM module. + + -- Sergei Golovan Sun, 10 Dec 2006 13:39:33 +0300 + +tklib (0.4.1-2) unstable; urgency=low + + * Moved debhelper to Build-Depends section in debian/control file. + * Bumped Standards-Version to 3.7.2. + * Moved demo.tcl from tkpiechart to docs dir. + * Fixed section number in manual pages. + + -- Sergei Golovan Sun, 10 Dec 2006 00:55:30 +0300 + +tklib (0.4.1-1) unstable; urgency=low + + * Initial release. + + -- Sergei Golovan Sat, 09 Dec 2006 23:00:40 +0300 + --- tklib-0.4.1-20080501.orig/debian/prerm +++ tklib-0.4.1-20080501/debian/prerm @@ -0,0 +1,39 @@ +#! /bin/sh +# prerm script for tklib +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * remove +# * upgrade +# * failed-upgrade +# * remove in-favour +# * deconfigure in-favour \ +# removing +# for details, see /usr/share/doc/debian-policy/ + +case "$1" in + upgrade) + if [ -h /usr/lib/tklib0.4 ] ; then + rm /usr/lib/tklib0.4 + fi + ;; + + remove|failed-upgrade|deconfigure) + ;; + + *) + echo "prerm called with unknown argument \`$1'" >&2 + exit 0 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + --- tklib-0.4.1-20080501.orig/debian/rules +++ tklib-0.4.1-20080501/debian/rules @@ -0,0 +1,144 @@ +#!/usr/bin/make -f +# debian/rules that uses debhelper. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +export QUILT_PATCHES := debian/patches + +version = 0.4.1 +cvsdate = 20080501 + +destdir=debian/tklib +mandir=/usr/share/man +docdir=/usr/share/doc/tklib +exampledir=$(docdir)/examples + +unpatch: + dh_testdir + quilt pop -a || test $$? = 2 + rm -rf patch-stamp .pc + +patch: patch-stamp +patch-stamp: + dh_testdir + quilt push -a || test $$? = 2 + touch patch-stamp + +clean: clean-patched unpatch + dh_testdir + dh_testroot + dh_clean + +clean-patched: patch-stamp + dh_testdir + dh_testroot + # + [ ! -f Makefile ] || $(MAKE) distclean + rm -f build-stamp install-stamp + +# Build mostly covers docs and such +build: build-stamp +build-stamp: patch-stamp + dh_testdir + ./configure --prefix=/usr --mandir=$(mandir) + $(MAKE) doc + # + touch build-stamp + +install: install-stamp +install-stamp: build-stamp + dh_testdir + dh_testroot + dh_installdirs + # + $(MAKE) DESTDIR=$(destdir) install + # + find $(destdir)/usr/lib -name repair.tcl -delete + # + # now set the permissions properly, since the Makefile doesn't bother + find $(destdir)/usr/lib -type f -print | xargs chmod 644 + # + # move scripts to /usr/share + mv $(destdir)/usr/lib/* $(destdir)/usr/share/tcltk + rmdir $(destdir)/usr/lib + # + # rename the man pages into section 3, and clean up + mv $(destdir)$(mandir)/mann $(destdir)$(mandir)/man3 + # + # Several manpages has incorrect filenames (in lowercase), so take them + # from the headers + # Also, replace section n by 3tk + cd $(destdir)$(mandir)/man3 && \ + for f in *.n ; do \ + name=`grep '^\.TH' <$$f | sed 's/^\.TH "\([^ ]\+\)".*/\1/'`; \ + sed -e'/\.so man.macros/ d' \ + -e's/^\.TH \([^ ]\+\) n/.TH \1 3tk/' \ + -e's/clock(n)/clock(3tcl)/g' \ + -e's/(n)/(3tk)/g' \ + -e's/(3)/(3tk)/g' \ + -e's/spIf/sp 1\nIf/' \ + -e's/\.sp Fu/\.sp 1\nFu/' \ + -e's/ü/\\[:u]/g' \ + -e's/"A dialog which allows a user to m/"M/' \ + $$f > $$name.3tk; \ + rm $$f; \ + done + # + # cleanup docs + cd doc/html && \ + for f in *.html ; do \ + sed -i -e's/clock(n)/clock(3tcl)/g' \ + -e's/(n)/(3tk)/g' \ + -e's/(3)/(3tk)/g' $$f; \ + done + # + # generate documentation index + tclsh debian/genindex.tcl doc/html >$(destdir)$(docdir)/html/index.html + # + touch install-stamp + +binary-indep: build install + dh_testdir + dh_testroot + dh_install + dh_installdocs + dh_installexamples + # + # Fix incorrect permissions + find $(destdir)$(exampledir) -type f -print | xargs chmod 644 + # + dh_installchangelogs ChangeLog + dh_compress -Xusr/share/doc/tklib/examples/ \ + -Xusr/share/doc/tklib/html + dh_fixperms + dh_installdeb + tcltk-depends + dh_gencontrol + dh_md5sums + dh_builddeb + +binary-arch: build install + +get-orig-source: get-orig-source-cvs + +get-orig-source-cvs: + CURDIR=`pwd` && \ + TMPDIR=`mktemp -d /tmp/tklib.XXXXXX` && \ + SCRDIR=`dirname $(MAKEFILE_LIST)` && \ + expect $$SCRDIR/checkout $$TMPDIR "$(cvsdate)T23:59:59" && \ + rm -rf $$TMPDIR/tklib/config/ && \ + find $$TMPDIR -name CVS -print | xargs rm -rf && \ + cd $$TMPDIR && \ + tar -zcf $$CURDIR/tklib_$(version)-$(cvsdate).orig.tar.gz . && \ + rm -rf $$TMPDIR + +get-orig-source-release: + wget -O tklib_$(version).orig.tar.gz \ + http://heanet.dl.sourceforge.net/sourceforge/tcllib/tklib-$(version).tar.gz + +source diff: + @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false + +binary: binary-indep binary-arch +.PHONY: patch unpatch clean-patched build clean binary-indep binary-arch binary install get-orig-source-cvs get-orig-source-release --- tklib-0.4.1-20080501.orig/debian/genindex.tcl +++ tklib-0.4.1-20080501/debian/genindex.tcl @@ -0,0 +1,74 @@ +#!/usr/bin/tclsh + +set docdir [lindex $argv 0] +set manuals {} + +foreach docfile [glob -nocomplain -directory $docdir *.html] { + puts stderr $docfile + + if {[catch {set fd [open $docfile]} msg]} { + puts stderr "Can't open file $docfile: $msg" + continue + } + + while {[gets $fd line] >= 0} { + if {[regexp {

\s*(.*)\(\S*\)\s+(\S+)\s+(\S+)\s+(.*)

} $line -> \ + name version module title]} { + lappend manuals [list $module!$title!$name $module $name $version $title [file tail $docfile]] + break + } + } + close $fd +} + +puts " + +Tklib HTML Documentation + + + +

Tklib HTML Documentation

" + +set manuals [lsort -index 0 $manuals] +set prev "" +foreach m $manuals { + set module [lindex $m 1] + set name [lindex $m 2] + set version [lindex $m 3] + set title [lindex $m 4] + set fname [lindex $m 5] + + if {$module != $prev} { + if {$prev != ""} { + puts "" + } + puts "

$module

\n
    " + set prev $module + } + puts "
  • $name $version $title
    • " +} +puts " +
+

tablelist

+
    +
  • tablelist - "A multicolumn listbox +package"
    • +
+ +" + --- tklib-0.4.1-20080501.orig/debian/checkout +++ tklib-0.4.1-20080501/debian/checkout @@ -0,0 +1,26 @@ +#!/usr/bin/expect + +switch -- [llength $argv] { + 0 { + set date "now" + set dir . + } + 1 { + set date "now" + set dir [lindex $argv 0] + } + default { + set date [clock format [expr {[clock scan [lindex $argv 1]] + 24*60*60}] -format %Y%m%dT%H:%M:%S] + set dir [lindex $argv 0] + } +} + +cd $dir + +set cvsroot ":pserver:anonymous@tcllib.cvs.sourceforge.net:/cvsroot/tcllib" +spawn cvs -q -d$cvsroot login +expect -re "assword: " +send "\r" +system "cvs -q -d$cvsroot -z9 co -D \"$date\" tklib" +system "cvs -q -d$cvsroot logout" + --- tklib-0.4.1-20080501.orig/debian/install +++ tklib-0.4.1-20080501/debian/install @@ -0,0 +1 @@ +modules/tablelist/doc/* usr/share/doc/tklib/html/tablelist --- tklib-0.4.1-20080501.orig/debian/dirs +++ tklib-0.4.1-20080501/debian/dirs @@ -0,0 +1,3 @@ +usr/share/doc/tklib/html +usr/share/man +usr/share/tcltk --- tklib-0.4.1-20080501.orig/debian/postinst +++ tklib-0.4.1-20080501/debian/postinst @@ -0,0 +1,38 @@ +#!/bin/sh +# postinst script for tklib +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * configure +# * abort-upgrade +# * abort-remove in-favour +# * abort-remove +# * abort-deconfigure in-favour \ +# removing +# +# for details, see /usr/doc/packaging-manual/ + +case "$1" in + configure|abort-remove|abort-upgrade|abort-deconfigure) + if [ -d /usr/lib/tklib0.4 -a ! -h /usr/lib/tklib0.4 ] ; then + # It's better to fail than to loose user's data + rmdir /usr/lib/tklib0.4 + ln -s ../share/tklib0.4 /usr/lib/tklib0.4 + fi + ;; + *) + echo "postinst called with unknown argument \`$1'" >&2 + exit 0 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + --- tklib-0.4.1-20080501.orig/debian/watch +++ tklib-0.4.1-20080501/debian/watch @@ -0,0 +1,6 @@ +# Watch control file for uscan + +# Compulsory line, this is a version 3 file +version=3 + +http://sf.net/tcllib/tklib-([\d.]*).tar.gz --- tklib-0.4.1-20080501.orig/debian/copyright +++ tklib-0.4.1-20080501/debian/copyright @@ -0,0 +1,74 @@ +This package was debianized by Sergei Golovan +from sources obtained from: +http://sourceforge.net/project/showfiles.php?group_id=12883 + +Copyright: + +This software is copyrighted by Ajuba Solutions and other parties. +The following terms apply to all files associated with the software unless +explicitly disclaimed in individual files. + +The authors hereby grant permission to use, copy, modify, distribute, +and license this software and its documentation for any purpose, provided +that existing copyright notices are retained in all copies and that this +notice is included verbatim in any distributions. No written agreement, +license, or royalty fee is required for any of the authorized uses. +Modifications to this software may be copyrighted by their authors +and need not follow the licensing terms described here, provided that +the new terms are clearly indicated on the first page of each file where +they apply. + +IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY +FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES +ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY +DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGE. + +THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, +INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE +IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE +NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR +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 +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 +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. + +Copyrights for individual modules: + +autoscroll: Copyright (c) 2003 Kevin B. Kenny +chatwidget: Copyright (c) 2007 Pat Thoyts +ctext: Copyright (c) 2007 George Peter Staplin +cursor: Copyright (c) 2001 Jeffrey Hobbs +datefield: Copyright (c) 2002 Keith Vetter +diagrams: Copyright (c) 2006 Arjen Markus +getstring: Copyright (c) 2005 Aaron Faupell +history: Copyright (c) 2005 Aaron Faupell +ico: Copyright (c) 2003-2004 ActiveState Corporation + Copyright (c) 2003-2007 Aaron Faupell +ipentry: Copyright (c) 2003 Aaron Faupell +khim: Copyright (c) 2005-2006 Kevin B. Kenny + Copyright (c) 2006 Andreas Kupries + Copyright (c) 2008 Emiliano Gavilan +ntext: Copyright (c) 1992-1994 The Regents of the University of California + Copyright (c) 1994-1997 Sun Microsystems, Inc. + Copyright (c) 1998 Scriptics Corporation + Copyright (c) 2005-2007 additions by Keith Nash +plotchart: Copyright (c) 2004-2008 Arjen Markus +style: Copyright (c) 2004 ActiveState Corporation + Copyright (c) 2004 David N. Welton +swaplist: Copyright (c) 2005 Aaron Faupell +tablelist: Copyright (c) 2000-2008 Csaba Nemethi +tkpiechart: Copyright (c) 2005-2006 Jean-Luc Fontaine +tooltip: Copyright (c) 2003 ActiveState Corporation. + Copyright (c) 1996-2007 Jeffrey Hobbs +widget: Copyright (c) 2005 Jeffrey Hobbs --- tklib-0.4.1-20080501.orig/debian/docs +++ tklib-0.4.1-20080501/debian/docs @@ -0,0 +1,4 @@ +PACKAGES +README +README-0.4.txt +doc/html --- tklib-0.4.1-20080501.orig/debian/compat +++ tklib-0.4.1-20080501/debian/compat @@ -0,0 +1 @@ +5 --- tklib-0.4.1-20080501.orig/debian/examples +++ tklib-0.4.1-20080501/debian/examples @@ -0,0 +1 @@ +examples/* --- tklib-0.4.1-20080501.orig/debian/control +++ tklib-0.4.1-20080501/debian/control @@ -0,0 +1,38 @@ +Source: tklib +Section: interpreters +Priority: optional +Maintainer: Sergei Golovan +Build-Depends: debhelper (>= 5.0.0), quilt +Build-Depends-Indep: tk-dev, tcllib +Standards-Version: 3.8.0 +Homepage: http://sourceforge.net/projects/tcllib/ + +Package: tklib +Section: interpreters +Architecture: all +Depends: ${wish:Depends} +Description: the standard Tk Library + Tklib, the standard Tk library, is a collection of common utility + functions and widgets all written in pure Tcl/Tk. + . + Modules included: + autoscroll: automatically maps scrollbars when they are needed; + chatwidget: a composite widget for chat applications; + ctext: a text widget with syntax highlighting support; + cursor: provides a few cursor routines; + datefield: an entry widget for the purpose of date entry; + Diagrams: helps drawing diagrams, like flowcharts; + getstring: a dialog which prompts for a string input; + history: provides a history for mechanism for entry widgets; + ico: provides functions for reading and writing windows icons; + ipentry: a widget for the entering of an IP address; + khim: provides key bindings for entering international + characters on a keyboard that does not support them; + ntext: provides alternative bindings for the Text widget; + Plotchart: provides simple plotting and charting commands; + style: provides simple theming using Tk options; + swaplist: a dialog which allows to move options between two lists; + tablelist: a multicolumn listbox widget; + tkpiechart: 2D or 3D pie chart object in a canvas; + tooltip: provides tooltips for Tk widgets; + widget: a set of megawidgets based on snit system. --- tklib-0.4.1-20080501.orig/debian/doc-base +++ tklib-0.4.1-20080501/debian/doc-base @@ -0,0 +1,11 @@ +Document: tklib +Title: Tklib Documentation +Author: Authors of the Tklib modules +Abstract: This is a documentation for Tklib - the standard Tk library. + It contains documentation on individual Tklib modules, supplied + with upstream distribution. +Section: Programming + +Format: HTML +Index: /usr/share/doc/tklib/html/index.html +Files: /usr/share/doc/tklib/html/*.html --- tklib-0.4.1-20080501.orig/debian/patches/manpages.diff +++ tklib-0.4.1-20080501/debian/patches/manpages.diff @@ -0,0 +1,169 @@ +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.orig/modules/chatwidget/chatwidget.man ++++ tklib/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 +@@ -92,17 +92,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 + }] + + +--- tklib.orig/modules/history/tklib_history.man ++++ tklib/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.orig/modules/ntext/ntextIndent.man ++++ tklib/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.orig/modules/tooltip/tooltip.man ++++ tklib/modules/ntext/tooltip/tooltip.man +@@ -91,36 +91,36 @@ + [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 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] --- tklib-0.4.1-20080501.orig/debian/patches/series +++ tklib-0.4.1-20080501/debian/patches/series @@ -0,0 +1 @@ +manpages.diff