TCL Pascal LIVES!!!
Kevin Killian, TCL Programmer

Warnings, Caveats, Limitations - READ THIS FIRST!

No guarantees, warrantees, promises, or encouragements of any kind are given for these code snippets. They have not been thoroughly tested. They may not have been tested at all. The programmer(s) may have been asleep, hallucinating, or acting on a death wish at the time they were written. They may not be right for you. They may not work correctly. In fact, it's not clear if some of them do anything at all. Or they may do something worse. Maybe it would be better if you just logged off now and went to read a good book instead. Or visited your family. Or flossed. Or sorted out your sock drawer.

These bits and pieces are submitted by fellow TCL Pascal programmers No individual or company on earth takes any responsibilities for any of this.

Now that we all feel safer, let's see what we've got here ...

Bug Fixes
Small Tweaks
New Features
Open Issues
Send your fixes!!!

Notes:

In this document, the expression "{---}" is used to take the place of a section of code that is untouched by the change being discussed.
It is considered bad bongos to modify the original classes in a class library. Instead, the proper and gentlemanly coding style is to make changes only to your own subclasses. All of this is so that the changes are not lost when a new revision of the class library is released. Well, guess what? There ain't gonna be any new releases to TCL Pascal. Thus, some of these examples just modify the original TCL classes for simplicity's sake. You are welcome to do the proper thing, instead, if you prefer.
Help make this page better -- send in your TCL Pascal fixes!

BUG FIXES

Symantec support confirms that the parameter list for GenericMDEF is in error, the menuRect should be a VAR. This must be changed in TWO places.

{FW_Tearoffs.p} 
TYPE 
{--- ORIG ---} 
	CMenuDefProc = OBJECT(CObject) 
{---} 

PROCEDURE PlacePopup (macMenu: MenuHandle; 
				menuRect: Rect; 
				hitPt: Point; 
				VAR whichItem: integer); 

{---} 
END; 

{--- NEW ---} 
CMenuDefProc = OBJECT(CObject) 
{---} 

PROCEDURE PlacePopup (macMenu: MenuHandle; 
				VAR menuRect: Rect; 
				hitPt: Point; 
				VAR whichItem: integer); 

{---} 
END; 

{--- ORIG ---} 
PROCEDURE GenericMDEF (theMessage: integer; 
					macMenu: MenuHandle; 
					menuRect: Rect; 
					hitPt: Point; 
					VAR whichItem: integer); 
	BEGIN 
	END; 

{--- NEW ---} 
PROCEDURE GenericMDEF (theMessage: integer; 
					macMenu: MenuHandle; 
					VAR menuRect: Rect; 
					hitPt: Point; 
					VAR whichItem: integer); 
BEGIN 
END; 

{CMenuDefProc.p} 
{--- ORIG ---} 
PROCEDURE CMenuDefProc.PlacePopup (macMenu: MenuHandle; menuRect: 
						Rect; hitPt: Point; 
						VAR whichItem: integer); 
BEGIN 
END; 

{--- NEW ---} 
PROCEDURE CMenuDefProc.PlacePopup (macMenu: MenuHandle; 
						VAR menuRect: Rect; 
						hitPt: Point; 
						VAR whichItem: integer); 
BEGIN 
END;

In CResFile.p, we should only attempt to UseResFile if the res file is open. Without this fix, the rfRefNum=0 and we wind up referring to the System file!

PROCEDURE CResFile.MakeCurrent; 

BEGIN 
IF rfRefNum 0 THEN {this IF test added, KCK 1/8/96} 
	UseResFile(rfRefNum); 
END;