;;; This procedure is used to trigger custom code whenever something is selected in a layout editor window.
;;; Currently only one custom procedure is executed, but more may be added in the future.
procedure( SCLMouseSingleSelectPt()
	let( (	( selection nil ) )

		;;; Use the original selection function
		mouseSingleSelectPt()

		selection = geGetSelectedSet()

		;;; Put any custom code that should be triggered by selecting anything in a lay-out editor window below...
		SCLSetLSWEntryLayerByShape( selection )

	) ;;; end of let
) ;;; end of procedure SCLMouseSingleSelectPt

;;; Re-define the bindkey. I suggest to check the bindkey override
;;; from CIW -> Options -> Bindkeys; or with SKILL using:
;;; hiGetBindKey("Layout" "None<Btn1Down>")
hiSetBindKey("Layout" "None<Btn1Down>" "SCLMouseSingleSelectPt()")