PBMiner

$PBExportHeader$u_explorer_invalid.sru
forward
global type u_explorer_invalid from u_explorer
end type
type st_classname from u_st within u_explorer_invalid
end type
type st_2 from u_st within u_explorer_invalid
end type
type st_1 from u_st within u_explorer_invalid
end type
type uo_1 from u_icon within u_explorer_invalid
end type
end forward

global type u_explorer_invalid from u_explorer
st_classname st_classname
st_2 st_2
st_1 st_1
uo_1 uo_1
end type
global u_explorer_invalid u_explorer_invalid

on u_explorer_invalid.create
int iCurrent
call super::create
this.st_classname=create st_classname
this.st_2=create st_2
this.st_1=create st_1
this.uo_1=create uo_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_classname
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.uo_1
end on

on u_explorer_invalid.destroy
call super::destroy
destroy(this.st_classname)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.uo_1)
end on

event ke_explorer_initialize;call super::ke_explorer_initialize;st_classname.Text = inv_explorer.of_getclassnamefromnode(NodeID)
end event

type st_classname from u_st within u_explorer_invalid
integer x = 622
integer y = 224
integer width = 1056
integer weight = 700
long textcolor = 134217856
end type

type st_2 from u_st within u_explorer_invalid
integer x = 347
integer y = 224
integer width = 261
string text = "Classname:"
end type

type st_1 from u_st within u_explorer_invalid
integer x = 311
integer y = 128
integer width = 1015
integer height = 84
integer textsize = -14
string text = "Module not found"
end type

type uo_1 from u_icon within u_explorer_invalid
integer x = 128
integer y = 112
integer taborder = 20
string #resourcename = "STOPSIGN"
end type

on uo_1.destroy
call u_icon::destroy
end on