! Buttons

Post Reply
User avatar
Dutchman
Posts: 148
Joined: Tue Aug 06, 2019 4:47 pm
Location: Netherlands

! Buttons

Post by Dutchman » Wed Nov 20, 2019 11:47 am

! Buttons {/Extensions/Interface/! Buttons}
'Container' 'Butt' contains character codes for button symbols eg:
Butt.Up1 = Up arrow, Butt.ButRed = Red pushbutton etc.

Code: Select all

' {/Extensions/Interface/! Buttons}
[ Button characters and button arrays ]
'
IF NOT Butt.set THEN CALL Butt
[––––––––––––––– Container for constants ––––––––––––––––––––]
DEF Butt 'container for button characters
IF Set THEN Update ' defaults changed
Up1="🔼" : Down1="🔽" : Left1="◀️" : Right1="▶️"
Up2="🔺" : Down2="🔻"
ButPush="🔘" : ButBlue="🔵" : ButRed="🔴" : ButBlack="⚫️"
'--- button arrays, under development
DIM DCA()[Directional Control Array]=(Up1,Down1,Left1,Right1)
Update: ' e.g. for DCA assembly
Set=1
RETURN
END DEF 'Butt
'
[––––––––––––––––––––––– Functions –––––––––––––––––––––––––
–––
End of function description –––––––––––]
'
[–––––––––––––––––––––– Implementation ––––––––––––––––––––––]
It is still a long way to go

Post Reply