diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-19 19:36:21 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-19 19:36:21 +0000 |
| commit | 3819189ef4c137ac4387fe0b7e7fb20314a994c3 (patch) | |
| tree | 98a8997990754c8d11e4b6f4696dfcd3f3081d69 /src/perl/ui | |
| parent | 99a6a85b858b2bced34396b840770c005cacf3ee (diff) | |
| download | irssi-3819189ef4c137ac4387fe0b7e7fb20314a994c3.zip | |
Irssi::Irc::Dcc::* is now correctly blessed instead of using Irssi::Irc::Dcc
always. did s/irssi_bless/iobject_bless/, added simple_iobject_bless which
DCC uses.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2092 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/ui')
| -rw-r--r-- | src/perl/ui/UI.xs | 6 | ||||
| -rw-r--r-- | src/perl/ui/Window.xs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/perl/ui/UI.xs b/src/perl/ui/UI.xs index e1ed56b4..04fce9fe 100644 --- a/src/perl/ui/UI.xs +++ b/src/perl/ui/UI.xs @@ -28,9 +28,9 @@ static void perl_window_fill_hash(HV *hv, WINDOW_REC *window) hv_store(hv, "height", 6, newSViv(window->height), 0); if (window->active) - hv_store(hv, "active", 6, irssi_bless(window->active), 0); + hv_store(hv, "active", 6, iobject_bless(window->active), 0); if (window->active_server) - hv_store(hv, "active_server", 13, irssi_bless(window->active_server), 0); + hv_store(hv, "active_server", 13, iobject_bless(window->active_server), 0); hv_store(hv, "servertag", 9, new_pv(window->servertag), 0); hv_store(hv, "level", 5, newSViv(window->level), 0); @@ -50,7 +50,7 @@ static void perl_window_fill_hash(HV *hv, WINDOW_REC *window) static void perl_text_dest_fill_hash(HV *hv, TEXT_DEST_REC *dest) { hv_store(hv, "window", 6, plain_bless(dest->window, "Irssi::UI::Window"), 0); - hv_store(hv, "server", 6, irssi_bless(dest->server), 0); + hv_store(hv, "server", 6, iobject_bless(dest->server), 0); hv_store(hv, "target", 6, new_pv(dest->target), 0); hv_store(hv, "level", 5, newSViv(dest->level), 0); diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs index afe523c4..debc767c 100644 --- a/src/perl/ui/Window.xs +++ b/src/perl/ui/Window.xs @@ -150,7 +150,7 @@ PPCODE: for (tmp = window->items; tmp != NULL; tmp = tmp->next) { CHANNEL_REC *rec = tmp->data; - XPUSHs(sv_2mortal(irssi_bless(rec))); + XPUSHs(sv_2mortal(iobject_bless(rec))); } void |