Q5/ws_objects/Ew_publ903.pbl.src/uo_picture_m.sru

$PBExportHeader$uo_picture_m.sru
forward
global type uo_picture_m from picture
end type
end forward

global type uo_picture_m from picture
int Width=165
int Height=144
boolean FocusRectangle=false
string Pointer="HAND.CUR"
event buttondown pbm_lbuttondown
event buttonup pbm_lbuttonup
event mouse pbm_mousemove
end type
global uo_picture_m uo_picture_m

type variables
string is_picture,on_picture
string b_is_picture,b_on_picture
string cl_picture
end variables

event mouse;if not this.picturename =on_picture then
	this.picturename =on_picture
end if
end event

event constructor;
is_picture=this.picturename
b_is_picture=is_picture
//b_is_picture=is_picture
end event