/usr/share/openmsx/scripts/multi_screenshot.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 | namespace eval multi_screenshot {
set_help_text multi_screenshot \
{Take multiple screenshots
Usage:
multi_screenshot <num> [<base>]
}
proc multi_screenshot {num {base ""}} {
multi_screenshot_helper 1 $num $base
return ""
}
proc multi_screenshot_helper {acc max {base ""}} {
if {$acc <= $max} {
if {$base eq ""} {screenshot} {screenshot -prefix ${base}}
after frame "[namespace code multi_screenshot_helper] [expr {$acc + 1}] $max $base"
}
}
namespace export multi_screenshot
} ;# namespace multi_screenshot
namespace import multi_screenshot::*
|