08/11/02 02:01:41
んと、こんなんやってる
set str "hogehoge"
f_text_update $str
proc f_text_update {win str}
if {![winfo exists $win]} {
text $win
grid $win -column 0 -row 0
}
$win delete 0.0 end
$win insert end $str
}
08/11/02 02:01:41
んと、こんなんやってる
set str "hogehoge"
f_text_update $str
proc f_text_update {win str}
if {![winfo exists $win]} {
text $win
grid $win -column 0 -row 0
}
$win delete 0.0 end
$win insert end $str
}