The screenshooter is a Tcl/Tk small utility allowing to make screenshots with a grid window covering a target spot of the screen.
This is a bit modified code made by Johann Oberdorfer:
A Screenshot Widget implemented with TclOO
Options
The result of the modification is screenshooter.tcl that:
- restores the opacity in Linux at start
- saves and restores options: -grid, -showgeometry, -topmost, -wait
- saves and restores the window's geometry and the directory to save
- sets a pause to wait before the screenshooting
- gets the focus at start, to enable Ctrl+s in Windows without clicking
- disables "Create Screenshot" menu item in Windows, as it's buggy
- makes png by default
- doesn't exit after canceling the Save dialog
- if topmost, stays on the screen after saving a screenshot, otherwises exits
- closes
wishon exiting, incl. with Alt+F4 and Escape keys - can be used as a widget from Tcl/Tk code
The options are saved to ~/.config/screenshooter.conf.
Usage
Runs with the command:
tclsh screenshooter.tcl
The Img and treectrl packages have to be installed to run it. In Debian Linux the packages are titled libtk-img and tktreectrl.
There are also executables:
The executables run as simply as:
screenshooter
screenshooter.exe
To change the screenshooter's position, just grab it with the mouse, then drag and drop it.
To change the screenshooter's size, grab its bottom or right side, then drag and drop it.
To make a screenshot:
in Windows: press Ctrl+s
in Linux: click it with the right button of mouse, then choose "Create Screenshot" from the popup menu
In the popup menu, change options of the screenshooter.
To make several screenshots at once, set "Keep on Top" option on.
To close the screenshooter:
in Windows: press Escape or Alt+F4 or choose "Exit" from the popup menu
in Linux: choose "Exit" from the popup menu
Widget
The screenshooter package can be used in Tcl/Tk code to make the screenshooter widget.
The appropriate code may look like this:
package require screenshooter
# ...
# call the widget
if {[info exists ::widshot]} {
$::widshot display
} else {
set ::widshot [screenshooter::screenshot .win.sshooter \
-background LightYellow -foreground Green]
}
where:
::widshot- variable for the widget's command$::widshot display- shows the existing screenshooter.win.sshooter- path to a toplevel window (to be created by screenshooter)
Links
Source (screenshooter.zip)
License
MIT.