|
of_message
|
|
Full name
|
pfc_n_cst_debug.of_message
|
Access
|
public
|
Extend of
|
integer
|
Return value
|
integer
|
Prototype
|
public function integer of_message(string)
|
Name
|
Datatype
|
lb_visible
|
boolean
|
ll_row
|
long
|
public function integer of_message (string as_message);//////////////////////////////////////////////////////////////////////////////
//
// Function: of_Message
//
// Access: public
//
// Arguments:
// as_message Message to be displayed
//
// Returns: Integer
// 1 if it succeeds and -1 if an error occurs.
//
// Description: Enters a new entry into the Debug Log.
// If visible portion of the service is available,
// scroll it to the newly added row.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 5.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996-1997 Sybase, Inc. and its subsidiaries. All rights reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
long ll_row
boolean lb_visible=False
//Determine if the Visible portion of the service is "open".
lb_visible = IsValid(w_debuglog)
//Prevent flickering
If lb_visible Then w_debugLog.of_DwSetRedraw(False)
//Add the new row
ll_row = ids_debuglog.InsertRow(0)
If ll_row > 0 Then
ids_debuglog.Object.msg [ll_row] = as_message
//Syncronize the Visible portion of the service.
If lb_visible Then w_debugLog.of_DwScrollToRow(ll_row)
End If
If lb_visible Then w_debugLog.of_DwSetRedraw(True)
If ll_row > 0 Then
Return 1
End If
Return -1
end function