|
|
|
Pause Button
Added on 6/19/2000
|
Wait in frame and pause in one if global gStopStart = "STOP" then in will stop(pause) in the frame this can be used for pause an automatic slide show
property ptimeToWait
property endtime
global gStopStart
on prepareframe me
if voidP(endtime) then
endtime = the ticks + ptimeToWait
end if
end
on exitframe me
if gStopStart = "STOP" then
go the frame
abort
end if
if the ticks > endtime then
go the frame + 1
end if
go the frame
end
on getPropertyDescriptionList
set p_list = [ ¬
#ptimeToWait: [ #comment: "timeToWait:", ¬
#format: #integer, ¬
#default: 60 ]]
return p_list
end
|
|