ASPN ActiveState Programmer Network
ActiveState
/ Home / Perl / PHP / Python / Tcl / XSLT /
/ Safari / My ASPN /
Cookbooks | Documentation | Mailing Lists | Modules | News Feeds | Products | User Groups


Recent Messages
List Archives
About the List
List Leaders
Subscription Options

View Subscriptions
Help

View by Topic
ActiveState
.NET Framework
Open Source
Perl
PHP
Python
Tcl
Web Services
XML & XSLT

View by Category
Database
General
SOAP
System Administration
Tools
User Interfaces
Web Programming
XML Programming


MyASPN >> Mail Archive >> tdk
tdk
Re: [TDK] how to make exe file
by Ran Hamami other posts by this author
Dec 18 2006 12:30PM messages near this date
view in the new Beta List Site
Re: [TDK] tcl AIX5.3 64 bits problem | [TDK] Can I create a Linux wrapped application from SPARC TDK?
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
Thread:
Ran Hamami
Larry W. Virden
Jeff Hobbs
Larry W. Virden
Larry W. Virden
Larry W. Virden
Jeff Hobbs

Privacy Policy | Email Opt-out | Feedback | Syndication
© ActiveState Software Inc. All rights reserved