Changeset 4df918b for perlglue.xs

Timestamp:

Sep 3, 2009, 6:03:37 PM (15 years ago)

Author:

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

Branches:

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

Children:

0b2afba

Parents:

65a9870

Message:

Add BarnOwl::redisplay()

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -411 +411 @@
                 owl_list_free_all(&l, owl_free);
 
+void
+redisplay()
+        CODE:
+        {
+                owl_messagelist_invalidate_formats(owl_global_get_msglist(&g));
+                owl_function_calculate_topmsg(OWL_DIRECTION_DOWNWARDS);
+                owl_mainwin_redisplay(owl_global_get_mainwin(&g));
+        }
+
 MODULE = BarnOwl                PACKAGE = BarnOwl::Internal