*** empty log message ***

diff --git a/Changes b/Changes
index ff3357546d2c8c1c7b633ae3e01985e347f75f13..2b26ef4c5a861e6ce6fc9b1ccc634eefa7a97833 100644 (file)
--- 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 11677b4883fd8281e3372371a1e9a514ab32a485..825dfaa9821521847ff1d69f96953dabedfa3811 100644 (file)
--- 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 838c1e77cc192a0a37246a087027c33590f10a34..bff6aee3904a6ad7377f8ff7116030ba3b727b93 100644 (file)
--- 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