Advanced Search

# bigfileopen.tcl

if {[info proc tkgof] == ""} {rename tk_getOpenFile tkgof}
proc tk_getOpenFile {args} {
    # get width and height for max screen size:
    variable width  [lindex [wm maxsize .] 0]
    variable height [lindex [wm maxsize .] 1]
    # alternately, just set width and height explicitly:
    variable width  800
    variable height 600
    # location on screen:
    variable xoffset 0
    variable yoffset 0
    # padding to enlarge buttons:
    variable padx 10
    variable pady 20
    # set the window size and the button sizes
    after 0 {wm geometry .__tk_filedialog ${width}x${height}+${xoffset}+${yoffset};
             .__tk_filedialog.contents.f2.ok configure -padding [list $padx $pady $padx $pady];
             .__tk_filedialog.contents.f2.cancel configure -padding [list $padx $pady $padx $pady]}
    return [eval ::tkgof $args]
}