[Tcladdressbook-commits] Contribs/Alpha/CardBrowser cardBrowser.tcl,NONE,1.1
Status: Alpha
Brought to you by:
bdesgraupes
|
From: Bernard D. <bde...@us...> - 2004-08-24 06:02:53
|
Update of /cvsroot/tcladdressbook/Contribs/Alpha/CardBrowser In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3082/Contribs/Alpha/CardBrowser Added Files: cardBrowser.tcl Log Message: First checkin --- NEW FILE: cardBrowser.tcl --- # -*-Tcl-*- nowrap # ################################################################### # # FILE: "cardBrowser.tcl" # last update: 23/08/2004 10:41:37 # Author: Joachim Kock # E-mail: <ko...@ma...> # # Description: Card Browser is a generic interface to data structures # that can be reasonably interpreted as a collection of cards. Typical # examples are simple databases like an address book, and the main # application of Card Browser is to interface Apple's Addressbook. # # Other examples provided are: # # -- access to a tab-separated database, exemplified by the notorious # Whisky Distilleries and Country-codes files distributed with Alpha # -- interface to bibtex data files # -- interface to the arXiv preprint server on the internet [...1205 lines suppressed...] proc Card::displayHuge { str } { set str "\r [string trim $str] \r" set numCols [string length $str] set width [::winZoom::winWidth 48 $numCols] set height [winZoom::winHeight 48 3] set hoffset [expr (1024 - $width ) / 2] new -n Telephone -g $hoffset 440 $width $height \ -shell 1 -fontsize 48 -info $str } proc Card::run { client } { if { [namespace eval $client {info procs run}] == "run" } { ${client}::run } else { windowForFind $client } } |