#
# HELP: SYNOPSIS:
# HELP:     register/keys/scale_up
# HELP:
# HELP: DESCRIPTION:
# HELP:     Increase the scaling of the current view
#
{ IF ${$root.view[current].scale<10}
	CECHO ${$root.view[current].scale+=1}
	CECHO ${$root.view[current].dodisp|=65}
	VIEW_RENDER
	CAPTION Scale ${$root.view[current].scale}
} IF 0 0
