Opening a Window - GiuseppeChillemi/VID-Extension-Kit GitHub Wiki

Opening and closing Windows/Panels

Note: find other examples on test files and source itselft

VIEW

view: func [
    "Displays a window face." 
    view-face [object!] 
    /new "Creates a new window and returns immediately" 
    /offset xy [pair!] "Offset of window on screen" 
    /options opts [block! word!] "Window options [no-title no-border resize]" 
    /title text [string!] "Window bar title" 
    /local scr-face
]

Unview

unview: func [
    "Closes window views, except main view." 
    /all "Close all views, including main view" 
    /only face [object!] "Close a single view" 
    /local pane
]

Inform

inform: func [
    {Display an exclusive focus panel for alerts, dialogs, and requestors.} 
    panel [object!] 
    /offset where [pair!] "Offset of panel" 
    /title ttl [string!] "Dialog window title" 
    /options opts "Window display options" 
    /timeout time 
    /event evt-func "Event Function" 
    /local sv old-focus
]

Show-menu-face

show-menu-face func [fc content /offset os /hinge face1 face2]

Hide-menu-face

hide-menu-face does [..]

Used here in the source %vid-extension-kit.r~calendar-act:

Example without hinge: popup.r

Example with hinge popup-hinge.r

Heavly used here Style-browseer.r

Show-popup

show-popup func [face [object!] /window window-face [object!] /away /local no-btn feelname]

Hide-popup

hide-popup: func [/timeout /local focal-win-face win-face]

Close

close