Tk Source Code

Check-in [43f384df]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix comment
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | mac_services
Files: files | file ages | folders
SHA3-256: 43f384df5fc8166e6c316ca0da57e3ee8b6c6ec72333d5badf60b54cc87bd877
User & Date: kevin_walzer 2019-03-16 02:09:10.531
Context
2019-03-16
02:09
Fix comment check-in: 4f25cbe3 user: kevin_walzer tags: mac_services
02:09
Fix comment check-in: 43f384df user: kevin_walzer tags: mac_services
2019-03-09
03:16
Ensure ::tk::mac::GetAppPath is included check-in: 16bee760 user: kevin_walzer tags: mac_services
Changes
Unified Diff Ignore Whitespace Patch
Changes to macosx/tkMacOSXServices.c.
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
  [pool release];

  return TCL_OK;

}


//initalize the package in the tcl interpreter, create tcl commands
int Tk_MacOSXServices_Init (Tcl_Interp *interp) {

  /* Set up an autorelease pool. */
  NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];

  /* Initialize instance of TclServices to provide service functionality. */
  TkService *service = [[TkService alloc] init];







|







171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
  [pool release];

  return TCL_OK;

}


/*Initalize the package in the tcl interpreter, create tcl commands.*/
int Tk_MacOSXServices_Init (Tcl_Interp *interp) {

  /* Set up an autorelease pool. */
  NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];

  /* Initialize instance of TclServices to provide service functionality. */
  TkService *service = [[TkService alloc] init];