From 80d2dac4a8319f1972cf836d1cb76bdb264f88bf Mon Sep 17 00:00:00 2001
From: root <root>
Date: Sat, 14 Jan 2006 09:28:57 +0000
Subject: [PATCH] *** empty log message ***

---
 Changes                  |  5 ++++-
 src/perl/selection-popup |  6 ++++++
 src/rxvtperl.xs          | 14 ++++++++++++--
 3 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index ff335754..2b26ef4c 100644
--- a/Changes
+++ b/Changes
@@ -7,11 +7,14 @@ TODO: "slow" rendering mode for bidi and scripts
 TODO: read property sequence is broken with respect to utf-8 etc.
 TODO: http://www120.pair.com/mccarthy/nextstep/intro.htmld/Workspace.html is the correct nextstep look.
 TODO: clarify and get rid of SMOOTH_REFRESH etc.
-TODO: scroll lines into scrollback when tscroll==0, regardless of bscrol
 WISH: OnTheSpot editing, or maybe switch to miiiiiiif. or maybe use perl and an overlay...
 WISH: just for fun, do shade and tint with XRender.
 WISH: support tex fonts
 
+9.0
+TODO: scroll lines into scrollback when tscroll==0, regardless of bscrol
+	- selection popup now shows selection in dec/hex/oct.
+
 7.0  Fri Jan 13 14:02:18 CET 2006
 	- added sections for DISTRIBUTION MAINTAINERS and about
           SETUID/SETGID to the FAQ.
diff --git a/src/perl/selection-popup b/src/perl/selection-popup
index 11677b48..825dfaa9 100644
--- a/src/perl/selection-popup
+++ b/src/perl/selection-popup
@@ -72,6 +72,12 @@ sub on_button_press {
 
          /^(http|ftp|telnet|irc|news):\//
             and $add_button->("run $self->{browser}" => sub { urxvt::exec_async $self->{browser}, $_ });
+
+         if (/^\s*((?:0x)?\d+)\s*$/) {
+            $popup->add_title (sprintf "%20s", eval $1);
+            $popup->add_title (sprintf "%20s", sprintf "0x%x", eval $1);
+            $popup->add_title (sprintf "%20s", sprintf "0%o", eval $1);
+         }
       }
 
       $popup->show;
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index 838c1e77..bff6aee3 100644
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -52,7 +52,7 @@
 #undef ROW
 #define ROW(n) THIS->row_buf [LINENO (n)]
 
-#define ENABLE_PERL_FRILLS 0
+#define ENABLE_PERL_FRILLS 1
 
 /////////////////////////////////////////////////////////////////////////////
 
@@ -970,7 +970,17 @@ rxvt_term::XCreateSimpleWindow (U32 parent, int x, int y, unsigned int width, un
 void
 rxvt_term::XReparentWindow (U32 window, U32 parent, int x = 0, int y = 0)
 	CODE:
-        XReparentWindow (THIS->display->display, window, parent, x, y);
+        XReparentWindow (THIS->display->display, (Window)window, (Window)parent, x, y);
+
+void
+rxvt_term::XMapWindow (U32 window)
+	CODE:
+        XMapWindow (THIS->display->display, (Window)window);
+
+void
+rxvt_term::XUnmapWindow (U32 window)
+	CODE:
+        XUnmapWindow (THIS->display->display, (Window)window);
 
 #endif
 
-- 
2.34.1