[Tcladdressbook-commits] Contribs/Alpha/CardBrowser cardBrowser.tcl,NONE,1.1

[Bernard D. <bde...@us...>]

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
    }
}