OS/2 Shareware BBS: 18 REXX/18-REXX.zip/vrprt21.zip/VRPrMarg.VRM

Text File | 1995-10-15 | 5KB | 218 lines

/* Custom mainline for macro */

    signal on SYNTAX name _VRESyntax
    signal _VREMain

_VRESyntax:
    parse source . . _VRESourceSpec
    call VRMessage "", "Syntax error in" _VRESourceSpec "line" SIGL":" ErrorText(rc), "Error!"
    call VRFini
    exit 32000

_VREMain:
/*:VRX         Main
*/
/*  Main
*/
Main:
/*  Process the arguments.
    Get the parent window.
*/
    parse source . calledAs .
    parent = ""
    argCount = arg()
    argOff = 0
    if( calledAs \= "COMMAND" )then do
        if argCount >= 1 then do
            parent = arg(1)
            argCount = argCount - 1
            argOff = 1
        end
    end; else do
        call VROptions 'ImplicitNames'
    end
    InitArgs.0 = argCount
    if( argCount > 0 )then do i = 1 to argCount
        InitArgs.i = arg( i + argOff )
    end
    drop calledAs argCount argOff

/*  Load the windows
*/
    call VRInit
    parse source . . spec
    _VREPrimaryWindowPath = ,
        VRParseFileName( spec, "dpn" ) || ".VRW"
    _VREPrimaryWindow = ,
        VRLoad( parent, _VREPrimaryWindowPath )
    drop parent spec
    if( _VREPrimaryWindow == "" )then do
        call VRMessage "", "Cannot load window:" VRError(), ,
            "Error!"
        _VREReturnValue = 32000
        signal _VRELeaveMain
    end

/*  Process events
*/
    call Init
    signal on halt
    do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
        _VREEvent = VREvent()
        interpret _VREEvent
    end
_VREHalt:
    _VREReturnValue = Fini()
    call VRDestroy _VREPrimaryWindow
_VRELeaveMain:
    call VRFini
exit _VREReturnValue

VRLoadSecondary:
    __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
    if __vrlsWait then do
        call VRFlush
    end
    __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
    if __vrlsHWnd = '' then signal __vrlsDone
    if __vrlsWait \= 1 then signal __vrlsDone
    call VRSet __vrlsHWnd, 'WindowMode', 'Modal'
    __vrlsTmp = __vrlsWindows.0
    if( DataType(__vrlsTmp) \= 'NUM' ) then do
        __vrlsTmp = 1
    end
    else do
        __vrlsTmp = __vrlsTmp + 1
    end
    __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
    __vrlsWindows.0 = __vrlsTmp
    do while( VRIsValidObject( VRWindow() ) = 1 )
        __vrlsEvent = VREvent()
        interpret __vrlsEvent
    end
    __vrlsTmp = __vrlsWindows.0
    __vrlsWindows.0 = __vrlsTmp - 1
    call VRWindow __vrlsWindows.__vrlsTmp
    __vrlsHWnd = ''
__vrlsDone:
return __vrlsHWnd

/*:VRX         dlg_Close
*/
dlg_Close:
    call Quit
return

/*:VRX         Fini
*/
Fini:
    window = VRWindow()
    call VRSet window, "Visible", 0
    drop window
return ret

/*:VRX         Halt
*/
Halt:
    signal _VREHalt
return

/*:VRX         Init
*/
Init:

    ret = '';

    if InitArgs.0 < 2 then
        call Quit;

    object = InitArgs.1;
    method = InitArgs.2;

    window = VRWindow()
    ok = VRSet( window, "Caption", method )
    call VRMethod window, "CenterWindow"
    call VRSet window, "Visible", 1
    call VRMethod window, "Activate"
    drop window

    if method = "PrintBitMap" then do
        call VRSet "EF_File", "Enabled", 1
        call VRSet "PB_File", "Enabled", 1
        call VRSet "CB_1", "Enabled", 1
        call VRSet "SPIN_Fill", "Enabled", 0
    end
    else do
        call VRSet "EF_File", "Enabled", 0
        call VRSet "PB_File", "Enabled", 0
        call VRSet "CB_1", "Enabled", 0
        call VRSet "SPIN_Fill", "Enabled", 1
    end
    if method = "PrintBox" then
        call VRSet "SPIN_line", "Value", 14

return

/*:VRX         PB_accept_Click
*/
PB_accept_Click:
    left = VRGet( "SPIN_left", "Value");
    right = VRGet( "SPIN_right", "Value");
    top = VRGet( "SPIN_top", "Value");
    bottom = VRGet( "SPIN_bottom", "Value");
    fill = VRGet( "SPIN_fill", "Value");
    line = VRGet( "SPIN_line", "Value");
    filename = VRGet( "EF_File", "Value");
    set = VRGet( "CB_1", "Set");
    if set then
        filename = '"' || filename || '"'

    lc = VRGet( "DDCB_lc", "Value");
    if VRMethod( "DDCB_lc", "FindString", lc) > 0 then
        lc = '"' || lc || '"'
    fc = VRGet( "DDCB_fc", "Value");
    if VRMethod( "DDCB_fc", "FindString", fc) > 0 then
        fc = '"' || fc || '"'

    select
        when method = "SetMargins" then
            tag_str = left',' right',' top',' bottom',' line',' fill',' lc',' fc ");"

        when method = "PrintBox" then
            tag_str = left',' bottom',' right',' top',' line',' fill',' lc',' fc ");"

        when method = "PrintBitMap" then
            tag_str = filename',' left',' bottom',' right',' top',' line',' lc ");"

        otherwise
            tag_str = ''
    end
    ret = 'ok = VRMethod( "' || object ||'", "' || method || '",' tag_str
    call Quit
return

/*:VRX         PB_Cancel_Click
*/
PB_Cancel_Click:
    ret = '';
    call Quit;
return

/*:VRX         PB_File_Click
*/
PB_File_Click:
    FileName = VRFileDialog( VRWindow(), "Choose Bitmap", "Open", "*.bmp", , ,  )
    if FileName <> '' then
        call VRSet "EF_File", "Value", FileName
    drop FileName
return

/*:VRX         Quit
*/
Quit:
    window = VRWindow()
    call VRSet window, "Shutdown", 1
    drop window
return