Implement commands to show the size and position of the editor frame.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index fb9b4ae8fb981dc6a69d3f21768edbf8e1e5de8e..c7d6a03cac6fd221204e62f857f30e9203e86753 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.201 1996/12/07 22:24:29 cph Exp $
+$Id: edwin.pkg,v 1.202 1996/12/10 22:49:58 cph Exp $
 
 Copyright (c) 1989-96 Massachusetts Institute of Technology
 
@@ -1041,6 +1041,8 @@ MIT in each case. |#
            edwin-command$set-internal-border-width
            edwin-command$set-mouse-color
            edwin-command$set-mouse-shape
+           edwin-command$show-frame-position
+           edwin-command$show-frame-size
            edwin-command$x-auto-raise-mode
            edwin-command$x-lower-screen
            edwin-command$x-mouse-ignore

diff --git a/v7/src/edwin/xcom.scm b/v7/src/edwin/xcom.scm
index 690f942bd2e9e5dee2cb3fd1a5ac0cfce9d0e047..3a03cfa04546cbba1a6e570cb98ace87cb03e19a 100644 (file)
--- a/v7/src/edwin/xcom.scm
+++ b/v7/src/edwin/xcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: xcom.scm,v 1.13 1996/04/23 23:07:18 cph Exp $
+;;;    $Id: xcom.scm,v 1.14 1996/12/10 22:49:52 cph Exp $
 ;;;
 ;;;    Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -46,6 +46,7 @@
   (x-window-clear 1)
   (x-window-lower 1)
   (x-window-raise 1)
+  (x-window-get-position 1)
   (x-window-set-background-color 2)
   (x-window-set-border-color 2)
   (x-window-set-border-width 2)
@@ -57,6 +58,8 @@
   (x-window-set-mouse-shape 2)
   (x-window-set-position 3)
   (x-window-set-size 3)
+  (x-window-x-size 1)
+  (x-window-y-size 1)
   (xterm-x-size 1)
   (xterm-y-size 1)
   (xterm-set-size 3))
@@ -109,18 +112,6 @@
            (editor-error "Unknown font name: " font))
        (xterm-set-size xterm x-size y-size)))))
 
-(define-command set-frame-size
-  "Set size of selected frame to WIDTH x HEIGHT."
-  "nFrame width (chars)\nnFrame height (chars)"
-  (lambda (width height)
-    (xterm-set-size (current-xterm) (max 2 width) (max 2 height))))
-
-(define-command set-frame-position
-  "Set position of selected frame to (X,Y)."
-  "nX position (pixels)\nnY position (pixels)"
-  (lambda (x y)
-    (x-window-set-position (current-xterm) x y)))
-
 (define-command set-border-width
   "Set border width of selected frame to WIDTH."
   "nSet border width"
@@ -134,6 +125,44 @@
   (lambda (width)
     (x-window-set-internal-border-width (current-xterm) (max 0 width))))
 \f
+(define-command show-frame-size
+  "Show size of editor frame."
+  ()
+  (lambda ()
+    (let ((screen (selected-screen)))
+      (message "Frame is "
+              (screen-x-size screen)
+              " chars wide and "
+              (screen-y-size screen)
+              " chars high ("
+              (x-window-x-size (screen-xterm screen))
+              "x"
+              (x-window-y-size (screen-xterm screen))
+              " pixels)"))))
+
+(define-command set-frame-size
+  "Set size of selected frame to WIDTH x HEIGHT."
+  "nFrame width (chars)\nnFrame height (chars)"
+  (lambda (width height)
+    (xterm-set-size (current-xterm) (max 2 width) (max 2 height))))
+
+(define-command show-frame-position
+  "Show position of editor frame.
+This is the position of the upper left-hand corner of the frame border
+surrounding the frame, relative to the upper left-hand corner of the
+desktop."
+  ()
+  (lambda ()
+    (let ((x.y (x-window-get-position (current-xterm))))
+      (message "Frame's upper left-hand corner is at ("
+              (car x.y) "," (cdr x.y) ")"))))
+
+(define-command set-frame-position
+  "Set position of selected frame to (X,Y)."
+  "nX position (pixels)\nnY position (pixels)"
+  (lambda (x y)
+    (x-window-set-position (current-xterm) x y)))
+\f
 (define-command set-frame-name
   "Set name of selected frame to NAME.
 Useful only if `frame-name-format' is false."