woohoo thank you!
C64Rulez 2 years ago
Select text and make it UPPERCASE Script
-----------------------------------------------------------
Set Variable [ $SelectionStart; Value:Get ( ActiveSelectionStart ) ]
Set Variable [ $SelectionLength; Value:Get ( ActiveSelectionSize ) ]
Set Variable [ $TheText;Value:Middle(Listings::Body;$SelectionStart;$SelectionLength) ]
Set Field [ Listings::Body; Replace ( Listings::Body ; $SelectionStart ; $SelectionLength ; TextStyleAdd ( $TheText ; Uppercase )) ]
douglasalder 2 years ago
woohoo thank you!
C64Rulez 2 years ago
Select text and make it UPPERCASE Script
-----------------------------------------------------------
Set Variable [ $SelectionStart; Value:Get ( ActiveSelectionStart ) ]
Set Variable [ $SelectionLength; Value:Get ( ActiveSelectionSize ) ]
Set Variable [ $TheText;Value:Middle(Listings::Body;$SelectionStart;$SelectionLength) ]
Set Field [ Listings::Body; Replace ( Listings::Body ; $SelectionStart ; $SelectionLength ; TextStyleAdd ( $TheText ; Uppercase )) ]
douglasalder 2 years ago