Q5/ws_objects/Ew_define.pbl.src/w_expensesdef_popup.srw

$PBExportHeader$w_expensesdef_popup.srw
forward
global type w_expensesdef_popup from w_expensesdef
end type
end forward

global type w_expensesdef_popup from w_expensesdef
boolean minbox = true
windowtype windowtype = popup!
end type
global w_expensesdef_popup w_expensesdef_popup

on w_expensesdef_popup.create
call super::create
end on

on w_expensesdef_popup.destroy
call super::destroy
end on

type cb_func from w_expensesdef`cb_func within w_expensesdef_popup
end type

type cb_exit from w_expensesdef`cb_exit within w_expensesdef_popup
integer x = 987
end type

type cb_add from w_expensesdef`cb_add within w_expensesdef_popup
end type

type cb_edit from w_expensesdef`cb_edit within w_expensesdef_popup
end type

type cb_delet from w_expensesdef`cb_delet within w_expensesdef_popup
end type

type cb_choice from w_expensesdef`cb_choice within w_expensesdef_popup
boolean visible = false
integer x = 1829
boolean enabled = false
end type

type dw_uc from w_expensesdef`dw_uc within w_expensesdef_popup
end type

event dw_uc::rowfocuschanged;IF modifyrow_no >0 AND dw_edit_mode THEN
	THIS.SETROW(modifyrow_no)
	THIS.ScrollToRow(modifyrow_no)
else
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
END IF
end event

event dw_uc::doubleclicked;//
end event

type cb_rtr from w_expensesdef`cb_rtr within w_expensesdef_popup
end type

type cb_help from w_expensesdef`cb_help within w_expensesdef_popup
integer x = 837
end type

type ln_bar from w_expensesdef`ln_bar within w_expensesdef_popup
end type

type ln_bar2 from w_expensesdef`ln_bar2 within w_expensesdef_popup
end type

type r_bar from w_expensesdef`r_bar within w_expensesdef_popup
end type

type cbx_mlselect from w_expensesdef`cbx_mlselect within w_expensesdef_popup
boolean visible = false
end type

type cbx_allselect from w_expensesdef`cbx_allselect within w_expensesdef_popup
boolean visible = false
end type