Skip to main content

How to quickly convert any Input element to a dynamic symbol​

There is a built-in convertor function, it generates a symbol and covers it with a slider (by alternating the output form). The slider generates events, which mutate the generated symbol

Download original notebook 
InputRange[0,1,0.1] // Offload`FromEventObject
(*VB[*)(Offload[OffloadGenerated18])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKm1haJKVaWqbqGpgnG+maGJgk6VpYJlromhqZpRqZJJmbpRobAgB9iRUm"*)(*]VB*)

Then just copy and paste it

Disk[{0,0}, (*VB[*)(Offload[OffloadGenerated18])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKm1haJKVaWqbqGpgnG+maGJgk6VpYJlromhqZpRqZJJmbpRobAgB9iRUm"*)(*]VB*)] // Graphics 
(*VB[*)(FrontEndRef["a87108f7-1f20-4ae5-b1b7-fdb7c7389946"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKJ1qYGxpYpJnrGqYZGeiaJKaa6iYZJpnrpqUkmSebG1tYWpqYAQCB8BWB"*)(*]VB*)

One can apply any expressions over it, for example

Disk[{0,0}, (*SpB[*)Power[(*VB[*)(Offload[OffloadGenerated17])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKJxqlplkkm5rppqQZmeiamCWZ6iYmmafoGqeaGxibphqkWhgaAACPKBXQ"*)(*]VB*)(*|*),(*|*)2](*]SpB*)] // Graphics 
(*VB[*)(FrontEndRef["72a1fc56-7bbd-4d63-837e-8894caa340fb"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKmxslGqYlm5rpmiclpeiapJgZ61oYm6fqWlhYmiQnJhqbGKQlAQCHMRXa"*)(*]VB*)