#!/usr/bin/wish -f
#
#       tincas（仮名） : A Tiny Canvas invoked by MaTX
#
#	Masato ISHIKAWA, Tokyo Institute of Technology
#
#       $Log: tincas,v $
#       Revision 1.2  1999/04/07 05:35:21  ishikawa
#       The simplest one
#
#       Revision 1.1  1999/04/07 05:06:49  ishikawa
#       Initial revision


#       Version 2.0   2001/01/07  t-kita@eecs.kumamoto-u.ac.jp
#
#	勝手に一部改変 2000/12/18 t-kita@eecs.kumamoto-u.ac.jp


gets stdin xsize
gets stdin ysize
gets stdin BG
#
# リビジョンとタイトルバー
#
regexp {([0-9]+\.[0-9]+)} {$Revision: 2.0 $} rev
wm title . "tincas ver. $rev"
wm iconname . "tincas"

# ====================================================
# canvas ウィジットの登録とレイアウト 
# ====================================================
canvas .viewer -relief ridge -width [expr $xsize + 1]  -height [expr $ysize + 1] -bg $BG
pack .viewer  -fill both -expand 1 -padx 5 -pady 5

update
set count 0
set update_interval 1

#
# スタンバイ状態
#
while {1} {
    gets stdin cmd
    if {$cmd=="."} break
    eval $cmd

    incr count	
    if {$count >= $update_interval} {
	update
	set count 0
    }
}
destroy .