Mercurial > hg > egg-tcls
changeset 524:b45fc205f425
calc: Rename functions.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 07 Jul 2020 14:17:27 +0300 |
parents | 89aaf279c12b |
children | a179d0a35d28 |
files | calc.tcl |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/calc.tcl Tue Jul 07 12:04:12 2020 +0300 +++ b/calc.tcl Tue Jul 07 14:17:27 2020 +0300 @@ -21,8 +21,8 @@ set calc_message "Calc v0.4 by ccr/TNSP" putlog "$calc_message" -bind pub - !laske calc_pubmsg -bind msg - !laske calc_msg +bind pub - !laske calc_cmd_pub +bind msg - !laske calc_cmd_msg # ------------------------------------------------------------------------ @@ -46,7 +46,7 @@ } # ------------------------------------------------------------------------ -proc calc_pubmsg {nick uhost hand chan args} { +proc calc_cmd_pub {nick uhost hand chan args} { global calc_err_noargs if {$args == {} || $args == ""} { @@ -60,7 +60,7 @@ } # ------------------------------------------------------------------------- -proc calc_msg {nick uhost hand args} { +proc calc_cmd_msg {nick uhost hand args} { global calc_err_noargs if {$args == {} || $args == ""} {