#!/usr/bin/wish

set auto_path [linsert $auto_path 0 "/usr/share/ncid/lib"]
package require tablelist

wm geometry . "800x330"
wm resizable . 0 0
wm title . "Call and Message Variables"

tablelist::tablelist .t -columns {
    0 "VARIABLE"
    0 "DESCRIPTION"
    0 "DATA"
} -stretch all -background white

pack .t -fill both -expand 1 -side top

.t insert end [list {$Country}     "country where ncidd is running"           "[lindex $argv 0]"]
.t insert end [list {$typeREQ}     "ncidd line type"                          "[lindex $argv 1]"]
.t insert end [list {$dateREQ}     "date of call"                             "[lindex $argv 2]"]
.t insert end [list {$timeREQ}     "time of call"                             "[lindex $argv 3]"]
.t insert end [list {$durationREQ} "duration of call or talk portion"         "[lindex $argv 4]"]
.t insert end [list {$lineREQ}     "lineid of incoming or outgoing call"      "[lindex $argv 5]"]
.t insert end [list {$nmbrREQ}     "unformatted phone number"                 "[lindex $argv 6]"]
.t insert end [list {$fnmbr}       "formatted phone number"                   "[lindex $argv 7]"]
.t insert end [list {$nameREQ}     "phone number name"                        "[lindex $argv 8]"]
.t insert end [list {$ntypeREQ}    "phone number device type"                 "[lindex $argv 9]"]
.t insert end [list {$countryREQ}  "phone number country"                     "[lindex $argv 10]"]
.t insert end [list {$locationREQ} "phone number location or city"            "[lindex $argv 11]"]
.t insert end [list {$carrierREQ}  "phone number carrier"                     "[lindex $argv 12]"]
.t insert end [list {$mtypeREQ}    "message type"                             "[lindex $argv 13]"]
.t insert end [list {$mesgREQ}     "message"                                  "[lindex $argv 14]"]
