git.chise.org Git - chise/xemacs-chise.git.1/blob - src/frame-tty.c

   1 /* TTY frame functions.
   2    Copyright (C) 1995  Free Software Foundation, Inc.
   3    Copyright (C) 1995, 1996 Ben Wing.
   4    Copyright (C) 1997  Free Software Foundation, Inc.
   5
   6 This file is part of XEmacs.
   7
   8 XEmacs is free software; you can redistribute it and/or modify it
   9 under the terms of the GNU General Public License as published by the
  10 Free Software Foundation; either version 2, or (at your option) any
  11 later version.
  12
  13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16 for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with XEmacs; see the file COPYING.  If not, write to
  20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  21 Boston, MA 02111-1307, USA.  */
  22
  23 /* Synched up with: Not in FSF. */
  24
  25 /* Written by Ben Wing.
  26    Multi-frame support added by Hrvoje Niksic. */
  27
  28 #include <config.h>
  29 #include "lisp.h"
  30
  31 #include "console-tty.h"
  32 #include "frame.h"
  33
  34 #include "events.h"
  35
  36 \f
  37 /* Default properties to use when creating frames.  */
  38 Lisp_Object Vdefault_tty_frame_plist;
  39
  40 static void tty_raise_frame (struct frame *);
  41
  42 \f
  43 static void
  44 tty_init_frame_1 (struct frame *f, Lisp_Object props)
  45 {
  46   struct device *d = XDEVICE (FRAME_DEVICE (f));
  47   struct console *c = XCONSOLE (DEVICE_CONSOLE (d));
  48
  49   ++CONSOLE_TTY_DATA (c)->frame_count;
  50   f->order_count = CONSOLE_TTY_DATA (c)->frame_count;
  51   f->height = CONSOLE_TTY_DATA (c)->height;
  52   f->width = CONSOLE_TTY_DATA (c)->width;
  53 }
  54
  55 static void
  56 tty_init_frame_3 (struct frame *f)
  57 {
  58   tty_raise_frame (f);
  59 }
  60
  61 static void
  62 tty_select_frame_if_unhidden (Lisp_Object frame)
  63 {
  64   if (FRAME_REPAINT_P (XFRAME (frame)))
  65     select_frame_1 (frame);
  66 }
  67
  68 static void
  69 tty_schedule_frame_select (struct frame *f)
  70 {
  71   Lisp_Object frame;
  72
  73   XSETFRAME (frame, f);
  74   enqueue_magic_eval_event (tty_select_frame_if_unhidden, frame);
  75 }
  76
  77 static void
  78 tty_after_init_frame (struct frame *f, int first_on_device,
  79                       int first_on_console)
  80 {
  81   if (first_on_console)
  82     call1 (Qinit_post_tty_win, FRAME_CONSOLE (f));
  83 }
  84
  85 /* Change from withdrawn state to mapped state. */
  86 static void
  87 tty_make_frame_visible (struct frame *f)
  88 {
  89   if (!FRAME_VISIBLE_P(f))
  90     {
  91       f->visible = -1;
  92     }
  93 }
  94
  95 /* Change from mapped state to withdrawn state. */
  96 static void
  97 tty_make_frame_invisible (struct frame *f)
  98 {
  99   f->visible = 0;
 100 }
 101
 102 static void
 103 tty_make_frame_hidden (struct frame *f)
 104 {
 105   f->visible = -1;
 106 }
 107
 108 static void
 109 tty_make_frame_unhidden (struct frame *f)
 110 {
 111   if (!FRAME_REPAINT_P(f))
 112     {
 113       SET_FRAME_CLEAR(f);
 114       f->visible = 1;
 115     }
 116 }
 117
 118 static int
 119 tty_frame_visible_p (struct frame *f)
 120 {
 121   return FRAME_VISIBLE_P (f);
 122 }
 123
 124 static void
 125 tty_raise_frame_no_select (struct frame *f)
 126 {
 127   LIST_LOOP_2 (frame, DEVICE_FRAME_LIST (XDEVICE (FRAME_DEVICE (f))))
 128     {
 129       struct frame *o = XFRAME (frame);
 130       if (o != f && FRAME_REPAINT_P (o))
 131         {
 132            tty_make_frame_hidden (o);
 133            break;
 134         }
 135     }
 136   tty_make_frame_unhidden (f);
 137 }
 138
 139 static void
 140 tty_raise_frame (struct frame *f)
 141 {
 142   tty_raise_frame_no_select (f);
 143   tty_schedule_frame_select (f);
 144 }
 145
 146 static void
 147 tty_lower_frame (struct frame *f)
 148 {
 149   Lisp_Object frame_list = DEVICE_FRAME_LIST (XDEVICE (FRAME_DEVICE (f)));
 150   Lisp_Object tail, new;
 151
 152   if (!FRAME_REPAINT_P (f))
 153     return;
 154
 155   LIST_LOOP (tail, frame_list)
 156     {
 157       if (f == XFRAME (XCAR (tail)))
 158         break;
 159     }
 160
 161   /* To lower this frame, another frame has to be raised.  Return if
 162      there is no other frame. */
 163   if (NILP (tail) && EQ(frame_list, tail))
 164     return;
 165
 166   tty_make_frame_hidden (f);
 167   if (CONSP (XCDR (tail)))
 168     new = XCAR (XCDR (tail));
 169   else
 170     new = XCAR (frame_list);
 171   tty_make_frame_unhidden (XFRAME (new));
 172   tty_schedule_frame_select (XFRAME (new));
 173 }
 174
 175 static void
 176 tty_delete_frame (struct frame *f)
 177 {
 178   struct device *d = XDEVICE (FRAME_DEVICE (f));
 179
 180   if (!NILP (DEVICE_SELECTED_FRAME (d)))
 181     tty_raise_frame (XFRAME (DEVICE_SELECTED_FRAME (d)));
 182 }
 183 \f
 184 /************************************************************************/
 185 /*                            initialization                            */
 186 /************************************************************************/
 187
 188 void
 189 console_type_create_frame_tty (void)
 190 {
 191   CONSOLE_HAS_METHOD (tty, init_frame_1);
 192   CONSOLE_HAS_METHOD (tty, init_frame_3);
 193   CONSOLE_HAS_METHOD (tty, after_init_frame);
 194   CONSOLE_HAS_METHOD (tty, make_frame_visible);
 195   CONSOLE_HAS_METHOD (tty, make_frame_invisible);
 196   CONSOLE_HAS_METHOD (tty, frame_visible_p);
 197   CONSOLE_HAS_METHOD (tty, raise_frame);
 198   CONSOLE_HAS_METHOD (tty, lower_frame);
 199   CONSOLE_HAS_METHOD (tty, delete_frame);
 200 }
 201
 202 void
 203 vars_of_frame_tty (void)
 204 {
 205   DEFVAR_LISP ("default-tty-frame-plist", &Vdefault_tty_frame_plist /*
 206 Plist of default frame-creation properties for tty frames.
 207 These are in addition to and override what is specified in
 208 `default-frame-plist', but are overridden by the arguments to the
 209 particular call to `make-frame'.
 210 */ );
 211   Vdefault_tty_frame_plist = Qnil;
 212
 213   tty_console_methods->device_specific_frame_props =
 214     &Vdefault_tty_frame_plist;
 215
 216   /* Tty frames are now supported.  Advertise a feature to indicate this. */
 217   Fprovide (intern ("tty-frames"));
 218 }