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
  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 idle {}
  30     method busy {}
  31     method insert {line}
  32     method einsert {line}
  33     method invoke {}
  34     method _insertion {args}
  35     method get_text {}
  36     method activate {{prompt {}}}
  37   }
  38
  39   private {
  40     variable _twin
  41     variable _invoking 0
  42     variable _needNL 1
  43     variable _history {}
  44     variable _histElement -1
  45     variable _partialCommand ""
  46     variable _saved_insertion ""
  47     variable _running 0
  48     variable _saw_tab 0
  49
  50     method _build_win {}
  51     method _complete {}
  52     method _delete {{left 0}}
  53     method _find_completion {cmd completions}
  54     method _find_lcp {slist}
  55     method _first {}
  56     method _last {}
  57     method _next {}
  58     method _paste {{check_primary 1}}
  59     method _previous {}
  60     method _reset_tab {}
  61     method _search_history {}
  62     method _rsearch_history {}
  63     method _setprompt {{prompt {}}}
  64     method _set_wrap {wrap}
  65     method _update_option {name value}
  66   }
  67 }