Posted to tcl by HalfMadDad at Mon Feb 03 17:17:56 GMT 2020view raw
- package require Tk
- button .b -text {Push Me} -command {tk_messageBox -message {hello, world}}
- pack .b
- C code:
- #include <tcl.h>
- int main( int argc, char * argv[] ) {
- int return_value ;
- Tcl_FindExecutable(NULL) ;
- //Tcl_FindExecutable(argv[0]) ;
- Tcl_Interp * interp ;
- interp = Tcl_CreateInterp() ;
- Tcl_Init(interp) ;
- return_value = Tcl_EvalFile( interp, "req_tk.tcl") ;
- if(return_value != TCL_OK) {
- // return Tcl_ERROR ;
- printf("errrror\n") ;
- }
- else
- {
- printf("all is good no error\n") ;
- ;
- }
- Tcl_Exit(0);
- return 0 ;
- }