Problem with TCL Plugin

[Daniel]

Hello, My name is Daniel, I'm from Brazil, Sorry my wrong english, or if I
expressed badly, but I'm learning... :|

I don't know if a send mail to correct destination, but... I want do plugins
for Pidgin using Tcl language, but when I try connect with signals, a don't
have success. Flow code:

proc plugin_init {} {
  return [ list "Teste" \
                  "0.1" \
                  "Teste de um plugin tcl" \
                  "Teste de desenvolvimento de um plugin em tcl" \
                  "Daniel Lira <danielflira at gmail.com>" \
                  "http://www.google.com"
  ]
}

::purple::signal connect [::purple::account handle] account-enabled metodo
proc metodo { } {
    ::purple::notify [lindex [plugin_init] 0] "Notify" "Test"
}

The error is args parameter lack, but i don't know what args is, and on the
sample in http://developer.pidgin.im/doxygen/2.5.2/html/tcl-howto.html he is
not clean.

Thanks

-- 
Daniel Fonseca Lira
Cel: 8421-5382
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://pidgin.im/pipermail/devel/attachments/20090916/0a54b1e3/attachment-0001.html>