#!/usr/bin/wish -f ## ## Tk SCRIPT NAME: find_and_imageViewer_FrontEnd.tk ## ##+####################################################################### ## PURPOSE: This Tk script provides a GUI for ## 1) finding a 'batch' of image files according to ## user-specified criteria that are prompted for via ## entry widgets and radiobutton widgets on the GUI, ## AND ## 2) starting up an image file viewer program --- like the ## ImageMagick 'display' program or the 'ffplay' program or ## the 'eog' (Eye of Gnome) program --- to view the 'batch' ## of image files that were found, via the 'find' command. ## ## Hence, the GUI is a 'front-end' for the 'find' command and ## an image viewing command. ## ## The GUI is intended to make the user aware of the main ## (most useful) options available without the user needing ## to reference the 'man find' command and 'man display' or ## 'man ffplay' or 'man eog' commands --- nor other ## 'find'/'display'/'ffplay'/'eog' documentation, for example, ## via web searches. ## ## The intent of this utility is to allow the user to ## easily specify files to be viewed --- via specifying: ## 1 - a directory-and-filename (the latter is typically a 'mask'), ## 2 - whether files in sub-directories should be mask-searched, ## 3 - whether the mask-search should be case-INsensitive, ## 4 - whether to use a file-size limitation, ## 5 - whether to use a file-age limitation, ## 6 - which of several viewer programs to use. ## ## NOTE that most image-viewers, like 'eog' and more complex ## image viewers, are oriented toward scanning through ALL ## image files in a SINGLE directory. ## ## This utility is oriented toward SELECTING image files (based ## on criteria such as a file-mask, file-size, and/or file-age) ## from an ENTIRE HIERARCHY OF SUB-DIRECTORIES --- as well as ## allowing mask-search in a SINGLE directory. ## ##+###################### ## NOTES ON OTHER VIEWERS: ## As an alternative to 'eog', it would be easy to use ## the 'Eye of MATE' ('eom') image viewer instead. 'eom' is the ## image viewer that the MATE desktop project forked from ## 'eog'. Reference: www.mate-desktop.org ## ## Circa 2010, some Argentinians decided to fork the ## Gnome 2.x desktop environment --- when the Gnome 3 ## project abandoned many of the features of Gnome 2 and its ## associated applications, like the 'Nautilus' file ## manager and the 'Eye of Gnome' image viewer. (The fork ## of the 'Nautilus' file manager is called 'Caja' --- Spanish ## for 'box' or 'gift'.) ## ## Of course, still other 'light-weight' image viewers could be ## used with very few changes to this system. The 'core' changes would ## be to the shell script --- 'findImages_andCountPrintOrView.sh' --- ## that this Tk script calls. That shell script currently uses ## 'display' or 'ffplay' or 'eog', along with the 'find' command ## --- and along with parameters supplied from this GUI. ## ##+################# ## THE GUI WIDGETS: ## The GUI offers a generous set of user specifications. ## The options available to the user are compactly indicated ## by the following 'sketch' of the GUI: ## ## ------------------------------------------------------------------ ## 'display'/'ffplay' Front End --- a Tk Image Viewer Utility ## [window title] ## ------------------------------------------------------------------ ## ## {Exit} {Help} {LaunchViewerJob} {CountFilenames} {ShowFilenames} ## ## Full Filename Mask (for image/s): ___________________ {Browse...} ## ## Viewer program : O ImageMagick 'display' O 'ffplay' O 'eog' ## ## Search Levels for Mask: O ONE O ALL subdirectories of selected dir ## ## Case Sense for Mask Search: O case-sensitive O case-INsensitive ## ## Files Size (KiloBytes): _____ O bigger-than O smaller-than ## ## Files Age (Days) : ______ O older-than O younger-than ## ## -------------------------------------------------------- ## ## Square brackets indicate a comment (not to be placed on the GUI). ## Braces indicate a Tk 'button' widget. ## Underscores indicate a Tk 'entry' widget. ## A colon indicates that the text before the colon is on a 'label' widget. ## Capital-O indicates a Tk 'radiobutton' widget. ## Capital-X indicates a Tk 'checkbutton' widget. ## ## NOTE that only 'Viewer Program' is a parameter involving the image viewer. ## The other parameters are for the 'find' command. ## ##+############## ## GUI components: ## ## From the GUI 'sketch' above, it is seen that the GUI consists of ## about ## ## - 5 button widgets ## - 6 label widgets ## - 3 entry widgets ## - 11 radiobutton widgets in 5 groups ## - 0 checkbutton widgets ## - 0 scale widgets ## - 0 listbox widgets ## ##+##################################################################### ## CALLED BY: This script could be put in a sub-directory of the ## user's home directory, such as $HOME/apps/tkBatchImgViewer. ## ## Then the user can use their desktop system (such as ## Gnome or KDE) to set up the script as an icon on the ## desktop. Then the user can click on the icon to ## startup the script. ##+######################################################################## ## STRUCTURE OF THIS CODE: ## ## 0) Set general window parms (win-name, win-position, win-color-scheme, ## fonts, widget-geom-parms, win-size-control, text-array-for-labels-etc). ## ## 1a) Define ALL frames (and sub-frames, if any). ## 1b) Pack the frames. ## ## 2) Define & pack all widgets in the frames, frame by frame. ## After all the widgets for a frame are defined, pack them in the frame. ## ## 3) Define keyboard and/or mouse/touchpad/touch-sensitive-screen 'event' ## BINDINGS, if needed. ## 4) Define PROCS, if needed. ## 5) Additional GUI INITIALIZATION (typically with one or more of ## the procs), if needed. ## ## In more detail: ## ## 1a) Define ALL frames -- and sub-frames: ## ## Top-level : ## 'fRbuttons' for Exit, Help, Launch, ... buttons ## 'fRfileMask' for a directory-and-filemask entry field ## 'fRdisplayPgm' for 2 or 3 radiobuttons, with a label ## 'fRlevels' for 2 radiobuttons, with a label ## 'fRsense' for 2 radiobuttons, with a label ## 'fRfileSize' for 1 entry field and 2 radiobuttons, with a label ## 'fRfileAge' for 1 entry field and 2 radiobuttons, with a label ## 'fRfiletype' for 1 entry field, with a label before and after ## ## 1b) Pack ALL frames, including sub-frames (if any). ## ## 2) Define & pack all widgets in the frames -- basically going through ## frames & their interiors in left-to-right, top-to-bottom order: ## ## 3) Define bindings: See BINDINGS section below. ## ## 4) Define procs: ## ## 'get_filemask' - called by the 'Browse...' button ## ## 'findImages_andCountPrintOrView' - called by the 'LaunchViewer' button, ## and by the 'CountFilenames' and the ## 'ShowFilenames' buttons. ## ## 'popup_msgVarWithScroll' - called by 'Help' button to show HELPtext var. ## Also used via the 'CountFilenames' ## and 'ShowFilenames' buttons. ## ## For other procs, see the PROCS section below. ## ## 5) Additional GUI initialization: See this section at the bottom ## of this script. ##+####################################################################### ## DEVELOPED WITH: Tcl-Tk 8.5 on Ubuntu 9.10 (2009-october, 'Karmic Koala') ## ## $ wish ## % puts "$tcl_version $tk_version" ## ## showed ## 8.5 8.5 ## but this script should work in most previous 8.x versions, and probably ## even in some 7.x versions (if font handling is made 'old-style'). ##+######################################################################## ## MAINTENANCE HISTORY: ## Started by: Blaise Montandon 2013dec08 Started development, on Ubuntu 9.10, ## based on the code of a Tk script ## of mine that contains most of the ## widgets needed. ## Updated by: Blaise Montandon 2013dec13 Added an 'entry' widget to allow ## for filtering on file-type via ## the 'file' command. ## Updated by: Blaise Montandon 2014jan07 Chgd filesize from MB to KB. ## Updated by: Blaise Montandon 2014feb27 Chgd name of this script from ## 'imageViewer_FrontEnd.tk' to ## 'find_and_imageViewer_FrontEnd.tk'. ## Chgd window title. ## Updated by: Blaise Montandon 2014apr25 1) Set the filename of a temporary file ## to be used to hold the names of ## image files found by the 'find' in ## variable 'outFILE'. ## 2) Added PREV variables to be used to ## indicate when the user has changed a ## 'find' criterion. ## 3) Added proc 'check_for_criterion_change' ## to determine if a criterion variable ## has been changed. ## 4) Changed the shell script ## 'findImages_andCountPrintOrView.sh' ## to 'findImages_forCriteria.sh' and ## changed the arguments passed to the ## shell script. ## 5) Changed the 'count', 'print', and ## 'view' sections of proc ## 'findImages_andCountPrintOrView' ## to use file '$outFILE' if no ## criterion was changed --- and to ## (re)load '$outFILE' if a criterion ## was changed. ## 6) Provided an 'xterm' window to the 'exec' ## statement for the 'findImages_forCriteria.sh' ## shell script, to allow for better visibility ## of how a lengthy 'find' is progressing. ##+####################################################################### ##+###################################################### ## Set WINDOW TITLE and POSITION. ##+###################################################### wm title . "'find'-and-imageViewer FrontEnd, to batch-select & show imgs" # wm title . "tkBatchImageViewer ... with a choice of viewers" wm iconname . "BatchImgView" # wm geometry . +15+30 # wm geometry . +250+285 wm geometry . -10-10 ##+###################################################### ## Set the COLOR SCHEME for the window and its widgets --- ## such as listbox and entry field background color. ##+###################################################### tk_setPalette "#e0e0e0" set entryBKGD "#ffffff" set textBKGD "#f0f0f0" set radbuttBKGD "#ffffff" # set chkbuttBKGD "#ffffff" # set scaleBKGD "#f0f0f0" # set listboxBKGD "#f0f0f0" ##+######################################################## ## DEFINE (temporary) FONT NAMES. ## ## We use a VARIABLE-WIDTH font for text on LABEL and ## BUTTON widgets. ## ## We use a FIXED-WIDTH font for LISTBOX lists, ## for text in ENTRY fields --- and often for text in ## TEXT widgets. ##+######################################################## font create fontTEMP_varwidth \ -family {comic sans ms} \ -size -14 \ -weight bold \ -slant roman font create fontTEMP_SMALL_varwidth \ -family {comic sans ms} \ -size -12 \ -weight bold \ -slant roman ## Some other possible (similar) variable width fonts: ## Arial ## Bitstream Vera Sans ## DejaVu Sans ## Droid Sans ## FreeSans ## Liberation Sans ## Nimbus Sans L ## Trebuchet MS ## Verdana font create fontTEMP_fixedwidth \ -family {liberation mono} \ -size -14 \ -weight bold \ -slant roman font create fontTEMP_SMALL_fixedwidth \ -family {liberation mono} \ -size -12 \ -weight bold \ -slant roman ## Some other possible fixed width fonts (esp. on Linux): ## Andale Mono ## Bitstream Vera Sans Mono ## Courier 10 Pitch ## DejaVu Sans Mono ## Droid Sans Mono ## FreeMono ## Nimbus Mono L ## TlwgMono ##+########################################################### ## SET GEOM VARS FOR THE VARIOUS WIDGET DEFINITIONS. ## (e.g. width and height of canvas, and padding for Buttons) ##+########################################################### ## LABEL widget geom settings: set PADXpx_label 0 set PADYpx_label 0 set BDwidthPx_label 2 ## BUTTON widget geom settings: set PADXpx_button 0 set PADYpx_button 0 set BDwidthPx_button 2 ## ENTRY widget geom settings: set BDwidthPx_entry 2 ## RADIOBUTTON widget geom settings: set PADXpx_radbutton 0 set PADYpx_radbutton 0 set BDwidthPx_radbutt 2 ## CHECKBUTTON widget geom settings: # set PADXpx_chkbutton 0 # set PADYpx_chkbutton 0 # set BDwidthPx_chkbutt 2 ## TEXT widget geom settings: set BDwidthPx_text 2 ## SCALE widget geom parameters: # set BDwidthPx_scale 2 # set scaleThicknessPx 10 ##+############################################################## ## Set a TEXT-ARRAY to hold text for buttons & labels on the GUI. ## NOTE: This can aid INTERNATIONALIZATION. This array can ## be set according to a nation/region parameter. ##+############################################################## ## if { "$VARlocale" == "en"} ## For '.fRbuttons' frame: set aRtext(buttonEXIT) "Exit" set aRtext(buttonHELP) "Help" set aRtext(buttonLAUNCH) "LaunchViewerJob" # set aRtext(buttonKILLJOB) "KillViewerJob" set aRtext(buttonCOUNT) "CountFilenames" set aRtext(buttonPRINT) "ShowFilenames" ## For '.fRfileMask' frame: set aRtext(labelFILEMASK) "Full Filename Mask (for image/s):" set aRtext(buttonBROWSE) "Browse..." ## For '.fRdisplayPgm' frame: set aRtext(labelDISPLAYPGM) "Viewer Program:" set aRtext(radbuttDPGM1) "1 - ImageMagick 'display'" set aRtext(radbuttDPGM2) "2 - 'ffplay'" set aRtext(radbuttDPGM3) "3 - 'eog'" ## For '.fRlevels' frame: set aRtext(labelLEVELS) "Search LEVELS for mask:" set aRtext(radbuttLEVELSone) "ONE" set aRtext(radbuttLEVELSall) "ALL subdirectories of selected directory" ## For '.fRsense' frame: set aRtext(labelCASESENSE) "Case Sense for Mask Search:" set aRtext(radbuttSENSE) "case-sensitive" set aRtext(radbuttNOSENSE) "case-INsensitive" ## For '.fRfileSize' frame: set aRtext(labelFILESIZE) "Files Size (KiloBytes):" set aRtext(radbuttBIGGER) "bigger-than" set aRtext(radbuttSMALLER) "smaller-than" ## For '.fRfileAge' frame: set aRtext(labelFILEAGE) "Files Age (Days):" set aRtext(radbuttOLDER) "older-than" set aRtext(radbuttYOUNGER) "younger-than" ## For '.fRfileType' frame: set aRtext(labelFILETYPE) "Files Type:" set aRtext(labelFILETYPE2) "Examples: JPEG or GIF or PNG or SVG or TIFF or BMP (Warning: SLOW)" ## END OF if { "$VARlocale" == "en"} ##+###################################################################### ## Set a MIN-SIZE of the window (roughly). ## ## For WIDTH, allow for the min-width of the '.fRbuttons' frame. ## ## For HEIGHT, allow for the stacked frames: ## 1 char high for the '.fRbuttons' frame ## 1 char high for the '.fRfileMask' frame ## 1 char high for the '.fRdisplayPgm' frame ## 1 char high for the '.fRlevels' frame ## 1 char high for the '.fRsense' frame ## 1 char high for the '.fRfileSize' frame ## 1 char high for the '.fRfileAge' frame ## 1 char high for the '.fRfileType' frame ## -------- ## 8 chars high for the 8 frames ##+##################################################################### ## FOR WIDTH: (allow for widgets in the '.fRbuttons' or '.fRfileMask' frame) set minWidthPx [font measure fontTEMP_varwidth \ " $aRtext(buttonEXIT) $aRtext(buttonHELP) $aRtext(buttonLAUNCH) \ $aRtext(buttonCOUNT) $aRtext(buttonPRINT) "] ## We add some pixels to account for right-left-size of ## window-manager decoration (~8 pixels) and some pixels for ## frame/widget borders (~5 widgets x 4 pixels/widget = 20 pixels). set minWinWidthPx [expr {28 + $minWidthPx}] ## For HEIGHT --- for ## 1 char high for the '.fRbuttons' frame ## 1 char high for the '.fRfileMask' frame ## 1 char high for the '.fRdisplayPgm' frame ## 1 char high for the '.fRlevels' frame ## 1 char high for the '.fRsense' frame ## 1 char high for the '.fRfileSize' frame ## 1 char high for the '.fRfileAge' frame ## 1 char high for the '.fRfileType' frame ## -------- ## 8 chars high for the 8 frames set charHeightPx [font metrics fontTEMP_varwidth -linespace] set minWinHeightPx [expr {8 * $charHeightPx}] ## Add about 20 pixels for top-and-bottom window decoration -- ## and some pixels for top-and-bottom of frame/widget borders ## (~8 widgets x 4 pixels/widget = 32 pixels). set minWinHeightPx [expr {52 + $minWinHeightPx}] ## FOR TESTING: # puts "minWinWidthPx = $minWinWidthPx" # puts "minWinHeightPx = $minWinHeightPx" wm minsize . $minWinWidthPx $minWinHeightPx ## We may allow the window to be resizable. We pack the canvases ## (and the frames that contain them) with '-fill both -expand 1' ## so that the canvases can be enlarged by enlarging the window. ## If you want to make the window un-resizable, ## you can use the following statement. # wm resizable . 0 0 ## We fix the y-size of the window, but allow the x-size to vary. wm resizable . 1 0 ##+#################################################################### ##+#################################################################### ## DEFINE *ALL* THE FRAMES: ## ## Top-level : ## 'fRbuttons' for Exit, Help, and Launch buttons ## 'fRfileMask' for a filename/mask entry field ## 'fRdisplayPgm' for 2 radiobuttons, with a label ## 'fRlevels' for 2 radiobuttons, with a label ## 'fRsense' for 2 radiobuttons, with a label ## 'fRfileSize' for 1 entry field and 2 radiobuttons, with a label ## 'fRfileAge' for 1 entry field and 2 radiobuttons, with a label ## 'fRfileType' for 1 entry field, with a label before and after ##+#################################################################### ##+#################################################################### ## FOR TESTING of expansion of frames (esp. during window expansion): # set feRELIEF_frame raised # set feBDwidth_frame 2 set feRELIEF_frame flat set feBDwidth_frame 0 frame .fRbuttons -relief $feRELIEF_frame -bd $feBDwidth_frame frame .fRfileMask -relief raised -bd 2 frame .fRdisplayPgm -relief raised -bd 2 frame .fRlevels -relief $feRELIEF_frame -bd $feBDwidth_frame # frame .fRlevels -relief raised -bd 2 frame .fRsense -relief $feRELIEF_frame -bd $feBDwidth_frame # frame .fRsense -relief raised -bd 2 frame .fRfileSize -relief raised -bd 2 frame .fRfileAge -relief raised -bd 2 frame .fRfileType -relief raised -bd 2 ##+######################################################## ## PACK *ALL* the FRAMES. ##+######################################################## pack .fRbuttons \ -side top \ -anchor nw \ -fill x \ -expand 0 pack .fRfileMask \ -side top \ -anchor nw \ -fill x \ -expand 0 pack .fRdisplayPgm \ -side top \ -anchor nw \ -fill x \ -expand 0 pack .fRlevels \ -side top \ -anchor nw \ -fill x \ -expand 0 pack .fRsense \ -side top \ -anchor nw \ -fill x \ -expand 0 pack .fRfileSize \ -side top \ -anchor nw \ -fill x \ -expand 0 pack .fRfileAge \ -side top \ -anchor nw \ -fill x \ -expand 0 pack .fRfileType \ -side top \ -anchor nw \ -fill x \ -expand 0 ##+################################################################ ##+################################################################ ## START DEFINING & PACKING WIDGETS WITHIN THEIR FRAMES. ##+################################################################ ##+################################################################ ##+######################################################## ## IN THE '.fRbuttons' frame -- DEFINE several buttons ## --- Exit, Help, Launch. ##+######################################################## button .fRbuttons.buttEXIT \ -text "$aRtext(buttonEXIT)" \ -font fontTEMP_varwidth \ -padx $PADXpx_button \ -pady $PADYpx_button \ -relief raised \ -bd $BDwidthPx_button \ -command {exit} button .fRbuttons.buttHELP \ -text "$aRtext(buttonHELP)" \ -font fontTEMP_varwidth \ -padx $PADXpx_button \ -pady $PADYpx_button \ -relief raised \ -bd $BDwidthPx_button \ -command {popup_msgVarWithScroll .topHelp "$HELPtext"} ## Set a variable to hold the process-ID of the viewer process. ## NOT NEEDED. See 'Kill' button attempt below. # set ViewerPID "" button .fRbuttons.buttLAUNCH \ -text "$aRtext(buttonLAUNCH)" \ -font fontTEMP_varwidth \ -padx $PADXpx_button \ -pady $PADYpx_button \ -relief raised \ -bd $BDwidthPx_button \ -command {findImages_andCountPrintOrView view} ##+######################################################## ## THE FOLLOWING ATTEMPT DID NOT WORK OUT. ## The intent was to use a 'Kill' button on the GUI ## to allow for killing the 'findImages_andCountPrintOrView.sh' script ## --- if it finds lots of files to view and the user wants out. ## ## It seems the process-ID of the script soon disappeared, ## leaving the 'find' process, which had a different ## process-ID. ## ## It turned out to be easier to add an 'xterm' window in ## the 'findImages_andCountPrintOrView.sh' script, to run the ## 'find' command that starts the image viewing sequence. ## Closing the 'xterm' window 'kills' the 'find' command. ##+########################################################## if {0} { ##+############################################################ ## We could try using various kill signals: ## -HUP/-SIGHUP/-1 (to kill all child processes too) ## AND/OR -KILL/-SIGKILL/-9 ## AND/OR -TERM/-SIGTERM/-15 ##+########################################################### ## References: 'man signal' and 'man kill' and 'kill -l' ## http://wiki.tcl.tk/735 - 'getPid' ##+########################################################### button .fRbuttons.buttKILLJOB \ -text "$aRtext(buttonKILLJOB)" \ -font fontTEMP_varwidth \ -padx $PADXpx_button \ -pady $PADYpx_button \ -relief raised \ -bd $BDwidthPx_button \ -command { global ViewerPID puts "Trying to kill ViewerPID: $ViewerPID" if {"$ViewerPID" != ""} { # exec kill -TERM $ViewerPID exec kill -15 $ViewerPID # exec kill -KILL $ViewerPID exec kill -9 $ViewerPID # set ViewerPID "" } # exit } } ## END OF 'if {0}' button .fRbuttons.buttCOUNT \ -text "$aRtext(buttonCOUNT)" \ -font fontTEMP_varwidth \ -padx $PADXpx_button \ -pady $PADYpx_button \ -relief raised \ -bd $BDwidthPx_button \ -command {findImages_andCountPrintOrView count} button .fRbuttons.buttPRINT \ -text "$aRtext(buttonPRINT)" \ -font fontTEMP_varwidth \ -padx $PADXpx_button \ -pady $PADYpx_button \ -relief raised \ -bd $BDwidthPx_button \ -command {findImages_andCountPrintOrView print} ##+######################################## ## Pack the widgets in the 'fRbuttons' frame ##+######################################## pack .fRbuttons.buttEXIT \ .fRbuttons.buttHELP \ .fRbuttons.buttLAUNCH \ -side left \ -anchor w \ -fill none \ -expand 0 # .fRbuttons.buttKILLJOB \ pack .fRbuttons.buttPRINT \ .fRbuttons.buttCOUNT \ -side right \ -anchor e \ -fill none \ -expand 0 ##+######################################################## ## IN THE '.fRfileMask' frame -- DEFINE 1 LABEL widget, ## 1 ENTRY widget, and 1 BUTTON. ##+######################################################## label .fRfileMask.labelFILEMASK \ -text "$aRtext(labelFILEMASK)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label entry .fRfileMask.entryFILEMASK \ -textvariable ENTRYfileMask \ -bg $entryBKGD \ -font fontTEMP_fixedwidth \ -relief sunken \ -bd $BDwidthPx_entry ## An initial value of the 'ENTRYfileMask' variable ## is set in the 'Additional GUI Initialization' section ## at the bottom of this script. button .fRfileMask.buttBROWSE \ -text "$aRtext(buttonBROWSE)" \ -font fontTEMP_varwidth \ -padx $PADXpx_button \ -pady $PADYpx_button \ -relief raised \ -bd $BDwidthPx_button \ -command {get_filemask} ## PACK the widgets in the 'fRfileMask' frame. pack .fRfileMask.labelFILEMASK \ -side left \ -anchor w \ -fill none \ -expand 0 pack .fRfileMask.entryFILEMASK \ -side left \ -anchor w \ -fill x \ -expand 1 pack .fRfileMask.buttBROWSE \ -side left \ -anchor w \ -fill none \ -expand 0 ##+######################################################## ## IN THE '.fRdisplayPgm' frame -- DEFINE ## 2 RADIOBUTTONS, preceded by a LABEL widget. ##+######################################################## label .fRdisplayPgm.labelDISPLAYPGM \ -text "$aRtext(labelDISPLAYPGM)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label ## DEFINE Radiobuttons for display sizes : radiobutton .fRdisplayPgm.radbuttDPGM1 \ -text "$aRtext(radbuttDPGM1)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARdisplaypgm \ -value "1" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt radiobutton .fRdisplayPgm.radbuttDPGM2 \ -text "$aRtext(radbuttDPGM2)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARdisplaypgm \ -value "2" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt radiobutton .fRdisplayPgm.radbuttDPGM3 \ -text "$aRtext(radbuttDPGM3)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARdisplaypgm \ -value "3" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt ## RADVARdisplaypgm is the var for these several radiobuttons. ## Set an initial value. set RADVARdisplaypgm "1" # set RADVARdisplaypgm "2" # set RADVARdisplaypgm "3" ## PACK the widgets in the 'fRdisplayPgm' frame. pack .fRdisplayPgm.labelDISPLAYPGM \ .fRdisplayPgm.radbuttDPGM1 \ .fRdisplayPgm.radbuttDPGM2 \ .fRdisplayPgm.radbuttDPGM3 \ -side left \ -anchor w \ -fill none \ -expand 0 ##+######################################################## ## IN THE '.fRlevels' frame -- DEFINE ## 2 RADIOBUTTONS, preceded by a LABEL widget. ##+######################################################## label .fRlevels.labelLEVELS \ -text "$aRtext(labelLEVELS)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label ## DEFINE Radiobuttons for Levels : radiobutton .fRlevels.radbuttLEVELSone \ -text "$aRtext(radbuttLEVELSone)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARlevels \ -value "one" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt radiobutton .fRlevels.radbuttLEVELSall \ -text "$aRtext(radbuttLEVELSall)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARlevels \ -value "all" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt ## RADVARlevels is the var for these 2 radiobuttons. ## Set an initial value. set RADVARlevels "one" # set RADVARlevels "all" ## PACK the widgets in the 'fRlevels' frame. pack .fRlevels.labelLEVELS \ .fRlevels.radbuttLEVELSone \ .fRlevels.radbuttLEVELSall \ -side left \ -anchor w \ -fill none \ -expand 0 ##+######################################################## ## IN THE 'fRsense' frame -- DEFINE ## 2 RADIOBUTTONS, preceded by a LABEL widget. ##+######################################################## label .fRsense.labelCASESENSE \ -text "$aRtext(labelCASESENSE)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label ## DEFINE Radiobuttons for CaseSensitivity : radiobutton .fRsense.radbuttSENSE \ -text "$aRtext(radbuttSENSE)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARcasesense \ -value "case-sensitive" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt radiobutton .fRsense.radbuttNOSENSE \ -text "$aRtext(radbuttNOSENSE)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARcasesense \ -value "case-INsensitive" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt ## RADVARcasesense is the var for these 2 radiobuttons. ## Set an initial value. set RADVARcasesense "case-sensitive" # set RADVARcasesense "case-INsensitive" ## PACK the widgets in the 'fRsense' frame: pack .fRsense.labelCASESENSE \ .fRsense.radbuttSENSE \ .fRsense.radbuttNOSENSE \ -side left \ -anchor w \ -fill none \ -expand 0 ##+############################################################ ## IN THE 'fRfileSize' frame -- DEFINE ## 1 ENTRY field and 2 RADIOBUTTONS, preceded by a LABEL widget. ##+############################################################ label .fRfileSize.labelFILESIZE \ -text "$aRtext(labelFILESIZE)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label entry .fRfileSize.entryFILESIZE \ -textvariable ENTRYfileSize \ -bg $entryBKGD \ -width 10 \ -font fontTEMP_fixedwidth \ -relief sunken \ -bd $BDwidthPx_entry ## DEFINE Radiobuttons for File Size : radiobutton .fRfileSize.radbuttBIGGER \ -text "$aRtext(radbuttBIGGER)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARfilesize \ -value "bigger" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt radiobutton .fRfileSize.radbuttSMALLER \ -text "$aRtext(radbuttSMALLER)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARfilesize \ -value "smaller" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt ## RADVARfilesize is the var for these 2 radiobuttons. ## Set an initial value. set RADVARfilesize "bigger" # set RADVARfilesize "smaller" ## PACK the widgets in the 'fRfileSize' frame: ## (in such a way that we can experiment with ## letting the entry field expand) pack .fRfileSize.labelFILESIZE \ -side left \ -anchor w \ -fill none \ -expand 0 pack .fRfileSize.entryFILESIZE \ -side left \ -anchor w \ -fill x \ -expand 1 pack .fRfileSize.radbuttBIGGER \ .fRfileSize.radbuttSMALLER \ -side left \ -anchor w \ -fill none \ -expand 0 ##+######################################################## ## IN THE 'fRfileAge' frame -- DEFINE ## 1 ENTRY field and 2 RADIOBUTTONS, preceded by a LABEL widget. ##+######################################################## label .fRfileAge.labelFILEAGE \ -text "$aRtext(labelFILEAGE)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label entry .fRfileAge.entryFILEAGE \ -textvariable ENTRYfileAge \ -bg $entryBKGD \ -width 10 \ -font fontTEMP_fixedwidth \ -relief sunken \ -bd $BDwidthPx_entry ## DEFINE Radiobuttons for File Age : radiobutton .fRfileAge.radbuttOLDER \ -text "$aRtext(radbuttOLDER)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARfileage \ -value "older" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt radiobutton .fRfileAge.radbuttYOUNGER \ -text "$aRtext(radbuttYOUNGER)" \ -font fontTEMP_varwidth \ -anchor w \ -variable RADVARfileage \ -value "younger" \ -selectcolor "$radbuttBKGD" \ -relief flat \ -bd $BDwidthPx_radbutt ## RADVARfileage is the var for these 2 radiobuttons. ## Set an initial value. set RADVARfileage "older" # set RADVARfileage "younger" ## PACK the widgets in the 'fRfileAge' frame: ## (in such a way that we can experiment with ## letting the entry field expand) pack .fRfileAge.labelFILEAGE \ -side left \ -anchor w \ -fill none \ -expand 0 pack .fRfileAge.entryFILEAGE \ -side left \ -anchor w \ -fill x \ -expand 1 pack .fRfileAge.radbuttOLDER \ .fRfileAge.radbuttYOUNGER \ -side left \ -anchor w \ -fill none \ -expand 0 ##+######################################################## ## IN THE 'fRfileType' frame -- DEFINE ## 1 ENTRY field, with 2 LABEL widgets, before and after. ##+######################################################## label .fRfileType.labelFILETYPE \ -text "$aRtext(labelFILETYPE)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label entry .fRfileType.entryFILETYPE \ -textvariable ENTRYfileType \ -bg $entryBKGD \ -width 10 \ -font fontTEMP_fixedwidth \ -relief sunken \ -bd $BDwidthPx_entry label .fRfileType.labelFILETYPE2 \ -text "$aRtext(labelFILETYPE2)" \ -font fontTEMP_varwidth \ -justify left \ -anchor w \ -relief flat \ -bd $BDwidthPx_label ## PACK the widgets in the 'fRfileType' frame: ## (in such a way that we can experiment with ## letting the entry field expand) pack .fRfileType.labelFILETYPE \ -side left \ -anchor w \ -fill none \ -expand 0 pack .fRfileType.entryFILETYPE \ -side left \ -anchor w \ -fill x \ -expand 1 pack .fRfileType.labelFILETYPE2 \ -side left \ -anchor w \ -fill none \ -expand 0 ##+##################################################################### ## END OF SECTION TO DEFINE AND PACK THE GUI WIDGETS. ##+##################################################################### ##+##################################################################### ##+##################################################################### ## DEFINE BINDINGS: button1-release bindings on some widgets ??? ## Return-key bindings on some entry widgets ??? ##+##################################################################### # bind .fR?????.???widget??? {??proc??} # bind .fR?????.???widget??? {??proc??} ## As the user types in the file-mask entry field (KeyRelease events), make sure ## the area near the insertion cursor or the character entry is showing. ## (Strange? 'KeyRelease' works, but 'KeyPress' leaves the insert cursor at the ## end of the field and ALWAYS slightly out of view to the right. It's as if ## a backspace occurs after the KeyPress.) bind .fRfileMask.entryFILEMASK \ {.fRfileMask.entryFILEMASK xview insert} ## FOR TESTING: # bind .fRfileMask.entryFILEMASK { # set entFILEMASKxview [.fRfileMask.entryFILEMASK xview] # puts ".fRfileMask.entryFILEMASK 'offset' and 'span': $entFILEMASKxview" # } ## An alternative? # bind .fRfileMask.entryFILEMASK \ # {.fRfileMask.entryFILEMASK xview moveto 1.0} ##+##################################################################### ##+##################################################################### ## DEFINE PROCEDURES: ## ## 'get_filemask' - called by the 'Browse...' button ## next to the filemask entry field ## ## 'get_chars_before_last' - called by proc 'get_filemask' ## ## 'check_for_criterion_change' - called by the proc ## 'findImages_andCountPrintOrView' ## ## 'findImages_andCountPrintOrView' - called by the 'LaunchViewer' button ## --- and the 'CountFilenames' and ## 'ShowFilenames' buttons ## ## 'popup_msgVarWithScroll' - called by 'Help' button to show HELPtext var. ## Also called via the 'CountFilenames' and ## 'ShowFilenames' buttons ##+##################################################################### ##+##################################################################### ##+##################################################################### ## Proc 'get_filemask' ## ## PURPOSE: To get the fully-qualified name of a file and put the ## name into global var 'ENTRYfileMask'. ## ## The user may change the filename (after the end of the ## directory name) to change it into a file-mask. ## ## CALLED BY: the '-command' option of the 'Browse ...' button. ##+##################################################################### proc get_filemask {} { global ENTRYfileMask env curDIR ## Get a file name (possibly to make a mask). set fName [tk_getOpenFile -parent . \ -title "Select Directory-and-Filename - the latter as basis for a mask" \ -initialdir "$curDIR" ] ## FOR TESTING: # puts "fName : $fName" ## Check if fName var is empty. if {"$fName" == ""} {return} ## Put $fName in ENTRYfileMask. Reset the curDIR var. if {[file exists "$fName"]} { set ENTRYfileMask "$fName" ## Put the end of the filename in view. .fRfileMask.entryFILEMASK xview end set curDIR [ get_chars_before_last / in "$ENTRYfileMask" ] } ## END OF if directory-exists } ## END OF proc 'get_filemask' ##+################################################################### ## PROC 'get_chars_before_last' ##+################################################################### ## INPUT: A character 'char' and a string 'strng'. ## Note: The "in" parameter is there only for clarity. ## ## OUTPUT: Returns all of the characters in the string "strng" that ## are BEFORE the last occurence of the characater "char". ## ## CALLED BY: proc 'get_img_filename' ##+################################################################## proc get_chars_before_last { char in strng } { set endIDX [ expr [string last $char $strng ] - 1 ] set output [ string range $strng 0 $endIDX ] ## FOR TESTING: # puts "From 'get_chars_before_last' proc:" # puts "STRING: $strng" # puts "CHAR: $char" # puts "RANGE up to LAST CHAR - start: 0 endIDX: $endIDX" return $output } ## END OF 'get_chars_before_last' PROCEDURE ##+############################################################# ## PROC 'check_for_criterion_change' ##+############################################################# ## PURPOSE: Returns 1 or 0 depending on whether the 'find' criteria ## have been changed or not. ## ## CALLED BY: proc 'findImages_andCountPrintOrView' ##+################################################################# proc check_for_criterion_change {} { ## INPUT globals: global ENTRYfileMask RADVARlevels RADVARcasesense \ RADVARfilesize ENTRYfileSize \ RADVARfileage ENTRYfileAge ENTRYfileType \ PREV_ENTRYfileMask PREV_RADVARlevels PREV_RADVARcasesense \ PREV_RADVARfilesize PREV_ENTRYfileSize \ PREV_RADVARfileage PREV_ENTRYfileAge PREV_ENTRYfileType ## FOR TESTING: if {0} { puts "Entering proc 'check_for_criterion_change'." puts "PREV_ENTRYfileMask: $PREV_ENTRYfileMask ENTRYfileMask: $ENTRYfileMask" puts "PREV_RADVARlevels: $PREV_RADVARlevels RADVARlevels: $RADVARlevels" puts "PREV_RADVARcasesense: $PREV_RADVARcasesense RADVARcasesense: $RADVARcasesense" puts "PREV_RADVARfilesize: $PREV_RADVARfilesize RADVARfilesize: $RADVARfilesize" puts "PREV_ENTRYfileSize: $PREV_ENTRYfileSize ENTRYfileSize: $ENTRYfileSize" puts "PREV_RADVARfileage: $PREV_RADVARfileage RADVARfileage: $RADVARfileage" puts "PREV_ENTRYfileAge: $PREV_ENTRYfileAge ENTRYfileAge: $ENTRYfileAge" puts "PREV_ENTRYfileType: $PREV_ENTRYfileType ENTRYfileType: $ENTRYfileType" } ## Return 1 if at least one of the criteria has been changed. ## Return 0 otherwise. if {"$PREV_ENTRYfileMask" != "$ENTRYfileMask"} { return 1 } elseif {"$PREV_RADVARlevels" != "$RADVARlevels"} { return 1 } elseif {"$PREV_RADVARcasesense" != "$RADVARcasesense"} { return 1 } elseif {"$PREV_RADVARfilesize" != "$RADVARfilesize"} { return 1 } elseif {"$PREV_ENTRYfileSize" != "$ENTRYfileSize"} { return 1 } elseif {"$PREV_RADVARfileage" != "$RADVARfileage"} { return 1 } elseif {"$PREV_ENTRYfileAge" != "$ENTRYfileAge"} { return 1 } elseif {"$PREV_ENTRYfileType" != "$ENTRYfileType"} { return 1 } else { return 0 } } ## END OF 'check_for_criterion_change' PROCEDURE ##+############################################################# ## PROC 'findImages_andCountPrintOrView' ##+############################################################# ## PURPOSE: The function of this proc depends on the value of ## the 'option' parm passed to this proc. Its values ## can be 'count' or 'print' or 'view'. ## ## For option='count', this proc provides a COUNT ## of the filenames found via a 'find' command and the ## user-specified find-criteria. The COUNT is provided ## in a popup GUI window. ## ## For option='print', this proc provides a LIST ## of the filenames found via a 'find' command and the ## user-specified find-criteria. The LIST is provided ## in a popup GUI window. ## ## For option='view', this proc starts DISPLAYING ## the filenames found via a 'find' command and the ## user-specified find-criteria. The DISPLAY is ## provided via the user-specified DISPLAY PROGRAM. ## ## CRITERIA CHECKING: ## ## For any of the 3 options passed to this proc, this proc ## does some checking of the GUI interface parameters, ## especially from the 'entry' widgets. ## ## THE METHOD: ## ## Since the user may be searching a deep directory hierarchy ## that may contain thousands of image files, for each of the ## 3 'count/print/view' options, this proc checks if the ## find-criteria have been changed by the user. ## ## IF THERE IS A CHANGE in the 'find'-criteria (or if no ## 'find' run has been performed yet), a shell script, ## 'findImages_forCriteria.sh', is run to put the ## image filenames in a file '$outFILE'. ## ## The user-specified 'find' criteria from the GUI are passed as ## arguments to the 'findImages_forCriteria.sh' shell script. ## ## ON THE OTHER HAND, ## if there is NO CHANGE in find-criteria, the 'count/print/view' ## processing is performed using the '$outFILE' that contains the ## (image) filenames returned by a previous 'find' run. ## ## PROGRESS AND KILL CAPABILITIES: ## ## Whenever the 'findImages_forCriteria.sh' shell script is run, ## the script is started in an 'xterm' --- to provide the user an ## easy way to kill the 'find' process if the user wants to ## interrupt a long running 'find' command. ## ## Also, the 'xterm' provides a way to indicate the progress of ## the 'find' command, by displaying filenames (or a shorter ## indicator) of the files being found. ## ## THE 'COUNT' OPTION: ## ## The 'count' option applies the 'wc -l' command to '$outFILE' ## in a Tcl 'exec' statement, to get the count for display ## in a popup Tk window. ## ## THE 'PRINT' OPTION: ## ## The 'print' option applies the 'cat' command to '$outFILE' ## in a Tcl 'exec' statement, to get the list of filenames ## for display in a popup Tk window. ## ## THE 'VIEW' OPTION: ## ## The 'view' option uses a 'forLoop_displayImgsInFile.sh' ## shell script, run in another 'xterm' window, to display ## the image files from '$outFILE' in a sequence. ## ## The 'xterm' provides the user a way to kill the 'display' ## process/sequence if the user wants to stop the display. ## ## THIS PROC IS CALLED BY: ## - a 'Count' button with option='count', OR ## - a 'List' button with option='print', OR ## - a 'Launch' button with option='view' ##+############################################################# proc findImages_andCountPrintOrView {option} { global DIRscripts ENTRYfileMask RADVARdisplaypgm \ RADVARlevels RADVARcasesense \ RADVARfilesize ENTRYfileSize \ RADVARfileage ENTRYfileAge \ ENTRYfileType outFILE FindPID ViewerPID \ PREV_ENTRYfileMask PREV_RADVARlevels PREV_RADVARcasesense \ PREV_RADVARfilesize PREV_ENTRYfileSize \ PREV_RADVARfileage PREV_ENTRYfileAge PREV_ENTRYfileType ####################################################### ## Remove trailing and leading blanks (if any) from the ## user entries in the 'entry' widgets. ####################################################### set ENTRYfileMask [string trim $ENTRYfileMask] set ENTRYfileSize [string trim $ENTRYfileSize] set ENTRYfileAge [string trim $ENTRYfileAge] set ENTRYfileType [string trim $ENTRYfileType] ################################################################# ## The variables RADVARdisplaypgm, RADVARlevels, RADVARcasesense, ## RADVARfilesize, and RADVARfileage are set as single ## words in this script and should not need any editing ## or checking (if bug-free). ################################################################# ########################################################## ## Check that ENTRYfileSize and ENTRYfileAge are integers, ## if they are not blank (null). ########################################################## if {"$ENTRYfileSize" != ""} { if {![string is integer -strict "$ENTRYfileSize"]} { popup_msgVarWithScroll .topErr \ "File Size: $ENTRYfileSize is NOT NUMERIC." return } } if {"$ENTRYfileAge" != ""} { if {![string is integer -strict "$ENTRYfileAge"]} { popup_msgVarWithScroll .topErr \ "File Age: $ENTRYfileAge is NOT NUMERIC." return } } ## FOR TESTING: (to dummy out the rest of this proc) # return ################################################################ ## Check if the criteria have changed. If so, run the ## shell script 'findImages_forCriteria.sh' to put found ## image filenames in file '$outFILE'. ################################################################ ## FOR TESTING: # set Change0or1 [check_for_criterion_change] # puts "Change0or1: $Change0or1" if {[check_for_criterion_change] == 1} { ## Reset the PREV variables since there has been at least one ## criterion change. set PREV_ENTRYfileMask "$ENTRYfileMask" set PREV_RADVARlevels "$RADVARlevels" set PREV_RADVARcasesense "$RADVARcasesense" set PREV_RADVARfilesize "$RADVARfilesize" set PREV_ENTRYfileSize "$ENTRYfileSize" set PREV_RADVARfileage "$RADVARfileage" set PREV_ENTRYfileAge "$ENTRYfileAge" set PREV_ENTRYfileType "$ENTRYfileType" ## Make sure we put the output in a new (empty) output file. catch {exec rm "$outFILE"} ############################################################# ## Run the 'find' script in an 'xterm' so that 'progress ## indicators' can be seen. Do not use '-hold' on 'xterm' ## so that the user does not have to close the 'xterm' window. ## Run the xterm-and-find-script in the foreground --- to ## prevent another 'find' from being started. ############################################################# set RETcode [catch {exec xterm -fg white -bg black \ -title "To 'kill' the FIND of image files, close this window." \ -geometry 90x5-30-30 -e \ $DIRscripts/findImages_forCriteria.sh "$ENTRYfileMask" \ "$RADVARlevels" "$RADVARcasesense" \ "$RADVARfilesize" "$ENTRYfileSize" \ "$RADVARfileage" "$ENTRYfileAge" \ "$ENTRYfileType" "$outFILE"} FindPID] ## FOR TESTING: # puts "FindPID: $FindPID" if { $RETcode != 0 } then { set ERRmsg \ "ERROR from attempt to run the 'findImages_forCriteria.sh' script. RETcode: $RETcode Message: $FindPID" popup_msgVarWithScroll .topErr "$ERRmsg" return } ## END OF if { $RETcode != 0 } } ############################################################### ## If option = 'count', use 'wc -l' on file "$outFILE" to ## return a count of the 'found' filenames, displayed ## in a small popup Tk window. Example output from 'wc -l': ## 22 /tmp/fred_tkBatchImgViewer_filenames.lis ############################################################### if {"$option" == "count"} { set wcOUT [exec wc -l "$outFILE"] set VARlist [ split "$wcOUT" " " ] set FILEScount [lindex $VARlist 0] set COUNTmsg "$FILEScount files 'found' with the current file mask: $ENTRYfileMask and other GUI settings." popup_msgVarWithScroll .topCount "$COUNTmsg" return } ## END OF if {"$option" == "count"} ############################################################### ## If option = 'print', use 'cat' on file "$outFILE" to ## return a list of the 'found' filenames, displayed ## in a popup Tk window. ############################################################### ## NOTE: We could change this function slightly to ## let the user put the filenames in a text file, ## say in a '/tmp' directory. This would be better ## in cases when the list is huge. ############################################################ if {"$option" == "print"} { set FILESlist [exec cat "$outFILE"] if {"$FILESlist" == "" } {set FILESlist "NONE"} set FILESmsg "Filenames that were 'found' with the current file mask: $ENTRYfileMask and other GUI settings: $FILESlist" popup_msgVarWithScroll .topList "$FILESmsg" return } ## END OF if {"$option" == "print"} ############################################################### ## If option = 'view', ## run the 'forLoop_displayImgsInFile.sh' shell script to run ## the specified image viewer program on the selected files. ############################################################### ## Attempts were made to use the 'ViewerPID' process ID ## which is set below, to allow the user to cancel the ## viewing sequence by means of a 'Kill' button on this GUI. ## THOSE ATTEMPTS DID NOT WORK. #################################################################### ## SOME SYNTAX NOTES on storing the process-ID from a Tcl 'exec': ## ## A couple of examples of using a PID (process ID) with Tcl: ## ## catch {eval exec $feREADER_text \"$FULFILname\" &} ViewerPID ## ## set RETcode [ catch {eval exec ${feDIR}/tkGUIs/shofil.tk \ ## "$FULFILname" &} ViewerPID ] ## ## An alternative from of trying 'exec': ## exec /bin/sh -c "$...." ####################################################################### ## From page 107 of 4th edition of 'Practical Programming in Tcl & Tk', ## on the Tcl 'exec' command: ## "A trailing & causes the program to run in the background. ## In this case, the process identifier is returned by the 'exec' ## command. Otherwise, the 'exec' command blocks during execution ## of the program, and the standard output of the program is the ## return code of 'exec'." ## Page 83 of the same book says: ## "'catch' returns zero if there was no error caught, ## or a nonzero error code if it did catch an error." ############################################################### if {"$option" == "view"} { ###################################################### ## Check that there is at least one file to display. ###################################################### set wcOUT [exec wc -l "$outFILE"] set VARlist [ split "$wcOUT" " " ] set FILEScount [lindex $VARlist 0] if {$FILEScount < 1 } { set ERRmsg "No image filenames were 'found' with the current file mask: $ENTRYfileMask and other GUI settings." popup_msgVarWithScroll .topList "$ERRmsg" return } ## END OF if {$FILEScount < 1 } ###################################################### ## Set the image viewer command, along with parameters ## to be used in the command. ###################################################### set IMGVIEWcmd "/usr/bin/display -geometry +15+30" if {"$RADVARdisplaypgm" == "2"} { ## Unfortunately, 'ffplay' does not support '-geometry'. set IMGVIEWcmd "/usr/bin/ffplay" } elseif {"$RADVARdisplaypgm" == "3"} { ## 'eog' automatically centers the display on the screen. ## 'eog' command-line Options: ## -f, --fullscreen Open in fullscreen mode ## -c, --disable-image-collection Disable image collection ## -s, --slide-show Open in slide show mode ## -n, --new-instance Start a new instance instead of ## reusing an existing one set IMGVIEWcmd "/usr/bin/eog -c -n -f" } ################################################################# ## Run the 'forLoop_displayImgsInFile.sh' shell script ## in an 'xterm' --- to allow for killing the play sequence and ## allow for messages indicating how many files have been played. ################################################################# set RETcode [catch {exec xterm -fg white -bg black \ -title "To 'kill' the DISPLAY SEQUENCE of image files, close this window." \ -geometry 100x5-30-30 -e \ $DIRscripts/forLoop_displayImgsInFile.sh \ "$IMGVIEWcmd" "$outFILE" &} ViewerPID] ## FOR TESTING: # puts "ViewerPID: $ViewerPID" if { $RETcode != 0 } then { set ERRmsg \ "ERROR from attempt to run the 'forLoop_displayImgsInFile.sh' script. RETcode: $RETcode Message: $ViewerPID" popup_msgVarWithScroll .topErr "$ERRmsg" return } ## END OF if { $RETcode != 0 } } ## END OF if {"$option" == "view"} } ## END OF proc 'findImages_andCountPrintOrView' ##+######################################################################## ## PROC 'popup_msgVarWithScroll' ##+######################################################################## ## PURPOSE: Report help or error conditions to the user. ## ## We do not use focus,grab,tkwait in this proc, ## because we use it to show help when the GUI is idle, ## and we may want the user to be able to keep the Help ## window open while doing some other things with the GUI ## such as putting a filename in the filename entry field ## or clicking on a radiobutton. ## ## For a similar proc with focus-grab-tkwait added, ## see the proc 'popup_msgVarWithScroll_wait' in a ## 3DterrainGeneratorExaminer Tk script. ## ## REFERENCE: page 602 of 'Practical Programming in Tcl and Tk', ## 4th edition, by Welch, Jones, Hobbs. ## ## ARGUMENTS: A toplevel frame name (such as .fRhelp or .fRerrmsg) ## and a variable holding text (many lines, if needed). ## ## CALLED BY: 'help' button ##+######################################################################## ## To have more control over the formatting of the message (esp. ## words per line), we use this 'toplevel-text' method, ## rather than the 'tk_dialog' method -- like on page 574 of the book ## by Hattie Schroeder & Mike Doyel,'Interactive Web Applications ## with Tcl/Tk', Appendix A "ED, the Tcl Code Editor". ##+######################################################################## proc popup_msgVarWithScroll { toplevName VARtext } { ## global fontTEMP_varwidth #; Not needed. 'wish' makes this global. ## global env # bell # bell ################################################# ## Set VARwidth & VARheight from $VARtext. ################################################# ## To get VARheight, ## split at '\n' (newlines) and count 'lines'. ################################################# set VARlist [ split $VARtext "\n" ] ## For testing: # puts "VARlist: $VARlist" set VARheight [ llength $VARlist ] ## For testing: # puts "VARheight: $VARheight" ################################################# ## To get VARwidth, ## loop through the 'lines' getting length ## of each; save max. ################################################# set VARwidth 0 ############################################# ## LOOK AT EACH LINE IN THE LIST. ############################################# foreach line $VARlist { ############################################# ## Get the length of the line. ############################################# set LINEwidth [ string length $line ] if { $LINEwidth > $VARwidth } { set VARwidth $LINEwidth } } ## END OF foreach line $VARlist ## For testing: # puts "VARwidth: $VARwidth" ############################################################### ## NOTE: VARwidth works for a fixed-width font used for the ## text widget ... BUT the programmer may need to be ## careful that the contents of VARtext are all ## countable characters by the 'string length' command. ############################################################### ##################################### ## SETUP 'TOP LEVEL' HELP WINDOW. ##################################### catch {destroy $toplevName} toplevel $toplevName # wm geometry $toplevName 600x400+100+50 wm geometry $toplevName +100+50 wm title $toplevName "Note" # wm title $toplevName "Note to $env(USER)" wm iconname $toplevName "Note" ##################################### ## In the frame '$toplevName' - ## DEFINE THE TEXT WIDGET and ## its two scrollbars --- and ## DEFINE an OK BUTTON widget. ##################################### if {$VARheight > 10 || $VARwidth > 100} { text $toplevName.text \ -wrap none \ -font fontTEMP_fixedwidth \ -width $VARwidth \ -height $VARheight \ -bg "#f0f0f0" \ -relief raised \ -bd 2 \ -yscrollcommand "$toplevName.scrolly set" \ -xscrollcommand "$toplevName.scrollx set" scrollbar $toplevName.scrolly \ -orient vertical \ -command "$toplevName.text yview" scrollbar $toplevName.scrollx \ -orient horizontal \ -command "$toplevName.text xview" } else { text $toplevName.text \ -wrap none \ -font fontTEMP_fixedwidth \ -width $VARwidth \ -height $VARheight \ -bg "#f0f0f0" \ -relief raised \ -bd 2 } button $toplevName.butt \ -text "OK" \ -font fontTEMP_varwidth \ -command "destroy $toplevName" ############################################### ## PACK *ALL* the widgets in frame '$toplevName'. ############################################### ## Pack the bottom button BEFORE the ## bottom x-scrollbar widget, pack $toplevName.butt \ -side bottom \ -anchor center \ -fill none \ -expand 0 if {$VARheight > 10 || $VARwidth > 100} { ## Pack the scrollbars BEFORE the text widget, ## so that the text does not monopolize the space. pack $toplevName.scrolly \ -side right \ -anchor center \ -fill y \ -expand 0 ## DO NOT USE '-expand 1' HERE on the Y-scrollbar. ## THAT ALLOWS Y-SCROLLBAR TO EXPAND AND PUTS ## BLANK SPACE BETWEEN Y-SCROLLBAR & THE TEXT AREA. pack $toplevName.scrollx \ -side bottom \ -anchor center \ -fill x \ -expand 0 ## DO NOT USE '-expand 1' HERE on the X-scrollbar. ## THAT KEEPS THE TEXT AREA FROM EXPANDING. pack $toplevName.text \ -side top \ -anchor center \ -fill both \ -expand 1 } else { pack $toplevName.text \ -side top \ -anchor center \ -fill both \ -expand 1 } ##################################### ## LOAD MSG INTO TEXT WIDGET. ##################################### ## $toplevName.text delete 1.0 end $toplevName.text insert end $VARtext $toplevName.text configure -state disabled } ## END OF PROC 'popup_msgVarWithScroll' ##+######################## ## END of PROC definitions. ##+######################## ## Set HELPtext var. ##+######################## set HELPtext \ " ** HELP for this 'Tk Batch-find-and-Image-View' Utility ** ** essentially a 'wrapper' for the 'find' command and an image viewer ** This utility provides a GUI for 1) finding a 'batch' of image files according to user-specified criteria that are prompted for via entry widgets and radiobutton widgets on the GUI, AND 2) starting up an image file viewer program --- like the ImageMagick 'display' program or the 'ffplay' program or the 'eog' (Eye of Gnome) program --- to view the 'batch' of image files that were found, via the 'find' command. Hence, the GUI is a 'front-end' for the 'find' command and an image viewing command. The GUI is intended to make the user aware of the main (most useful) options available without the user needing to reference the 'man find' command and 'man display' or 'man ffplay' or 'man eog' commands --- nor other 'find'/'display'/'ffplay'/'eog' documentation, for example, via web searches. A different image viewer program could be added by some simple changes in the Tk script 'find_and_imageViewer_FrontEnd.tk'. The intent of this utility is to allow the user to easily specify image files to be viewed --- via specifying: 1 - a directory-and-filename (the latter is typically a 'mask') 2 - whether files in sub-directories should be mask-searched 3 - whether the mask-search should be case-INsensitive 4 - an optional file-size limitation 5 - an optional file-age limitation 6 - an optional file-type string (typically JPEG or GIF or PNG). These are parameters for the 'find' operation. In addition, the GUI prompts for 7 - which of several image viewer programs to use. NOTE that most image-viewers are oriented toward scanning through ALL image files in a SINGLE directory. This utility is oriented toward SELECTING image files (based criteria such as a file-mask, file-size, file-age, and/or file-type) from an ENTIRE HIERARCHY OF SUB-DIRECTORIES --- as well as allowing mask-search in a SINGLE directory. And a single file can be viewed by selecting a single filename and NOT changing the name to a mask --- a mask like *.jpg OR *blue*.gif OR a*.PNG. ********************** NOTES ON OTHER VIEWERS: ********************** As an alternative to 'eog', it would be easy to use the 'Eye of MATE' (say 'eom') image viewer instead. 'eom' is the image viewer that the MATE desktop project forked from 'eog'. Reference: www.mate-desktop.org Circa 2010, some Argentinians decided to fork the Gnome 2.x desktop environment --- when the Gnome 3 project abandoned many of the features of Gnome 2 and its associated applications --- applications like the 'Nautilus' file manager and the 'Eye of Gnome' image viewer. (The fork of the 'Nautilus' file manager is called 'Caja' --- Spanish for 'box' or 'gift'.) Of course, still other 'light-weight' image viewers could be used with very few changes. The 'core' changes would be to the Tk script 'find_and_imageViewer_FrontEnd.tk'. The Tk script was initially programmed to use 'display' or 'ffplay' or 'eog' for the image viewer --- along with the 'find' command --- and along with parameters supplied from this GUI. Any of those three viewers could easily be replaced by another viewer program. *************** THE GUI WIDGETS: *************** The GUI offers a generous set of hints, help, and options for the user. In fact, the GUI consists of about - 8 label widgets - 5 button widgets - 4 entry widgets - 11 radiobutton widgets in 5 groups - 0 checkbutton widgets - 0 scale widgets - 0 listbox widgets The main controls are via the 'button', 'entry', and 'radiobutton' widgets. Hence there are about 20 control options available. ************* TYPICAL USAGE: ************* You can use the 'Browse...' button to retrieve a full filename to the file/mask name entry field. This allows one to establish a 'base' directory for the 'find' command. And the user can change the filename after the directory name, to a mask. Examples: Reunion*.JPG OR *.gif OR *OLD*.png Before clicking on the 'LaunchViewerJob' button, you can also change radiobutton settings as needed --- and enter an integer in the FileSize and/or FileAge entry fields, if you want to use size or age to reduce the filenames found via the specified mask. ****************************** FILE-TYPE Field Considerations: ****************************** If you want to select files via the FileType entry field (rather than a file-mask involving a file-suffix), you can make the file mask something like '*' or '*OLD*' (no file suffix) and put a string in the file-type field --- typically JPEG or GIF or PNG. When you put an entry in the 'FileType' field, the 'file' command is executed on every file scanned, throughout the directory structure. The 'file' command returns text strings like the following (on image files): Typical Suffix 'file' output ------- ----------------------------------- .gif GIF image data, version 89a, 256 x 352 .jpg JPEG image data, JFIF standard 1.01 .png PNG image, 1024 x 768, 8-bit/color RGB, non-interlaced .svg SVG Scalable Vector Graphics image .tif TIFF image data, little-endian .xpm X pixmap image text .ico MS Windows icon resource - 1 icon .pgm Netpbm PGM \"rawbits\" image data .ppm Netpbm PPM \"rawbits\" image data .bmp PC bitmap, Windows 3.x format, 26 x 26 x 24 .xbm ASCII C program text The string that you entered for file-type is compared against the 'file' command output for each file, to see if 'your string' is in that output string. So you may enter JPEG or GIF or PNG, in order to view files of type JPEG or GIF or PNG, respectively. Note that you could use another string such as '89a' or '8-bit' or 'RGB' or 'non-interlaced', but that type of specific image file-type search is not very common. NOTE: The first time a query is done on a directory containing many-many files, a count/print/view operation may respond very SLOWLY --- when there is an entry in the FileType field and the file mask is '*'. This is because applying the 'file' command to every file in the directory hierarchy can slow down the search process considerably. *********************** INSTALLING THIS UTILITY: *********************** The set of scripts for this utility (a Tk script and 2 shell scripts that are called by the Tk script) could be put in a sub-directory of the user's home directory, such as \$HOME/apps/tkBatchImgViewer. Then the user can use their desktop system (such as Gnome or KDE) to set up the Tk script as an icon on the desktop. Then, whenever the user wants to search a directory hierarchy for image files, the user can click on the icon to startup the Tk GUI script. " ##+###################################################### ## ADDITIONAL GUI INITIALIZATION section. ##+###################################################### ##+############################################################# ## Initialize 'PREV' variables that will be used to determine ## when the user has changed a 'find' criterion. ##+############################################################# set PREV_ENTRYfileMask "" set PREV_RADVARlevels "" set PREV_RADVARcasesense "" set PREV_RADVARfilesize "" set PREV_ENTRYfileSize "" set PREV_RADVARfileage "" set PREV_ENTRYfileAge "" set PREV_ENTRYfileType "" ##+############################################################# ## Get the directory that this Tk script is in. That will be the ## directory that the 'external' utility shell script(s) should ## be in. This directory is used to call the shell script that ## is used for the 'view', 'count', and 'print' options. ##+############################################################# ## FOR TESTING: # puts "argv0: $argv0" # set DIRscripts "." # set DIRscripts "[pwd]" # set DIRscripts "$env(HOME)/apps/tkUtils" set DIRscripts "[file dirname $argv0]" ##+############################################################# ## Set the directory and filename for a temporary' file that ## will be used in the shell script(s) to hold the list of ## 'found' files. ##+############################################################# set tempDIR "/tmp" set outFILE "${tempDIR}/${env(USER)}_tkBatchImgViewer_filenames.lis" ##+############################################################# ## Set the initial directory and filename-mask for the ## filename-mask entry field. ##+############################################################# set curDIR "$env(HOME)" ## FOR TESTING: # set curDIR [pwd] set ENTRYfileMask "$curDIR/*.jpg" ## Make sure the end of the filename is in view. .fRfileMask.entryFILEMASK xview end