$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