Thursday, May 10, 2007

Cari nama parent window pada suatu object (Powerbuilder)

///////////////////////////////////////////////////////////////////////////////////////
//
// function : uf_parentwindow
// Purpose : return parent window
// Scope : Public
// Arguments : graphicobject - ao_grapobj
// Returns : window
//
// Modification Log
// ================
// NAME VER DATE DESCRIPTION
//
//------------------ ---------------------------------------------
// setiawanthea 1.0
//
//////////////////////////////////////////////////////////
/////////////////////////////
//--------------------------Start of declarations----------------------------//

graphicobject lgr
window lwin

lgr = ao_grapobj
if isnull(lgr) or not(isvalid(lgr)) then
return lwin
end if

do until lgr.typeof() = window!
lgr = lgr.getparent()
if isnull(lgr) or not(isvalid(lgr)) then
//have no parent window
return lwin
end if
loop

lwin = lgr

return lwin

No comments: