gdb/gdbtk/library/console.ith

   1 # Console window class definition for GDBtk.
   2 # Copyright 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
   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 itcl::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 {tag ""}}
  30     method invoke {{controld 0}}
  31     method _insertion {args}
  32     method activate {{prompt {}}}
  33     method test {args}
  34     method gets {}
  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     variable _pendingHistElement -1
  54     variable _input_mode 0
  55     variable _input_result ""
  56     variable _input_error 0
  57
  58     method _build_win {}
  59     method _cancel {}
  60     method _complete {}
  61     method _delete {{left 0}}
  62     method _find_completion {cmd completions}
  63     method _find_lcp {slist}
  64     method _first {}
  65     method _last {}
  66     method _next {}
  67     method _operate_and_get_next {}
  68     method _paste {{check_primary 1}}
  69     method _previous {}
  70     method _reset_tab {}
  71     method _search_history {}
  72     method _rsearch_history {}
  73     method _setprompt {{prompt {}}}
  74     method _set_wrap {wrap}
  75     method _update_option {name value}
  76   }
  77 }