Question Dynamic Browse Widget in Class File

[jeffledbetter]

Hi.

Perhaps I am overlooking the obvious.

Thinking about migrating our procedural based that dynamically creates a browse widget.

If I create a browse widget in a class file, is there an equivalent to the PERSISTENT RUN statement that is used in a trigger? Or, does the entire trigger code need to be defined in the ON of the TRIGGERS block? Or something else?

CREATE BROWSE hBrowse
  ASSIGN
    ALLOW-COLUMN-SEARCHING = TRUE
    FRAME = phHostFrame
    ROW-MARKERS = plMarkers
    SENSITIVE = TRUE
    SEPARATORS = plSeparators
    MULTIPLE = plMultiple
    VISIBLE = TRUE

  TRIGGERS:
    ON ROW-LEAVE PERSISTENT RUN row_leave IN THIS-PROCEDURE.
    ON START-SEARCH RUN sort_browse IN THIS-PROCEDURE.
    ON VALUE-CHANGED PERSISTENT RUN value_changed IN THIS-PROCEDURE.
    ON MOUSE-SELECT-DBLCLICK PERSISTENT RUN dbl_click IN THIS-PROCEDURE.
  END TRIGGERS.

 

[jmls]

how about (written in the Chrome IDE)

on row-leave of hBrowse do:
if not this-object:RowLeave() then return no-apply.
end.

method private logical RowLeave():
return true.
end method.

 

[peterjudge]

If I create a browse widget in a class file, is there an equivalent to the PERSISTENT RUN statement that is used in a trigger? Or, does the entire trigger code need to be defined in the ON of the TRIGGERS block? Or something else?

Per the doc you can for the RUN in any procedure handle. I would create a .P that takes THIS-OBJECT as a input parameter and use that to call back into the class.

class DynBrowser:
    def var hCallbackProc as handle.

    constructor DynBrowser():
       run callback.p persistent set hCallbackProc (this-object).
    end.

    method void handle CreateBrowser():
  
       triggers:
           on row-leave persistent run row_leave in hCallbackProc.
       end triggers.
    method.

    method public void RowLeave():
        message "Ponies have left the row ...".
    end method.
end class.

// callbackproc.p

def input param poBrowser as DynBrowser.

procedure row_leave:
   poBrowser:RowLeave().
end.

 

[jeffledbetter]

Thank you for the ideas gentlemen!

Poor ponies.

 

[jmls]

they never get a break