Data update

Task/Animation/FutureBasic/animation.basic

@@ -1,5 +1,3 @@
-include "NSLog.incl"
-
 _window = 1
 _label = 1
 
@@ -8,12 +6,12 @@ void local fn DoIt
 
   subclass textlabel _label, @"Hello World! ", (140,112,210,45)
   ControlSetFont( _label, fn FontLabelFontOfSize( 36 ) )
-  ViewSetProperty( _label, @"MoveRight", @(YES) )
+  ViewPropertySetBool( _label, @"MoveRight", YES )
 
   timerbegin , 0.1, YES
     CFStringRef string = fn ControlStringValue(_label)
     CFStringRef chr
-    BOOL moveRight = fn NumberBoolValue(fn ViewProperty( _label, @"MoveRight" ))
+    BOOL moveRight = fn ViewPropertyBool( _label, @"MoveRight" )
     if ( moveRight )
       chr = right( string, 1 )
       string = fn StringWithFormat( @"%@%@",chr,left(string,len(string)-1) )
@@ -30,9 +28,9 @@ void local fn DoDialog( ev as long, tag as long )
     case _viewMouseDown
       select ( tag )
         case _label
-          BOOL moveRight = fn NumberBoolValue(fn ViewProperty( _label, @"MoveRight" ))
+          BOOL moveRight = fn ViewPropertyBool( _label, @"MoveRight" )
           if ( moveRight ) then moveRight == NO else moveRight = YES
-          ViewSetProperty( _label, @"MoveRight", @(moveRight) )
+          ViewPropertySetBool( _label, @"MoveRight", moveRight )
       end select
   end select
 end fn