160,161c160,161
< #   pragma message( "\n*** Using the 5.004 Core Perl.\n" )
< 
---
> #   pragma message( "\n*** Using a non-Object Core Perl.\n" )
>  
164c164,165
< #   define HV_SELF_FROM_WINDOW(x) (HV*)GetGetWindowLong((x), GWL_USERDATA)
---
> #   define HV_SELF_FROM_WINDOW(x) (HV*)GetWindowLong((x), GWL_USERDATA)
> 
505c506
<     if(obj == NULL) return FALSE;
---
>     if(parent == NULL) return FALSE;
1303a1305,1322
>  		    case BN_PUSHED:
>                         /*
>                          * (@)EVENT:Pushed()
> 			 * Sent when the user down clicks on the control.
>                          * (@)APPLIES_TO:Button, Checkbox, RadioButton
>                          */
>  			strcat((char *) Name, "_Pushed");
>  			PerlResult = DoEvent_Generic(Name);
>  			break;
>  		    case BN_UNPUSHED:
>                         /*
>                          * (@)EVENT:UnPushed()
> 			 * Sent when the user releases a down click on the control.
>                          * (@)APPLIES_TO:Button, Checkbox, RadioButton
>                          */
>  			strcat((char *) Name, "_UnPushed");
>  			PerlResult = DoEvent_Generic(Name);
>  			break; 
1627a1647
> 		     */
2163a2184
>     dTHR;
2834a2856
>     dTHR;
2930a2953
>     dTHR;
3014a3038
>     dTHR;
3720c3744
<     #ifdef WIN32__GUI__STRONG__DEBUG
---
> #ifdef WIN32__GUI__STRONG__DEBUG
3722c3746
<     #endif
---
> #endif
3740c3764
<     #ifdef WIN32__GUI__STRONG__DEBUG        
---
> #ifdef WIN32__GUI__STRONG__DEBUG        
3753c3777
<     #endif    
---
> #endif    
4573a4598,4599
>     HWND parent;
>     POINT pt;
4579a4606,4612
>     pt.x = myRect.left;
>     pt.y = myRect.top;
> 
>     parent = GetParent(handle);
>     if (parent)
> 	ScreenToClient(parent, &pt);
> 
4583c4616
<         XST_mIV(0, myRect.left);
---
>         XST_mIV(0, pt.x);
4587c4620
<                         (int) SvIV(ST(1)), (int) myRect.top,
---
>                         (int) SvIV(ST(1)), (int) pt.y,
4604a4638,4639
>     HWND parent;
>     POINT pt;
4609a4645,4652
> 
>     pt.x = myRect.left;
>     pt.y = myRect.top;
> 
>     parent = GetParent(handle);
>     if (parent)
> 	ScreenToClient(parent, &pt);
> 
4612c4655
<         XST_mIV(0, myRect.top);
---
>         XST_mIV(0, pt.y);
4616c4659
<                         (int) myRect.left, (int) SvIV(ST(1)),
---
>                         (int) pt.x, (int) SvIV(ST(1)),
4877a4921,4931
>     ###########################################################################
>     # (@)METHOD:GetDlgItem()
>     # Returns the handle of the control in the dialog box 
> HWND
> GetDlgItem(handle,identifier)
>     HWND handle
>     int identifier
> CODE:
>     RETVAL = GetDlgItem(handle, identifier);
> OUTPUT:
>     RETVAL
8724a8779,8781
>     # CHANGE (PFM): Now, if NODE is given, returns the *previously* first
>     # visible node. (Previous code returned the result of 
>     # SelectSetFirstVisible, which was not a valid HTREEITEM!)
8729a8787
>     RETVAL = TreeView_GetFirstVisible(handle);
8731,8733c8789
<         RETVAL = TreeView_SelectSetFirstVisible(handle, item);
<     else
<         RETVAL = TreeView_GetFirstVisible(handle);
---
>     	TreeView_SelectSetFirstVisible(handle, item);