compile insert OIWin_Comm_Init_Ex /* ** Copyright (C) 1992-2019 Revelation Software Inc. All Rights Reserved ** This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written permission from Revelation Technologies, Inc. Author : Captain C Date : March 2014 Purpose : Equate to insert the window common block by resolving the WinID - useful for things like docked panels as the ID is not prefixed with the the host window ID Comments ======== This insert still expects WinID to be set prior to this insert. This insert sets a variable called "frameID__" to the actual runtime frame found in case it is required. Amended Date Reason ======= ==== ====== Mr C 11 Feb 19 Updated for bLen() Mr C 26 Jan 16 Spelling! Mr C 16 Jan 16 Reset winID so RUN_EVENT sets @window correctly Mr C 13 Oct 15 Added ps_Get_Property declaration */ /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// declare function ps_Get_Property /////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////// // Resolve WinID to a WINDOW winID_ = winID frameID__ = winID if ( ps_Get_Property( winID, "TYPE" ) != "WINDOW" ) then loop until ( ps_Get_Property( winID, "TYPE" ) == "WINDOW" ) winID = ps_Get_Property( winID, "PARENT" ) while bLen( winID ) repeat if bLen( winID ) else winID = @window end frameID__ = winID end $insert oiWin_Comm_Init // Once we've resolved the window common area we need to reset winID so // RUN_EVENT can set the correct @Window variable transfer winID_ to winID /////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////