Mercurial > pidgin.yaz
comparison plugins/tcl/tcl.c @ 7828:0408e93c8a72
[gaim-migrate @ 8480]
Say hello to Tk 8.4 for me!
committer: Tailor Script <tailor@pidgin.im>
| author | Ethan Blanton <elb@pidgin.im> |
|---|---|
| date | Wed, 10 Dec 2003 22:11:38 +0000 |
| parents | b0913ab92893 |
| children | 409f7f167c98 |
comparison
equal
deleted
inserted
replaced
| 7827:ee32e030c9be | 7828:0408e93c8a72 |
|---|---|
| 135 if (Tcl_Init(interp) == TCL_ERROR) { | 135 if (Tcl_Init(interp) == TCL_ERROR) { |
| 136 Tcl_DeleteInterp(interp); | 136 Tcl_DeleteInterp(interp); |
| 137 return NULL; | 137 return NULL; |
| 138 } | 138 } |
| 139 | 139 |
| 140 #ifdef HAVE_TK | |
| 141 Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit); | |
| 142 #endif /* HAVE_TK */ | |
| 143 | |
| 144 if (tcl_init_interp(interp)) { | 140 if (tcl_init_interp(interp)) { |
| 145 Tcl_DeleteInterp(interp); | 141 Tcl_DeleteInterp(interp); |
| 146 return NULL; | 142 return NULL; |
| 147 } | 143 } |
| 148 Tcl_StaticPackage(interp, "gaim", tcl_init_interp, NULL); | 144 Tcl_StaticPackage(interp, "gaim", tcl_init_interp, NULL); |
| 310 { | 306 { |
| 311 tcl_glib_init(); | 307 tcl_glib_init(); |
| 312 tcl_signal_init(); | 308 tcl_signal_init(); |
| 313 tcl_plugins = g_hash_table_new(g_direct_hash, g_direct_equal); | 309 tcl_plugins = g_hash_table_new(g_direct_hash, g_direct_equal); |
| 314 | 310 |
| 311 #ifdef HAVE_TK | |
| 312 Tcl_StaticPackage(NULL, "Tk", Tk_Init, Tk_SafeInit); | |
| 313 #endif /* HAVE_TK */ | |
| 314 | |
| 315 return TRUE; | 315 return TRUE; |
| 316 } | 316 } |
| 317 | 317 |
| 318 static gboolean tcl_unload(GaimPlugin *plugin) | 318 static gboolean tcl_unload(GaimPlugin *plugin) |
| 319 { | 319 { |