How to "do" this

[Wouter]

On 16 Feb 2004, at 17:34, use-revolution-request at lists.runrev.com wrote:

> Message: 9
> Date: Mon, 16 Feb 2004 17:22:03 +0100
> From: Bj?rnke von Gierke<bvg at mac.com>
> Subject: How to "do" this
> To: use-revolution at lists.runrev.com
> Message-ID: <41538604-609C-11D8-9D5A-003065AD94A4 at mac.com>
> Content-Type: text/plain; charset=US-ASCII; format=flowed
>
> I want to loop over each object where as the object can be specified by
> the user is there a way to get this working? The problem is that the
> repeat loop does not understand this part, which should evaluate to
> "Fields":  (theO & "s")
>
> on mouseDown
>    --Button "Object" = Field
>    put the label of Button "Object" into theO
>    --button "stack name" = the name of a open stack
>    put the label of button "Stack name" into theS
>    repeat with x = 1 to the number of (theO && "s") in stack theS
>      do "put" && theO && x && "of stack" && quote & theS & quote && "&
> return after me"
>    end repeat
> end mouseDown


on mouseDown
   --Button "Object" = Field
   put the label of Button "Object" into theO
   put the label of Button "Object"&"s" into theOs
   --button "stack name" = the name of a open stack
   put the label of button "Stack name" into theS
   do "put the number of " & theOs& " in stack " & quote &theS &quote & 
" into nof"
   --repeat with x = 1 to the number of (theO & "s") in stack theS
   repeat with x = 1 to nof
     do "put" && theO && x && "of stack" && quote & theS & quote && "& 
return after tBox"
   end repeat
   filter tBox with "*"
   put tBox into me
end mouseDown


Greetings,
WA