proc ::main::display_html {page} { if {$::config(web_browser) == ""} { set tmp [tk_getOpenFile -filetypes {{{Program files} {*.EXE}}} -initialdir "/" -parent . -title {PgcEdit first time setup: Please select your web browser}] if {$tmp == ""} return set ::config(web_browser) $tmp } if {! [file exists $::config(web_browser)] && $::config(platform) != "mac"} { set tmp [tk_getOpenFile -filetypes {{{Program files} {*.EXE}}} -initialdir "/" -parent . -title {PgcEdit first time setup: Please select your web browser}] if {$tmp == ""} return set ::config(web_browser) $tmp } if {[catch {exec -- $::config(web_browser) $page &}]} { set ::config(web_browser) "" } }