Another Dumb Field Problem!

[David Burgun]

Hi,

I couldn't get your Scripts to work, but I modified it as below and 
it works fine now. It replies on the fields being alone on a group 
(inside the parent group). It seems to work fine except I don't want 
the text inside the field to be selected as in:

   select char 1 to -1 of field myFieldNumber of me

How can I get the cursor to move to the next field BUT not have the 
contents selected?

Thanks a lot
Dave


-------------------------------------------------------------------------------
--
--  tabKey
--
-------------------------------------------------------------------------------
on tabKey
   local myFieldNumber
   local myNewField
   local myNumberOfFields
   local myTargetFieldNumber

   put the number of the target into myTargetFieldNumber
   put the number of me into myFieldNumber
   put myTargetFieldNumber - myFieldNumber into myFieldNumber
   put the number of fields in me into myNumberOfFields

   if the shiftKey is down then
     if myFieldNumber > 1 then
       subtract 1 from myFieldNumber
     else
       put myNumberOfFields into myFieldNumber
     end if
   else
     if myFieldNumber < myNumberOfFields then
       add 1 to myFieldNumber
     else
       put 1 into myFieldNumber
     end if
   end if
   select char 1 to -1 of field myFieldNumber of me
end tabKey





>Oops, made a simple obvious mistake, here is the revised version of that
>script:
>On tabkey
>   Put the short name of the target into tField
>   Put word 1 of tField into tFieldName
>   Put word 2 of tField into tFieldNumber
>   If the shiftkey is down then
>    If tFieldNumber > 1 then
>      Subtract 1 from tFieldNumber
>    Else
>      Put the number of fields in me into tFieldNumber
>    End if
>   Else if the commandkey is down then
>     If the selectedfield <> empty then
>       Put Tab into the selection
>       Exit tabkey
>     End if
>   Else
>     If tFieldNumber < the number of fields in me then
>       Add 1 to tFieldNumber
>     Else
>       Put 1 into tFieldNumber
>     End if
>   End if
>   Put tFieldName && tFieldNumber into tNewField
>   Select char 1 to -1 of field tNewField of me
>End tabkey
>
>
>
>
>_______________________________________________
>use-revolution mailing list
>use-revolution at lists.runrev.com
>Please visit this url to subscribe, unsubscribe and manage your 
>subscription preferences:
>http://lists.runrev.com/mailman/listinfo/use-revolution