jbratu

Subroutine O4W_CS_TEST_DIALOG_HELLO_WORLD(CtrlEntId, Event, Request)

$Insert O4WEquates
$Insert O4WCommon

BEGIN Case
	CASE EVENT _EQC "CREATE"
		
		O4WForm()
		O4WHeader("Hello World Example")

jbratu

O4WButton("Hello World", "BTN_HELLO_WORLD")
O4WQualifyEvent("BTN_HELLO_WORLD", "CLICK")		
//Bind the sayhello plugin to the button
O4WPlugin("BTN_HELLO_WORLD", "sayhello", "") 

jbratu

Function CS_TransposeSort(A, Bys, Justs)

Declare Subroutine V119

ARowCount = DCOUNT(A<1>, @VM)
AColCount = DCount(A, @FM)

ATransposed = ''

*Transpose it for use with V119

jbratu

//Original source: http://www.sprezzatura.com/library/whitepapers/OI%20Coding%20Standards%20v1%200%207.pdf
//Protect any active select list. Pop it at end of routine.
saveAtDict_      = @dict
saveAtRecord_    = @record
saveAtID_        = @id
saveAtRecCount_  = @recCount
saveAtRnCounter_ = @rn.Counter
A_ = 0 ; B_ = 0 ; C_ = 0 ; D_ = 0
call push.Select( A_, B_, C_, D_ )

jbratu

Subroutine CS_TEST_MSG_GASGAUGE(void)
$Insert Msg_Equates

//Number of example processing loops
MAX_LOOPS = 1000

def = ''
def<MCAPTION$> = 'Gas Guage with Cancel Button'
def<MTYPE$> = 'GCU'
def<MTEXT$> = 'Initializing...'

jbratu

Subroutine CS_SNIP_CreateCopy_ReadNext(void)

Declare Subroutine Set_Status, create_Table,Msg,attach_table
declare function Set_FSError,Msg 
$Insert Logical

*Source table to copy from
TABLE_NAME = "CUSTOMERS"

*Destination table to create and copy to

jbratu

$Insert MSG_EQUATES

Def = ""
Def<MTEXT$> = "What did you eat for breakfast?"
Def<MTYPE$> = "RC"
Def<MICON$> = "?"

Response = Msg(@window, Def)

if Response = char(27) or Response = "" then

jbratu

WantsFries = '' ;* Set to 'No' or 'Yes' after Msg.

Def = ""
Def<MTEXT$> = "Do you want fries with your order?"
Def<MTYPE$> = "BNo Fries,Fries" ;*B indicates beginning of comma separated list.
Def<MICON$> = "?"

Resp = Msg(@window, Def)

Begin Case

jbratu

common /csRnd/ WScript, init%
If Assigned(init%) Else init% = ''
If init% else
	  WScript = oleCreateInstance("ScriptControl")
	  OlePutProperty(wscript, "Language", "JScript") 	   
	  s = 'function getrandom() {return Math.random();}'	   
	  x = WScript->AddCode(s)
	  init% = 1
end
RetVal = WScript->Eval("getrandom();") * 1

jbratu

Function CS_BREAKON_BOUNDARY(Sentence, Boundary, BreakLength)
/*
Example:

Sentence = 'The Quick Brown Fox................ Jumped Over the Lazy Dog ....'
Lines = CS_BREAKON_BOUNDARY(Sentence, ' ', 10)

Lines contains an array of sentences And words that do Not exceed 10 characters In length. 

*/