//////////////////////////////////////////////////////////////////////////////
//	Public Function:  of_SetResize
//	Arguments:		ab_switch   starts/stops the window resize service
//	Returns:			Integer 		 1  = success,   0  = no action necessary, - 1  error
//	Description:		Starts or stops the window resize service
//////////////////////////////////////////////////////////////////////////////
//	Rev. History:	Version
//						 5 . 0    Initial version
//						 8 . 0    Modified to initially set window dimensions based on the class definition
//////////////////////////////////////////////////////////////////////////////
//	Copyright ©  1996 - 2001  Sybase, Inc. and its subsidiaries.  All rights reserved.  Any distribution of the 
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////
integer	li_rc, li_v, li_vars
integer li_origwidth, li_origheight

// Check arguments
if IsNull (ab_switch) then
	return - 1 
end if

if ab_Switch then
	if IsNull(inv_resize) Or not IsValid (inv_resize) then
		inv_resize = create n_cst_resize
		
		/*  Get this window's class definition and extract the width and height  */
//		classdefinition lcd_class
//		lcd_class = this.ClassDefinition
//		
//		li_vars = UpperBound ( lcd_class.VariableList )
//		For li_v =  1  to li_vars
//			If lcd_class.VariableList[li_v].Name = "width" Then li_origwidth = Integer ( lcd_class.VariableList[li_v].InitialValue ) 
//			If lcd_class.VariableList[li_v].Name = "height" Then li_origheight = Integer ( lcd_class.VariableList[li_v].InitialValue ) 
//			If li_origwidth >  0  And li_origheight >  0  Then Exit
//		Next
//		inv_resize.of_SetOrigSize ( li_origwidth, li_origheight )
		inv_resize.of_SetOrigSize (this.WorkSpaceWidth(), this.WorkSpaceHeight())
		li_rc =  1 
	end if
else
	if IsValid (inv_resize) then
		destroy inv_resize
		li_rc =  1 
	end if
end If

return li_rc