// ActLikeSDI.pkg - Make view act like an SDI view  
// Author: Dave Robinson.
//
// Usage: 
//    Activate_View Activate_oMyView for oMyView
//    Object oMyView is a dbView
//        Set Size to 271 506
//        Set Location to 0 1
//    #Include ActLikeSDI.pkg     
//
Procedure Activating Returns Integer
    Integer rval
    Forward Get msg_activating to rval
    
    Set Border_Style to Border_Thick
    Set View_Mode to Viewmode_Zoom 
    Set Maximize_Icon to False     
//    Set Maximize_Icon of (oMain(Self)) to False
    Set Border_Style of (Client_Id(oMain(Self))) to Border_None
    Procedure_Return rval
End_Procedure

On_Key Key_Ctrl+Key_F4 Send None