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 {}
  31     method _insertion {args}
  32     method activate {{prompt {}}}
  33     method test {args}
  34
  35     #
  36     # GDB Events
  37     #
  38     method busy {event}
  39     method idle {event}
  40   }
  41
  42   private {
  43     variable _twin
  44     variable _invoking 0
  45     variable _needNL 1
  46     variable _history {}
  47     variable _histElement -1
  48     variable _partialCommand ""
  49     variable _saved_insertion ""
  50     variable _running 0
  51     variable _saw_tab 0
  52     variable _pendingHistElement -1
  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 _operate_and_get_next {}
  63     method _paste {{check_primary 1}}
  64     method _previous {}
  65     method _reset_tab {}
  66     method _search_history {}
  67     method _rsearch_history {}
  68     method _setprompt {{prompt {}}}
  69     method _set_wrap {wrap}
  70     method _update_option {name value}
  71   }
  72 }