pong-defaults.tcl

来自「development of enhancement」· TCL 代码 · 共 12 行

PacketHeaderManager set tab_(PacketHeader/Pong) 1

Module/Pong set packetSize_       64
Module/Pong set debug_             0

Module/Pong instproc init {args} {
	eval $self next $args
	$self settag "Pong"
}