Tk Source Code

Check-in [43f384df]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Fix comment
Downloads: Tarball | ZIP archive | SQL 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
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
Hide Diffs Unified Diffs 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];