PBMiner

$PBExportHeader$u_wizard_page.sru
forward
global type u_wizard_page from u_base_container
end type
end forward

global type u_wizard_page from u_base_container
integer width = 2272
integer height = 1260
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
event ke_reset ( )
event ke_key pbm_keydown
event ke_setfocus ( )
end type
global u_wizard_page u_wizard_page

type variables
protected:

n_base_wizard WizardClass
w_wizard WizardWindow
end variables

forward prototypes
public subroutine of_registerwizarddriver (readonly n_base_wizard anv, readonly w_wizard aw)
public subroutine of_setfocus ()
end prototypes

event ke_reset();//fired when page needs to be reset (initalized)
//this is needed when multiple runs of the same
//wizard occurs
end event

event ke_key;IF ISVALID(WizardWindow) THEN 
   CHOOSE CASE key
      CASE KeyEnter!
         WizardWindow.of_triggerbutton(WizardWindow.#DefaultButton)
      CASE KeyEscape!
         WizardWindow.of_triggerbutton(WizardWindow.#CancelButton)
   END CHOOSE
END IF
end event

event ke_setfocus();//fired when page gets focused/activated
//this is useful to setfocus on your
//own controls
end event

public subroutine of_registerwizarddriver (readonly n_base_wizard anv, readonly w_wizard aw);WizardClass = anv
WizardWindow = aw
end subroutine

public subroutine of_setfocus ();this.SetFocus()
EVENT ke_setfocus()
end subroutine

on u_wizard_page.create
call super::create
end on

on u_wizard_page.destroy
call super::destroy
end on