Clarion - Control Min/Max Buttons

ControlMinMaxButtons.clw

  PROGRAM
  MAP
    Child
    Child2
    Child3
  END

AppFrame APPLICATION('Application'),AT(,,505,318),CENTER,MASK,SYSTEM,MAX,ICON('WAFRAME.ICO'),STATUS(-1,80,120,45),FONT('Microsoft Sans Serif',8,,FONT:regular),RESIZE
        MENUBAR,USE(?Menubar)
            ITEM('Child'),USE(?child)
            ITEM('Child2'),USE(?child2)
            ITEM('Child3'),USE(?child3)
            MENU('&File'),USE(?FileMenu)
                ITEM('&Print Setup ...'),USE(?PrintSetup),MSG('Setup printer'),STD(STD:PrintSetup)
                ITEM(''),SEPARATOR,USE(?SEPARATOR1)
                ITEM('E&xit'),USE(?Exit),MSG('Exit this application'),STD(STD:Close)
            END
            MENU('&Edit'),USE(?EditMenu)
                ITEM('Cu&t'),USE(?Cut),MSG('Remove item to Windows Clipboard'),STD(STD:Cut)
                ITEM('&Copy'),USE(?Copy),MSG('Copy item to Windows Clipboard'),STD(STD:Copy)
                ITEM('&Paste'),USE(?Paste),MSG('Paste contents of Windows Clipboard'),STD(STD:Paste)
            END
            MENU('&Window'),USE(?WindowMenu),STD(STD:WindowList)
                ITEM('T&ile'),USE(?Tile),MSG('Make all open windows visible'),STD(STD:TileWindow)
                ITEM('&Cascade'),USE(?Cascade),MSG('Stack all open windows'),STD(STD:CascadeWindow)
                ITEM('&Arrange Icons'),USE(?Arrange),MSG('Align all window icons'),STD(STD:ArrangeIcons)
            END
            MENU('&Help'),USE(?HelpMenu)
                ITEM('&Contents'),USE(?Helpindex),MSG('View the contents of the help file'),STD(STD:HelpIndex)
                ITEM('&Search for Help On...'),USE(?HelpSearch),MSG('Search for help on a subject'),STD(STD:HelpSearch)
                ITEM('&How to Use Help'),USE(?HelpOnHelp),MSG('How to use Windows Help'),STD(STD:HelpOnHelp)
            END
        END
    END

  CODE
  OPEN(AppFrame)
  SYSTEM{PROP:ICON} = ICON:Exclamation
  ACCEPT
    CASE ACCEPTED()
      OF ?Child ; START(Child)
      OF ?Child2; START(Child2)
      OF ?Child3; START(Child3)
    END 
  END 

  

Child PROCEDURE 
Window WINDOW('No Icon Declared, No System'),AT(,,395,224),GRAY,FONT('Microsoft Sans Serif',8),RESIZE,MDI
    END

  CODE
  OPEN(Window)
  ACCEPT
  END 

Child2 PROCEDURE 
Window2 WINDOW('Has Icon Declared'),AT(,,395,224),MDI,GRAY,ICON(ICON:Hand),FONT('Microsoft Sans Serif',8),RESIZE
    END

  CODE
  OPEN(Window2)
  ACCEPT
  END 

Child3 PROCEDURE 
Window WINDOW('No Icon Declared, With System'),AT(,,395,224),GRAY,FONT('Microsoft Sans Serif',8),RESIZE,MDI,SYSTEM
    END

  CODE
  OPEN(Window)
  ACCEPT
  END