aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Animation/FutureBasic/animation.basic
View file

@ -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