BBj: Mai 2019

new control variant for BBj - the confirmation button - the anatomy of the confirmation button is to click twice in order to trigger the final click event - The difference to a doubleclick behavior is the changing button text after the first click asking the user if he is really sure. - With the leave of the button control is the text gonna be resetted and the inner confirmation state is null again.
This kind of button was the first time introduced by Ralf van den Heuvel in 2008. It was required in for the deletion of a single workshop planning appointment. The workshop planning was a html/javascript application and was asking again to be sure to delete the workshop appointment after clicking once on it.
In the meantime - when googling for such button behavior - you will find also implementations for jquery/javascript by others.

Here comes the code implementation of the confirmation button in BBJ:

REM /**
REM * BBjButtonExt.bbj
REM * @author Ralf van den Heuvel
REM * Click behavior extension
REM */
class public BBjButtonExt

field protected BBjButton parentCtrl!
field protected CustomObject parentClassObject!
field protected BBjString parentClassName!
field private BBjString parentMethodNameOnButtonPush$
field private BBjString parentButtonTextDefault$
field private BBjString parentButtonTextCurrent$
field private BBjString parentButtonTextConfirm$

REM /**
REM * constructor of the extended BBjButton ctrl
REM * @param BBjButton control object to be extended
REM * @param BBjString of the full qualified parent class name like '::myClass.bbj::myClass'
REM * @param CustomObject of the parent class handled over like #this!
REM * @param BBjString of the binded button push method within the parent class
REM * @param BBjString of the interim button confirmation text. If the button is clicked once, the button text will swap to this confirmation text. If the button is clicked twice or the mouse leaves the button control, the text will be reset.
REM */
method public BBjButtonExt(BBjButton parentCtrl!,BBjString parentClassName!,CustomObject parentClassObject!,BBjString parentMethodNameOnButtonPush$,BBjString confirmQuestion$)
#parentCtrl!=cast(BBjButton,parentCtrl!)
#parentClassName!=parentClassName!; REM like '::myClass.bbj::myClass'
#parentClassObject!=parentClassObject!; REM mostly #this! in the parent class +++ java.lang.Class +++ ?#class!.getClass().getName()
#parentMethodNameOnButtonPush$=parentMethodNameOnButtonPush$
#parentButtonTextDefault$=#parentCtrl!.getText()
#parentButtonTextCurrent$=#getparentButtonTextDefault()
#parentButtonTextConfirm$=iff(confirmQuestion$<>#parentButtonTextDefault$,confirmQuestion$,"")
if #parentButtonTextConfirm$>""
#parentCtrl!.setCallback(#parentCtrl!.ON_BUTTON_PUSH,#this!,"OnButtonPush")
#parentCtrl!.setCallback(#parentCtrl!.ON_MOUSE_EXIT,#this!,"OnMouseExit")
#parentCtrl!.setCallback(#parentCtrl!.ON_LOST_FOCUS,#this!,"OnLostFocus")
fi
methodend

REM /**
REM * button clicked - Analyse state - show confirmation question or trigger the button push method of the parent class
REM * @param BBjButtonPushEvent according to control.
REM */
method public void OnButtonPush(BBjButtonPushEvent pe!)
if #parentButtonTextCurrent$=#parentButtonTextConfirm$
#parentButtonTextCurrent$=#parentButtonTextDefault$
#parentCtrl!.setText(#parentButtonTextCurrent$)
stmt$="cast("+#parentClassName!+",#parentClassObject!)."+#parentMethodNameOnButtonPush$+"(pe!)"
eval(stmt$)
else
#parentButtonTextCurrent$=#parentButtonTextConfirm$
#parentCtrl!.setText(#parentButtonTextCurrent$)
fi
methodend

REM /**
REM * mouse exists control - analyze state - reset button text
REM * @param BBjButtonPushEvent according to control.
REM */
method public void OnMouseExit(BBjMouseExitEvent pe!)
if #parentButtonTextCurrent$=#parentButtonTextConfirm$
#parentButtonTextCurrent$=#parentButtonTextDefault$
#parentCtrl!.setText(#parentButtonTextCurrent$)
fi
methodend

REM /**
REM * control looses focus - analyze state - reset buttom text
REM * @param BBjButtonPushEvent according to control.
REM */
method public void OnLostFocus(BBjLostFocusEvent pe!)
if #parentButtonTextCurrent$=#parentButtonTextConfirm$
#parentButtonTextCurrent$=#parentButtonTextDefault$
#parentCtrl!.setText(#parentButtonTextCurrent$)
fi
methodend

classend

REM /**
REM * demo - focus on #abtn!
REM */
class public demo

field protected BBjButtonExt abtn!
field protected BBjButton btn!

method public demo()
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(25,25,200,275,"BBjButton",$00090003$)
window!.setCallback(window!.ON_CLOSE,"eoj")
window!.addButton(1,25,25,150,25,"figurant1",$$)
#btn! = cast(BBjButton,window!.addButton(2,25,75,150,25,"delete all foo - click me",$$))
#btn!.setCallback(#btn!.ON_BUTTON_PUSH,#this!,"parentOnButtonPush")
#abtn!=new BBjButtonExt(#btn!,"::BBjButtonExt.bbj::demo",#this!,"parentOnButtonPush","sure?"); REM btn ctrl, classname, this class, btn push event name, alternative confirmation text
window!.addButton(3,25,125,150,25,"figurant2",$$)
process_events,err=*next
release
methodend

method public void parentOnButtonPush(BBjButtonPushEvent pe!)
declare BBjButton ctrl!
ctrl!=cast(BBjButton,pe!.getControl())
accu$=ctrl!.getText()
ctrl!.setText("foo works")
void=msgbox("parent class push method",0,"",tim=2)
ctrl!.setText(accu$)
methodend

method public static void run()
declare demo d!
d!=new demo()
methodend

classend

PREFIX cast(BBjString,pgm(-2)).replace("BBjButtonExt.bbj","") + " " + PFX
demo.run()

BBj

Sonntag, 12. Mai 2019

confirmation button

Mittwoch, 8. Mai 2019

xml node replacement variant (schematic)