1	SUB SMG_GET_PASTING_INFO(LONG Pasteboard_Row, LONG Pasteboard_Column, &
		LONG Pasted_flag, LONG Occlusion_status, LONG Vir_Disp_Num)

	!---------------------------------------------------------------&
	!								&
	!		      SMG_GET_DISPLAY_ATTR			&
	!								&
	!		Creation Date:  14-Aug-1986			&
	!		Author:		Ken Messer			&
	! 		Purpose:        Obtain pasting information	&
	!				about a given virtual display.	&
	!								&
	!		Modification history				&
	!								&
	!	Date	Description of change(s)			&
	!								&
	!---------------------------------------------------------------&
	!								&
	! Copyright (c) 1986 -	Ken Messer, Allied Electronics, Inc.,	&
	!			401 E. 8th St., Ft. Worth, TX  76102	&
	!			  					&
	! This software may be copied and distributed freely to anyone	&
	! for non-commerical use provided that this copyright notice is &
	! included.							&
	!---------------------------------------------------------------&

	OPTION TYPE = INTEGER, SIZE = INTEGER LONG

	%include "SMG$LIBRARY:SMG.DFN"


	DECLARE LONG			Return_status,			&
					PB_ID

	EXTERNAL LONG CONSTANT		SS$_Normal,			&
					SMG$_Notpasted,			&
					SMG$_Illbatfnc

	EXTERNAL LONG FUNCTION		SMG$Get_Pasting_Info,		&
					SMG$Check_for_Occlusion

	EXTERNAL STRING FUNCTION	Get_Error_Message(LONG)

	!---------------------------------------------------------------&
	!								&
	!		M a i n   P r o g r a m   L o g i c		&
	!								&
	!---------------------------------------------------------------&

	! first, get the pasteboard row and column
	! also, determine if the pasted flag is set

	Return_status = SMG$Get_Pasting_Info(Display_ID(Vir_Disp_Num),	&
		PB_ID, Pasted_flag, Pasteboard_Row, Pasteboard_Column)

	SELECT Return_status
	   CASE SS$_Normal
		! all ok
	   CASE SMG$_Illbatfnc
		! results unpredictable - take what comes out
	END SELECT

	! next, find out if the display is occluded or not

	Return_status = SMG$Check_for_Occlusion(Display_ID(Vir_Disp_Num), &
		PB_ID, Occlusion_status)

	SELECT Return_status
	   CASE SS$_Normal
		! all ok
	   CASE SMG$_Notpasted
		Occlusion_status = 0
	END SELECT

 Done:

	SUBEXIT

	END SUB