notify.tcl

来自「网络数据管理协议的开发」· TCL 代码 · 共 16 行

#                               -*- Mode: Tcl -*- 
# notify.tcl
# 
# Description     : Script to test the add_notify_proc command
# 
# Copyright (c) 1996,1997 PDC, Network Appliance. All Rights Reserved.
#
# $Id: notify.tcl,v 1.3 1997/02/01 09:50:20 tim Exp $
# 

add_notify_proc notify_proc

proc notify_proc {message arg} {
    puts "notify_proc: $message $arg"
}