diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-12-10 17:37:51 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-12-10 17:37:51 +0000 |
| commit | eb91b126ecb77e3348b5040284ffcf57854913ce (patch) | |
| tree | 149b8a26cce0f8209d466941a0c8ebb24cb94ef3 | |
| parent | 1d340a96602c56ffa8c431831e5d04dd234bfdb3 (diff) | |
| download | irssi-eb91b126ecb77e3348b5040284ffcf57854913ce.zip | |
Moved Irssi::command(), Irssi::Server::command() and Irssi::Windowitem::command() from ui to core. Also, Irssi::command() now doesn't default to active server/window item, if this breaks any scripts change them use Irssi::active_win()->command() instead.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2232 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | src/perl/common/Core.xs | 22 | ||||
| -rw-r--r-- | src/perl/ui/Window.xs | 20 |
2 files changed, 22 insertions, 20 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index f8ad6c00..7fbf0195 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -349,6 +349,12 @@ combine_level(level, str) char *str void +command(cmd) + char *cmd +CODE: + perl_command(cmd, NULL, NULL); + +void commands() PREINIT: GSList *tmp; @@ -458,6 +464,14 @@ PPCODE: XPUSHs(sv_2mortal(new_pv(ret))); g_free_not_null(ret); +void +command(server, cmd) + Irssi::Server server + char *cmd +CODE: + perl_command(cmd, server, NULL); + + #******************************* MODULE = Irssi::Core PACKAGE = Irssi::Windowitem #******************************* @@ -474,3 +488,11 @@ PPCODE: ret = parse_special_string(cmd, item->server, item, data, NULL, flags); XPUSHs(sv_2mortal(new_pv(ret))); g_free_not_null(ret); + +void +command(item, cmd) + Irssi::Windowitem item + char *cmd +CODE: + perl_command(cmd, item->server, item); + diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs index f5e61c0e..b4ab69a8 100644 --- a/src/perl/ui/Window.xs +++ b/src/perl/ui/Window.xs @@ -34,12 +34,6 @@ print(str, level=MSGLEVEL_CLIENTNOTICE) CODE: printtext_string(NULL, NULL, level, str); -void -command(cmd) - char *cmd -CODE: - perl_command(cmd, active_win->active_server, active_win->active); - Irssi::UI::Window window_find_name(name) char *name @@ -100,13 +94,6 @@ MODULE = Irssi::UI::Window PACKAGE = Irssi::Server #******************************* void -command(server, cmd) - Irssi::Server server - char *cmd -CODE: - perl_command(cmd, server, NULL); - -void print(server, channel, str, level=MSGLEVEL_CLIENTNOTICE) Irssi::Server server char *channel @@ -249,13 +236,6 @@ print(item, str, level=MSGLEVEL_CLIENTNOTICE) CODE: printtext_string(item->server, item->name, level, str); -void -command(item, cmd) - Irssi::Windowitem item - char *cmd -CODE: - perl_command(cmd, item->server, item); - Irssi::UI::Window window_create(item, automatic) Irssi::Windowitem item |