You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
71 lines
1.7 KiB
Plaintext
71 lines
1.7 KiB
Plaintext
15 years ago
|
# Memory display preferences window class definition for GDBtk.
|
||
|
|
# Copyright (C) 1998, 1999 Cygnus Solutions
|
||
|
|
#
|
||
|
|
# 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.
|
||
|
|
|
||
|
|
|
||
|
|
itcl::class MemPref {
|
||
|
|
inherit ModalDialog ManagedWin
|
||
|
|
|
||
|
|
public {
|
||
|
|
variable win
|
||
|
|
variable size
|
||
|
|
variable format
|
||
|
|
variable numbytes
|
||
|
|
variable bpr
|
||
|
|
variable ascii
|
||
|
|
variable ascii_char
|
||
|
|
variable color
|
||
|
|
|
||
|
|
method constructor {args}
|
||
|
|
method destructor {}
|
||
|
|
method busy {}
|
||
|
|
method idle {}
|
||
|
|
method cancel {}
|
||
|
|
method set_bytes_per_row {w value}
|
||
|
|
method check_numbytes {var index mode}
|
||
|
|
method toggle_size_control {}
|
||
|
|
method apply {}
|
||
|
|
method enable_format {}
|
||
|
|
method disable_format {}
|
||
|
|
method pick {lab}
|
||
|
|
method reconfig {}
|
||
|
|
}
|
||
|
|
|
||
|
|
private {
|
||
|
|
# The next seven variables are all used in the radio-buttons
|
||
|
|
# and checkbuttons of the display.
|
||
|
|
variable gsize
|
||
|
|
variable gformat
|
||
|
|
variable gnumbytes
|
||
|
|
variable gbpr
|
||
|
|
variable gbprlist
|
||
|
|
variable gascii
|
||
|
|
variable gascii_char
|
||
|
|
variable gvar
|
||
|
|
|
||
|
|
variable Widgets
|
||
|
|
variable WidgetState
|
||
|
|
variable format_disabled 0
|
||
|
|
variable old_numbytes
|
||
|
|
variable normal_background
|
||
|
|
method build_win {}
|
||
|
|
method ok {}
|
||
|
|
}
|
||
|
|
|
||
|
|
protected {
|
||
|
|
common float_size ""
|
||
|
|
common double_size ""
|
||
|
|
common default_numbytes 128
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|