I found SET FONT TO very useful command to standardize FONT name and size in all controls that taking default one.
And when we change this default FONT, I would like to have it:
#xcommand GET FONT TO <aFont> ;
=> ;
<aFont> := \{ _HMG_SYSDATA \[ 342 \] , _HMG_SYSDATA \[ 343 \] \}
This command would it be useful to return the previous FONT configuration, as follows:
Code: Select all
GET FONT TO aFont
SET FONT TO 'Courier', 10
... (returning after displaying then FONT coming back with the previous configuration)
SET FONT TO aFont[1], aFont[2]