Function Do-Modal

Part of:

package weblocks
( do-modal &rest < args > )