diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-05-20 03:25:48 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-05-20 03:25:48 +0000 |
| commit | 09505d628c3bfee6eebabd34ccdba85d149b28d7 (patch) | |
| tree | 547b073d29720be3bf3e0c8b1fab71919722cb86 | |
| parent | 6f7485b8fa6888d137243742cb31fa0848abe3ba (diff) | |
| download | irssi-09505d628c3bfee6eebabd34ccdba85d149b28d7.zip | |
Irssi::get_gui() now returns IRSSI_GUI_xxx which is in use.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2820 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | src/perl/common/Core.xs | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 129b2081..174c3a4c 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -1,5 +1,6 @@ #include "module.h" #include "irssi-version.h" +#include "core.h" #define DEFAULT_COMMAND_CATEGORY "Perl scripts' commands" @@ -556,6 +557,54 @@ CODE: OUTPUT: RETVAL +int get_gui() +CODE: + RETVAL = irssi_gui; +OUTPUT: + RETVAL + +int +IRSSI_GUI_NONE() +CODE: + RETVAL = IRSSI_GUI_NONE; +OUTPUT: + RETVAL + +int +IRSSI_GUI_TEXT() +CODE: + RETVAL = IRSSI_GUI_TEXT; +OUTPUT: + RETVAL + +int +IRSSI_GUI_GTK() +CODE: + RETVAL = IRSSI_GUI_GTK; +OUTPUT: + RETVAL + +int +IRSSI_GUI_GNOME() +CODE: + RETVAL = IRSSI_GUI_GNOME; +OUTPUT: + RETVAL + +int +IRSSI_GUI_QT() +CODE: + RETVAL = IRSSI_GUI_QT; +OUTPUT: + RETVAL + +int +IRSSI_GUI_KDE() +CODE: + RETVAL = IRSSI_GUI_KDE; +OUTPUT: + RETVAL + #******************************* MODULE = Irssi::Core PACKAGE = Irssi::Server #******************************* |