summaryrefslogtreecommitdiff
path: root/gdb/gdbtk/library/kod.ith
blob: 8827deb5f0c02ae4a7fbddc4c67c0ce57cba8b07 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
# Kernel Object Display Window definition for Insight.
# Copyright (C) 1999, 2001 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# the Free Software Foundation; either version 2 of the License, or (at
# your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

class KodWin {
  inherit EmbeddedWin GDBWin

  private {
    variable bf
    variable lf
    variable titl
    variable BTop
    variable BUp
    variable BClear
    variable BDisplay
    variable lb
    variable t1
    variable t2
    variable pl1
    variable pl2
    variable pane1command ""
    variable pane2command ""
    variable BPane1
    variable BPane2
    variable level 0
    common LevelCmd
    variable BState
    variable Running 0
    method build_win {}
    method display {}
    method display_list {}
    method display_object {{cmd ""} {obj ""}}
    method clear {}
    method top {}
    method up {}
    method cursor {glyph}
    method _disable_buttons {}
    method _restore_buttons {}
  }

  public {
    method constructor {args}
    method destructor {}
    method reconfig {}

    #
    # Gdb Events
    #
    method set_variable {event}
    method busy {event}
    method idle {event}
    method update {event}
  }
}