rollout unnamedRollout "Untitled" 399 height:330 ( slider sld1 "Slider" pos:[93,95] 255 height:44 toolTip:"dsfsd" type:#integer --spinner ball_radius "Ball radius" controller:(sld1.value.controller ) local bm = bitmap 30 20 color:white
imgtag b5 "imgtag" bitmap:bm align:#center label lab1 ""
on sld1 changed arg do ( b5.pos = (mouse.screenpos +[0,-60])-(GetDialogPos unnamedRollout) lab1.pos = (mouse.screenpos +[0,-60])-(GetDialogPos unnamedRollout) lab1.text = (sld1.value) as string --print (sld1.value) as string )
on sld1 buttondown do ( lab1.pos = (mouse.screenpos +[0,-60])-(GetDialogPos unnamedRollout) ) on sld1 buttonup do ( lab1.text ="" )
-- on unnamedRollout open do -- ( -- lab1.text = (sld1.value) as string -- ) ) CreateDialog unnamedRollout