#!/bin/sh
# line \
exec wish "$0" "$@"

if ![string compare $tcl_platform(platform) "unix"] {
	set rcdir "~/.zipper"
	set  installpath [exec where.tcl]
	exec "$installpath/ridx"
} else {
	set rcdir [lindex $argv 1]
	set  installpath [lindex $argv 1]
	exec tclsh "$installpath/ridx"
}

set auto_path "$auto_path $installpath"      
package require util 1.62
package require setup 1.62
create_fonts
array set mirccolors {
        0 #ffffff   8 #ffff00
        1 #000000   9 #8cff8c
        2 #0000ff   10 #00ffff
        3 #00ff00   11 #e0ffff
        4 #ff0000   12 #add8e6
        5 #a52a2a   13 #ffc0cb
        6 #a020f0   14 #bebebe
        7 #ffa500   15 #d3d3d3
}          


wm withdraw .
init_user_rc
init_setup_window
tkwait window .zippersetup
exit
