i done small script and it try to make exe file and it does not work. After I warp the file with the gif file It create exe file I run this file and I get : Windows error in startup script can't find package require tile while executing "package require tile" { file c:/application/12.exe/lib/application/application/test/gui.tcl} invoked from within "source $startup" { file c:/application/12.exe/main.tcl" line 18} What I do wrong package require tile package require Iwidgets 4.0 package require tcom package require BWidget package require Tk variable array reg set ::list_reg_addres "" set ::list_reg_addres "" set ::onu1omci 0 set ::onu2omci 0 wm title . "BROADLIGHT E2E" wm geometry . 750x570 frame .mbar -borderwidth 30 -relief raised grid .mbar set widgets(mainMenu) [menubutton .mbar.main -text "Main" -menu .mbar.main.m -relief raised] grid .mbar.main -in .mbar -row 1 -column 0 menu .mbar.main.m .mbar.main.m add command -label "About..." -command {.about activate} .mbar.main.m add separator .mbar.main.m add command -label "Quit" -command tcl_exit ##========================================================= ## Create a tabnotebook iwidget ##========================================================= ## iwidgets::tabnotebook .tn -tabpos n -width 750 -height 570 -raiseselect true -bevelamount 2 -ta bborders true -angle 0 -gap 0 -font {{tahoma bold} 10} -padx 5 -pady 5 -margin 2 foreach t {main OLT ONU1 ONU2 } { set tb($t) [.tn add -label " [string totitle $t]" ] foreground white -font {Helvetica 16 bold} } grid .tn -in .mbar -row 2 -column 0 ############################################333 rename exit tcl_exit proc exit {{status 0}} { # do nothing } .tn select 0 # # add image to tab1 set broad [image create photo -file "chip1.GIF"] label $::tb(main).broad -image $broad -bg white -fg white pack $::tb(main).broad _______________________________________________ TDK mailing list TDK@[...].com http://listserv.ActiveState.com/mailman/listinfo/tdk