gdb/gdbtk/library/console.ith

   1 # Console window class definition for GDBtk.
   2 # Copyright 1998, 1999 Cygnus Solutions
   3 #
   4 # This program is free software; you can redistribute it and/or modify it
   5 # under the terms of the GNU General Public License (GPL) as published by
   6 # the Free Software Foundation; either version 2 of the License, or (at
   7 # your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13
  14
  15 # ----------------------------------------------------------------------
  16 # Implements a console display widget using primitive widgets as the building
  17 # blocks.
  18 # ----------------------------------------------------------------------
  19
  20 class Console {
  21   inherit EmbeddedWin GDBEventHandler
  22
  23   public {
  24     #Approximate maximum number of lines allowed in widget
  25     variable throttle 2000
  26
  27     method constructor {args}
  28     method destructor {}
  29     method insert {line}
  30     method einsert {line tag}
  31     method invoke {}
  32     method _insertion {args}
  33     method get_text {}
  34     method activate {{prompt {}}}
  35
  36     #
  37     # GDB Events
  38     #
  39     method busy {event}
  40     method idle {event}
  41   }
  42
  43   private {
  44     variable _twin
  45     variable _invoking 0
  46     variable _needNL 1
  47     variable _history {}
  48     variable _histElement -1
  49     variable _partialCommand ""
  50     variable _saved_insertion ""
  51     variable _running 0
  52     variable _saw_tab 0
  53
  54     method _build_win {}
  55     method _complete {}
  56     method _delete {{left 0}}
  57     method _find_completion {cmd completions}
  58     method _find_lcp {slist}
  59     method _first {}
  60     method _last {}
  61     method _next {}
  62     method _paste {{check_primary 1}}
  63     method _previous {}
  64     method _reset_tab {}
  65     method _search_history {}
  66     method _rsearch_history {}
  67     method _setprompt {{prompt {}}}
  68     method _set_wrap {wrap}
  69     method _update_option {name value}
  70   }
  71 }