Changeset c2c5c77 for perlglue.xs

Timestamp:

Mar 28, 2007, 10:54:33 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

7f33c18

Parents:

af9b92e

Message:

Adding 256-color support. This requires a version of ncurses that
supports ABI-6. Colors beyond the first eight are refered to by
number.

Perl now has the number of colors exposed to it by way of
  BarnOwl::getnumcolors()
and also has a mechanism for undefining filters using
  BarnOwl::_remove_filter([filter-name])

You can't remove the 'all' filter or the current filter.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -296 +296 @@
                 owl_global_add_style(&g, s);
         }
+
+int
+getnumcolors()
+        CODE:
+                RETVAL = owl_function_get_color_count();
+        OUTPUT:
+                RETVAL
+
+void
+_remove_filter(filterName)
+        char *filterName
+        CODE:
+        {
+                /* Don't delete the current view, or the 'all' filter */
+                if (strcmp(filterName, owl_view_get_filtname(owl_global_get_current_view(&g)))
+                    && strcmp(filterName, "all")) {
+                        owl_global_remove_filter(&g,filterName);
+                }
+        }