Return to utils.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

Annotation of capa/capa51/GUITools/utils.tcl, revision 1.1

1.1     ! albertel    1: #Utilities for Grader. Used for a fileselect dialogue 
        !             2: #stolen from TkNet.
        !             3: 
        !             4: ###############################################################
        !             5: # TkNet - Utilities Module
        !             6: # Charlie KEMPSON - charlie@siren.demon.co.uk
        !             7: # http://public.logica.com/~kempsonc/tknet.htm
        !             8: # Version 1.1
        !             9: ###############################################################
        !            10: 
        !            11: ###############################################################
        !            12: #
        !            13: #    Copyright (c) 1995-1996 Charlie Kempson
        !            14: #
        !            15: #    This program is free software; you can redistribute it 
        !            16: #    and/or modify it under the terms of the GNU General 
        !            17: #    Public License as published by the Free Software 
        !            18: #    Foundation (version 2 of the License).
        !            19: #
        !            20: #    This program is distributed in the hope that it will 
        !            21: #    be useful, but WITHOUT ANY WARRANTY; without even the 
        !            22: #    implied warranty of MERCHANTABILITY or FITNESS FOR A 
        !            23: #    PARTICULAR PURPOSE.  See the GNU General Public License 
        !            24: #    for more details.
        !            25: #
        !            26: #    For a copy of the GNU General Public License, write to the 
        !            27: #    Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
        !            28: #    MA 02139, USA.
        !            29: ###############################################################
        !            30: ###############################################################
        !            31: # Centre a window on the screen (or parent)
        !            32: proc Centre_Dialog {window {position ""} {parent ""}} {
        !            33: 
        !            34:    # Withdraw dialog and update all windows
        !            35:    wm withdraw $window
        !            36:    update idletasks
        !            37:    set win_width [winfo reqwidth $window]
        !            38:    set win_height [winfo reqheight $window]
        !            39: 
        !            40:    # Read the positioning argument (pointer, widget, default)
        !            41:    switch -glob -- $position {
        !            42:       p* {
        !            43:          # place at POINTER (centered is $a == center)
        !            44:          wm geometry $window +[expr \
        !            45:             [winfo pointerx $window]-$win_width \
        !            46:             /2]+[expr [winfo pointery $window]-\
        !            47:             $win_height/2]
        !            48:       }
        !            49:       w* {
        !            50:          # center about WIDGET $parent
        !            51:          wm geometry $window +[expr [winfo rootx $parent]+ \
        !            52:             ([winfo width $parent]-$win_width)/2]+[expr \
        !            53:             [winfo rooty $parent]+([winfo height \
        !            54:             $parent]-$win_height)/2]
        !            55:       }
        !            56:       default {
        !            57:          wm geometry $window +[expr ([winfo screenwidth \
        !            58:             $window]-$win_width) / 2]+[expr ([winfo screenheight \
        !            59:             $window]- $win_height) / 2]
        !            60:       }
        !            61:    }
        !            62: 
        !            63:    # Now show the window
        !            64:    wm deiconify $window
        !            65: }