/usr/share/openmsx/scripts/_widgets.tcl is in openmsx-data 0.10.0-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | namespace eval debug_widgets {
#TODO: Help Texts
proc toggle_show_palette {} {
if {[osd exists palette_viewer]} {
osd destroy palette_viewer
return ""
}
osd create rectangle palette_viewer \
-x 4 -y 4 -w 56 -h 194 -rgba 0x00000080 \
-borderrgba 0xffffffff -bordersize 1
for {set i 0} {$i < 16} {incr i} {
osd create rectangle palette_viewer.$i \
-x 20 -y [expr {($i * 12) + 2}] \
-w 10 -h 10 \
-rgba 0xff0000ff \
-borderrgba 0xffffffff -bordersize 1
osd create text palette_viewer.$i.text \
-x -16 \
-rgba 0xffffffff \
-size 10 \
-text ""
}
update_palette
return ""
}
proc update_palette {} {
if {![osd exists palette_viewer]} return
for {set i 0} {$i < 16} {incr i} {
set color [getcolor $i]
set r [string range $color 0 0]
set g [string range $color 1 1]
set b [string range $color 2 2]
set rgbval [expr {($r << (5 + 16)) + ($g << (5 + 8)) + ($b << 5)}]
osd configure palette_viewer.$i -rgb $rgbval
osd configure palette_viewer.$i.text -text "[format %02d $i] $color"
}
after frame [namespace code update_palette]
}
proc toggle_vdp_reg_viewer {} {
if {[osd exists vdp_reg_viewer]} {
osd destroy vdp_reg_viewer
osd destroy vdp_statreg_viewer
return ""
}
set fontsize 9
# note: this method of VDP detection will fail on e.g. MSX1 machines with V9938
set vdpreg [expr {([debug read "slotted memory" 0x2d]) ? 47 : 8}]
set vdpsta [expr {([debug read "slotted memory" 0x2d]) ? 10 : 1}]
osd create rectangle vdp_reg_viewer \
-x 0 \
-y 0 \
-h 480 \
-w [expr {$fontsize * 8}] \
-rgba 0x00000080
osd create rectangle vdp_statreg_viewer \
-x [expr {($fontsize * 8) + 16}] \
-y 0 \
-h 480 \
-w [expr {$fontsize * 8}] \
-rgba 0x00000080
for {set i 0} {$i < $vdpreg} {incr i} {
osd create rectangle vdp_reg_viewer.indi$i \
-x 0 \
-y [expr {$i * $fontsize}] \
-w [expr {$fontsize * 8}] \
-h $fontsize \
-rgba 0xff0000ff \
-fadeTarget 0 \
-fadePeriod 1
osd create text vdp_reg_viewer.labl$i \
-x 0 \
-y [expr {$i * $fontsize}] \
-size $fontsize \
-text "R# [format %02d $i]:" \
-rgba 0xffffffff
osd create text vdp_reg_viewer.stat$i \
-x [expr {$fontsize * 4}] \
-y [expr {$i * $fontsize}] \
-size $fontsize \
-text "[format 0x%02X [debug read VDP\ regs $i]]" \
-rgba 0xffffffff
}
for {set i 0} {$i < $vdpsta} {incr i} {
osd create rectangle vdp_statreg_viewer.indi$i \
-x 0 \
-y [expr {$i * $fontsize}] \
-w [expr {$fontsize * 8}] \
-h $fontsize \
-rgba 0xff0000ff \
-fadeTarget 0 \
-fadePeriod 1
osd create text vdp_statreg_viewer.labl$i \
-x 0 \
-y [expr {$i * $fontsize}] \
-size $fontsize \
-text "S# [format %02d $i]:" \
-rgba 0xffffffff
osd create text vdp_statreg_viewer.stat$i \
-x [expr {$fontsize * 4}] \
-y [expr {$i * $fontsize}] \
-size $fontsize \
-text "[format 0x%02X [debug read VDP\ status\ regs $i]]" \
-rgba 0xffffffff
}
update_vdp_reg_viewer
return ""
}
proc update_vdp_reg_viewer {} {
if {![osd exists vdp_reg_viewer]} return
# note: this method of VDP detection will fail on e.g. MSX1 machines with V9938
set vdpreg [expr {([debug read "slotted memory" 0x2d]) ? 47 : 8}]
set vdpsta [expr {([debug read "slotted memory" 0x2d]) ? 10 : 1}]
for {set i 0} {$i < $vdpreg} {incr i} {
set vdp_stat "[format 0x%02X [debug read VDP\ regs $i]]"
if {$vdp_stat ne [osd info vdp_reg_viewer.stat$i -text]} {
osd configure vdp_reg_viewer.stat$i -text "$vdp_stat"
osd configure vdp_reg_viewer.indi$i -fadeCurrent 1
}
}
for {set i 0} {$i < $vdpsta} {incr i} {
set vdp_stat "[format 0x%02X [debug read VDP\ status\ regs $i]]"
if {$vdp_stat ne [osd info vdp_statreg_viewer.stat$i -text]} {
osd configure vdp_statreg_viewer.stat$i -text "$vdp_stat"
osd configure vdp_statreg_viewer.indi$i -fadeCurrent 1
}
}
after frame [namespace code update_vdp_reg_viewer]
}
namespace export toggle_show_palette
namespace export toggle_vdp_reg_viewer
} ;# namespace debug_widgets
namespace import debug_widgets::*
|