xyzzy.src : support getting filer's window handle

southly · May 2, 2012 · 7914e11 · 7914e11
1 parent ce42694
commit 7914e11
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/src/Window.cc b/src/Window.cc
@@ -2,6 +2,7 @@
 #include "conf.h"
 #include "ipc.h"
 #include "wheel.h"
+#include "filer.h"
 
 #define RULER_HEIGHT 13
 #define FRAME_WIDTH 2
@@ -1925,6 +1926,8 @@ Fget_window_handle (lisp window)
 {
   if (!window || window == Qnil)
     return make_fixnum (long (app.toplev));
+  if (window == Kfiler)
+    return make_fixnum (long (Filer::current_filer ()->id_hwnd));
   return make_fixnum (long (Window::coerce_to_window (window)->w_hwnd));
 }
 

diff --git a/src/gen-syms.cc b/src/gen-syms.cc
@@ -1379,6 +1379,7 @@ static symbols kwd[] =
   DEFKWD2 (osfjvc),
   DEFKWD2 (vender),
   DEFKWD2 (invalidate),
+  DEFKWD2 (filer),
 };
 
 static symbols unint[] =