Posted to tcl by hat0 at Mon Nov 23 18:46:52 GMT 2009view raw

  1. #
  2. # old - from the 8.4 era (note the [string equal]) - also haven't tested in any modern OS (vista, win7, etc)
  3. #
  4.  
  5.  
  6. if { [string equal $config(ostype) "mac"] } {
  7. exec open http://rs.tc/
  8. } elseif { [string equal $config(ostype) "win"] } {
  9. eval exec [auto_execok start] { http://rs.tc/ }
  10. } else {
  11. tk_messageBox -type ok -message "Don't know how to open a browser on your platform!"
  12. }
  13.