/usr/share/openmsx/scripts/cycle_machine.tcl is in openmsx-data 0.8.2-2.1.
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 | namespace eval cycle_machine {
set help_cycle_machine \
{Cycle through the currently running machines.
'cycle_back_machine' does the same as 'cycle_machine', but it goes in the
opposite direction.
}
set_help_text cycle_machine $help_cycle_machine
set_help_text cycle_back_machine $help_cycle_machine
proc cycle_machine {{step 1}} {
set cycle_list [utils::get_ordered_machine_list]
if {[llength $cycle_list] > 0} {
set cur [lsearch -exact $cycle_list [activate_machine]]
set new [expr {($cur + $step) % [llength $cycle_list]}]
activate_machine [lindex $cycle_list $new]
}
}
proc cycle_back_machine {} {
cycle_machine -1
}
# keybindings
bind_default CTRL+PAGEUP cycle_machine
bind_default CTRL+PAGEDOWN cycle_back_machine
namespace export cycle_machine
namespace export cycle_back_machine
} ;# namespace cycle_machine
namespace import cycle_machine::*
|