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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [gdb/] [gdbtcl/] [srcwin.ith] - Blame information for rev 578

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
# Source window class definition for GDBtk.
2
# Copyright 1997, 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 source display widget using primitive widgets as the
17
# building blocks.
18
#
19
# The main display for SrcWin is a SrcTextWin widget.  This file
20
# should contain all the code for controlling the SrcTextWin.
21
# SrcTextWin should just display the requested file and lines, without
22
# having to be very intelligent.  If there are problems, error codes
23
# should be returned and SrcWin should figure out what to do.
24
# ----------------------------------------------------------------------
25
 
26
class SrcWin {
27
  inherit TopLevelWin GDBWin
28
 
29
  public {
30
    method constructor {args}
31
    method destructor {}
32
    method download_progress { section num tot {msg ""} }
33
    method edit {}
34
    method enable_ui { on }
35
    method fillNameCB {}
36
    method fillFuncCB {name}
37
    method goto_func {w {val ""}}
38
    method location {tag linespec}
39
    method mode {w new_mode {go 1}}
40
    method no_inferior {}
41
    method print {}
42
    method reconfig {}
43
    method reset {}
44
    method set_status { {msg ""} {tmp 0} }
45
    method set_execution_status { {line ""} {pc ""}}
46
    method stack {cmd}
47
    method test_get {var {private_func 0}}
48
    method toggle_updates {value}
49
    method toolbar {state}
50
    method inferior {action}
51
    method clear_file {}
52
    method get_file {}
53
    method is_fixed {}
54
 
55
    proc choose_and_update {}
56
    proc choose_and_display {tag linespec}
57
    proc point_to_main {}
58
 
59
    #
60
    # GDB Events
61
    #
62
    method busy {event}
63
    method idle {event}
64
    method update {event}
65
  }
66
 
67
  private {
68
    method _build_win {}
69
    method _exit {}
70
    method _name {w {val ""}}
71
    method _search {direction}
72
    method _set_name { val {found 1} }
73
    method _set_state {varname}
74
    method _update_title {name}
75
    method _update {loc}
76
    method get_top {}
77
    method _set_tag_to_stack {}
78
    proc _choose_window {file}
79
    variable _statbar
80
    variable _status
81
    variable _toolbar
82
    variable top
83
    variable twin
84
    variable current
85
    variable need_files 0
86
    variable do_updates 1       ;# if the window does updates
87
    variable _mangled_func
88
    variable Tracing
89
    variable saved_msg ""       ;# static
90
 
91
    # statics used for downloads
92
    variable last_section ""
93
    variable last_section_start 0
94
    variable last_done 0
95
 
96
    # These keep track of the current PC window and the list of all
97
    # source windows.
98
    common window_list ""
99
    common pc_window ""
100
 
101
    # fenceposts
102
    variable Running 0
103
    variable NoRun 0
104
  }
105
}

powered by: WebSVN 2.1.0

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