# mac.tcl --
# Macintosh platform specific settings
# Note that there is also some platform code in main.tcl to bootstap things

# Pick a large display size
option add *Text.height 		30 	startup
option add *Text.width 			80 	startup

proc Platform_HtmlFile {name} {
    return $name
}

# The name of the per-user preferences file
proc Platform_PrefFile {} {
    return ":Webedit Preferences"	;# relative name
}

# Wait for a dialog before doing a grab
proc Platform_WaitVisibility {win} {
    tkwait visibility $win
}


