Screen Locks?

[Dan Friedman]

Yves,

I don't get it... How does this lock the screen to the user?

On doIt
   put the number of btns of this cd into tbtns
   put the long name of sb "lprogres" of cd 1 of stack "B" into tprog
   set the endvalue of tprog to tbtns
   palette "B"
   repeat with x = 1 to tbtns
     set cursor to busy
     set the thumbpos of tprog to x --*** I want to see this ***
     whateverYouWantToDo x  --*** I don't want to see this until "End DoIt"
    end repeat
   close stack "B"
   put tNames into fld <YourFldName>
End DoIt

On whateverYouWantToDo x
  --I'm going to reshape some controls... LOTS of them!
  set the rect of btn x to someRect
  set the textSize of btn x to someSize
  set the margins of btn x to someMargin
End whateverYouWantToDo
     



>> Say you have two stacks:
>> 
>> StackA: a bunch of controls that you are going to resize;
>> StackB: a stack with a progress bar on it.
>> 
>> How do you lock the screen so the user doesn't see the updates on StackA
>> (also you want the speed increase!!), but at the same time, you want to show
>> the progress of the resizing of controls in StackB.
>> 
>> Any thoughts?
>> 
>> Thanks!
>> -Dan
>> 
> 
> 
> Here an example of what you could write
> 
>  put the number of btns of this cd into tbtns
>  put the long name of sb "lprogres" of cd 1 of stack "B" into tprog
>  set the endvalue of le_prog to tbtns
>  palette "B"
>  repeat with x = 1 to tbtns
>    set cursor to busy
>    set the thumbpos of tprog to x
>    put the short name of btn x of stack "A" & cr after tNames -- or
> whatever you want to do
>   end repeat
>  close stack "B"
>  put tNames into fld <YourFldName>
> 
> 
> hope this help.
> 
> Cheers.
> -- 
> Greetings.
> 
> Yves COPPE
> 
> Email : yvescoppe at skynet.be
> 
>