Code:

package require picoircproc test {} {   set myirc [::picoirc::connect cbirc testor "irc://irc.zeolia.net/test"]}proc cbirc {context state args} {   puts "Callback is here with $args"   switch $state {      init {         puts "Initialized with $context"      }      connect {         puts "connected ?"         ::picoirc::post $context "/join #test2"      }      close {         puts "Well, close with $args"      }      debug {         puts "D --> $args"      }      default {         puts $state         }     }}

Code:

crazycat@dev:~$ tclsh% source ircclient.tcl% testCallback is here withInitialized with ::picoirc::irc1::picoirc::irc1