OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [gdb/] [gdbtcl/] [memwin.ith] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
# Memory display window class definition for Insight.
2
# Copyright 1998, 1999, 2001 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
class MemWin {
16
  inherit EmbeddedWin GDBWin
17
 
18
  private {
19
    variable saved_addr ""
20
    variable current_addr ""
21
    variable dont_size 0
22
    variable mbar 1
23
    variable bg
24
    variable top
25
    variable nb 128
26
    variable prefs_win ""
27
    variable Running 0
28
    variable Numrows 0
29
    variable Numcols 0
30
    variable saved_value
31
    variable maxlen
32
    variable maxalen
33
    variable rheight ""
34
    variable new_entry 0
35
 
36
    method build_win {}
37
    method init_addr_exp {}
38
    method cursor {glyph}
39
  }
40
 
41
  public {
42
    variable addr_exp ""
43
    variable size 4
44
    variable format x
45
    variable bytes_per_row 16
46
    variable numbytes 0
47
    variable ascii 1
48
    variable ascii_char "."
49
    variable color green
50
  }
51
 
52
  protected common type
53
 
54
  public {
55
    method constructor {args}
56
    method destructor {}
57
    method paste {x y}
58
    method validate {val}
59
    method create_prefs {}
60
    method changed_cell {from to}
61
    method edit {cell}
62
    method toggle_enabled {}
63
    method newsize {height}
64
    method update_address_cb {}
65
    method update_address { {ae ""} }
66
    method BadExpr {errTxt}
67
    method incr_addr {num}
68
    method update_addr
69
    method hidemb {}
70
    method reconfig {}
71
    method do_popup {x y}
72
    method goto {addr}
73
    method memMoveCell {w x y}
74
    method error_dialog {msg {modality task} {type ok}}
75
 
76
    #
77
    # GDB Events
78
    #
79
    method busy {event}
80
    method idle {event}
81
    method update {event}
82
  }
83
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.