{-# LINE 1 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

{-# LINE 2 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}
{-# LANGUAGE Trustworthy #-}

{-# LINE 4 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}
-----------------------------------------------------------------------------

-- |

-- Module      :  Graphics.Win32.Control

-- Copyright   :  (c) Alastair Reid, 1997-2003

-- License     :  BSD-style (see the file libraries/base/LICENSE)

--

-- Maintainer  :  Esa Ilari Vuokko <[email protected]>

-- Stability   :  provisional

-- Portability :  portable

--

-- FFI bindings to the various standard Win32 controls.

--

-----------------------------------------------------------------------------


module Graphics.Win32.Control where

import Data.Bits ((.|.))
import Graphics.Win32.GDI.Types (HMENU, HWND)
import Graphics.Win32.Message (WindowMessage)
import Graphics.Win32.Window (ClassName, Pos, WindowStyle, maybePos)
import Graphics.Win32.Window (c_CreateWindowEx)
import System.IO.Unsafe (unsafePerformIO)
import System.Win32.Types (HANDLE, UINT, maybePtr, newTString, withTString)
import System.Win32.Types (failIfFalse_, failIfNull, failIfZero)
import Foreign.Ptr (nullPtr)

#include "windows_cconv.h"





-- == Command buttons


type ButtonStyle   = WindowStyle

bS_PUSHBUTTON         :: ButtonStyle
bS_PUSHBUTTON         =  0
bS_DEFPUSHBUTTON      :: ButtonStyle
bS_DEFPUSHBUTTON      =  1
bS_CHECKBOX           :: ButtonStyle
bS_CHECKBOX           =  2
bS_AUTOCHECKBOX       :: ButtonStyle
bS_AUTOCHECKBOX       =  3
bS_RADIOBUTTON        :: ButtonStyle
bS_RADIOBUTTON        =  4
bS_3STATE             :: ButtonStyle
bS_3STATE             =  5
bS_AUTO3STATE         :: ButtonStyle
bS_AUTO3STATE         =  6
bS_GROUPBOX           :: ButtonStyle
bS_GROUPBOX           =  7
bS_AUTORADIOBUTTON    :: ButtonStyle
bS_AUTORADIOBUTTON    =  9
bS_OWNERDRAW          :: ButtonStyle
bS_OWNERDRAW          =  11
bS_LEFTTEXT           :: ButtonStyle
bS_LEFTTEXT           =  32
bS_USERBUTTON         :: ButtonStyle
bS_USERBUTTON         =  8

{-# LINE 53 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

createButton
  :: String -> WindowStyle -> ButtonStyle
  -> Maybe Pos -> Maybe Pos -> Maybe Pos -> Maybe Pos
  -> Maybe HWND -> Maybe HMENU -> HANDLE
  -> IO HWND
createButton nm wstyle bstyle mb_x mb_y mb_w mb_h mb_parent mb_menu h =
  withTString nm $ \ c_nm ->
  failIfNull "CreateButton" $
    c_CreateWindowEx 0 buttonStyle c_nm (wstyle .|. bstyle)
      (maybePos mb_x) (maybePos mb_y) (maybePos mb_w) (maybePos mb_h)
      (maybePtr mb_parent) (maybePtr mb_menu) h nullPtr

buttonStyle :: ClassName
buttonStyle = unsafePerformIO (newTString "BUTTON")

type ButtonState = UINT

bST_CHECKED           :: ButtonState
bST_CHECKED           =  1
bST_INDETERMINATE     :: ButtonState
bST_INDETERMINATE     =  2
bST_UNCHECKED         :: ButtonState
bST_UNCHECKED         =  0

{-# LINE 76 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

checkDlgButton :: HWND -> Int -> ButtonState -> IO ()
checkDlgButton dialog button check =
  failIfFalse_ "CheckDlgButton" $ c_CheckDlgButton dialog button check
foreign import WINDOWS_CCONV unsafe "windows.h CheckDlgButton"
  c_CheckDlgButton :: HWND -> Int -> ButtonState -> IO Bool

checkRadioButton :: HWND -> Int -> Int -> Int -> IO ()
checkRadioButton dialog first_button last_button check =
  failIfFalse_ "CheckRadioButton" $
    c_CheckRadioButton dialog first_button last_button check
foreign import WINDOWS_CCONV unsafe "windows.h CheckRadioButton"
  c_CheckRadioButton :: HWND -> Int -> Int -> Int -> IO Bool

isDlgButtonChecked :: HWND -> Int -> IO ButtonState
isDlgButtonChecked wnd button =
  failIfZero "IsDlgButtonChecked" $ c_IsDlgButtonChecked wnd button
foreign import WINDOWS_CCONV unsafe "windows.h IsDlgButtonChecked"
  c_IsDlgButtonChecked :: HWND -> Int -> IO ButtonState


-- == ComboBoxes aka. pop up list boxes/selectors.


type ComboBoxStyle = WindowStyle

cBS_SIMPLE            :: ComboBoxStyle
cBS_SIMPLE            =  1
cBS_DROPDOWN          :: ComboBoxStyle
cBS_DROPDOWN          =  2
cBS_DROPDOWNLIST      :: ComboBoxStyle
cBS_DROPDOWNLIST      =  3
cBS_OWNERDRAWFIXED    :: ComboBoxStyle
cBS_OWNERDRAWFIXED    =  16
cBS_OWNERDRAWVARIABLE  :: ComboBoxStyle
cBS_OWNERDRAWVARIABLE  =  32
cBS_AUTOHSCROLL       :: ComboBoxStyle
cBS_AUTOHSCROLL       =  64
cBS_OEMCONVERT        :: ComboBoxStyle
cBS_OEMCONVERT        =  128
cBS_SORT              :: ComboBoxStyle
cBS_SORT              =  256
cBS_HASSTRINGS        :: ComboBoxStyle
cBS_HASSTRINGS        =  512
cBS_NOINTEGRALHEIGHT  :: ComboBoxStyle
cBS_NOINTEGRALHEIGHT  =  1024
cBS_DISABLENOSCROLL   :: ComboBoxStyle
cBS_DISABLENOSCROLL   =  2048

{-# LINE 114 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

createComboBox
  :: String -> WindowStyle -> ComboBoxStyle
  -> Maybe Pos -> Maybe Pos -> Maybe Pos -> Maybe Pos
  -> HWND -> Maybe HMENU -> HANDLE
  -> IO HWND
createComboBox nm wstyle cstyle mb_x mb_y mb_w mb_h parent mb_menu h =
  withTString nm $ \ c_nm ->
  failIfNull "CreateComboBox" $
    c_CreateWindowEx 0 comboBoxStyle c_nm (wstyle .|. cstyle)
      (maybePos mb_x) (maybePos mb_y) (maybePos mb_w) (maybePos mb_h)
      parent (maybePtr mb_menu) h nullPtr

comboBoxStyle :: ClassName
comboBoxStyle = unsafePerformIO (newTString "COMBOBOX")

-- see comment about freeing windowNames in System.Win32.Window.createWindow

-- %end free(nm)



--- == Edit controls


----------------------------------------------------------------


type EditStyle = WindowStyle

eS_LEFT               :: EditStyle
eS_LEFT               =  0
eS_CENTER             :: EditStyle
eS_CENTER             =  1
eS_RIGHT              :: EditStyle
eS_RIGHT              =  2
eS_MULTILINE          :: EditStyle
eS_MULTILINE          =  4
eS_UPPERCASE          :: EditStyle
eS_UPPERCASE          =  8
eS_LOWERCASE          :: EditStyle
eS_LOWERCASE          =  16
eS_PASSWORD           :: EditStyle
eS_PASSWORD           =  32
eS_AUTOVSCROLL        :: EditStyle
eS_AUTOVSCROLL        =  64
eS_AUTOHSCROLL        :: EditStyle
eS_AUTOHSCROLL        =  128
eS_NOHIDESEL          :: EditStyle
eS_NOHIDESEL          =  256
eS_OEMCONVERT         :: EditStyle
eS_OEMCONVERT         =  1024
eS_READONLY           :: EditStyle
eS_READONLY           =  2048
eS_WANTRETURN         :: EditStyle
eS_WANTRETURN         =  4096

{-# LINE 155 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

createEditWindow
  :: String -> WindowStyle -> EditStyle
  -> Maybe Pos -> Maybe Pos -> Maybe Pos -> Maybe Pos
  -> HWND -> Maybe HMENU -> HANDLE
  -> IO HWND
createEditWindow nm wstyle estyle mb_x mb_y mb_w mb_h parent mb_menu h =
  withTString nm $ \ c_nm ->
  failIfNull "CreateEditWindow" $
    c_CreateWindowEx 0 editStyle c_nm (wstyle .|. estyle)
      (maybePos mb_x) (maybePos mb_y) (maybePos mb_w) (maybePos mb_h)
      parent (maybePtr mb_menu) h nullPtr

editStyle :: ClassName
editStyle = unsafePerformIO (newTString "EDIT")

-- see comment about freeing windowNames in System.Win32.Window.createWindow

-- %end free(nm)


-- == List boxes



----------------------------------------------------------------


type ListBoxStyle   = WindowStyle

lBS_NOTIFY            :: ListBoxStyle
lBS_NOTIFY            =  1
lBS_SORT              :: ListBoxStyle
lBS_SORT              =  2
lBS_NOREDRAW          :: ListBoxStyle
lBS_NOREDRAW          =  4
lBS_MULTIPLESEL       :: ListBoxStyle
lBS_MULTIPLESEL       =  8
lBS_OWNERDRAWFIXED    :: ListBoxStyle
lBS_OWNERDRAWFIXED    =  16
lBS_OWNERDRAWVARIABLE  :: ListBoxStyle
lBS_OWNERDRAWVARIABLE  =  32
lBS_HASSTRINGS        :: ListBoxStyle
lBS_HASSTRINGS        =  64
lBS_USETABSTOPS       :: ListBoxStyle
lBS_USETABSTOPS       =  128
lBS_NOINTEGRALHEIGHT  :: ListBoxStyle
lBS_NOINTEGRALHEIGHT  =  256
lBS_MULTICOLUMN       :: ListBoxStyle
lBS_MULTICOLUMN       =  512
lBS_WANTKEYBOARDINPUT  :: ListBoxStyle
lBS_WANTKEYBOARDINPUT  =  1024
lBS_DISABLENOSCROLL   :: ListBoxStyle
lBS_DISABLENOSCROLL   =  4096
lBS_STANDARD          :: ListBoxStyle
lBS_STANDARD          =  10485763

{-# LINE 196 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

createListBox
  :: String -> WindowStyle -> ListBoxStyle
  -> Maybe Pos -> Maybe Pos -> Maybe Pos -> Maybe Pos
  -> HWND -> Maybe HMENU -> HANDLE
  -> IO HWND
createListBox nm wstyle lstyle mb_x mb_y mb_w mb_h parent mb_menu h =
  withTString nm $ \ c_nm ->
  failIfNull "CreateListBox" $
    c_CreateWindowEx 0 listBoxStyle c_nm (wstyle .|. lstyle)
      (maybePos mb_x) (maybePos mb_y) (maybePos mb_w) (maybePos mb_h)
      parent (maybePtr mb_menu) h nullPtr

listBoxStyle :: ClassName
listBoxStyle = unsafePerformIO (newTString "LISTBOX")

-- see comment about freeing windowNames in System.Win32.Window.createWindow

-- %end free(nm)


-- == Scrollbars



----------------------------------------------------------------


type ScrollbarStyle = WindowStyle

sBS_HORZ                      :: ScrollbarStyle
sBS_HORZ                      =  0
sBS_TOPALIGN                  :: ScrollbarStyle
sBS_TOPALIGN                  =  2
sBS_BOTTOMALIGN               :: ScrollbarStyle
sBS_BOTTOMALIGN               =  4
sBS_VERT                      :: ScrollbarStyle
sBS_VERT                      =  1
sBS_LEFTALIGN                 :: ScrollbarStyle
sBS_LEFTALIGN                 =  2
sBS_RIGHTALIGN                :: ScrollbarStyle
sBS_RIGHTALIGN                =  4
sBS_SIZEBOX                   :: ScrollbarStyle
sBS_SIZEBOX                   =  8
sBS_SIZEBOXTOPLEFTALIGN       :: ScrollbarStyle
sBS_SIZEBOXTOPLEFTALIGN       =  2
sBS_SIZEBOXBOTTOMRIGHTALIGN   :: ScrollbarStyle
sBS_SIZEBOXBOTTOMRIGHTALIGN   =  4

{-# LINE 233 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

createScrollbar
  :: String -> WindowStyle -> ScrollbarStyle
  -> Maybe Pos -> Maybe Pos -> Maybe Pos -> Maybe Pos
  -> HWND -> Maybe HMENU -> HANDLE
  -> IO HWND
createScrollbar nm wstyle sstyle mb_x mb_y mb_w mb_h parent mb_menu h =
  withTString nm $ \ c_nm ->
  failIfNull "CreateScrollbar" $
    c_CreateWindowEx 0 scrollBarStyle c_nm (wstyle .|. sstyle)
      (maybePos mb_x) (maybePos mb_y) (maybePos mb_w) (maybePos mb_h)
      parent (maybePtr mb_menu) h nullPtr

scrollBarStyle :: ClassName
scrollBarStyle = unsafePerformIO (newTString "SCROLLBAR")

-- see comment about freeing windowNames in System.Win32.Window.createWindow

-- %end free(nm)


-- == Static controls aka. labels



----------------------------------------------------------------


type StaticControlStyle = WindowStyle

sS_LEFT               :: StaticControlStyle
sS_LEFT               =  0
sS_CENTER             :: StaticControlStyle
sS_CENTER             =  1
sS_RIGHT              :: StaticControlStyle
sS_RIGHT              =  2
sS_ICON               :: StaticControlStyle
sS_ICON               =  3
sS_BLACKRECT          :: StaticControlStyle
sS_BLACKRECT          =  4
sS_GRAYRECT           :: StaticControlStyle
sS_GRAYRECT           =  5
sS_WHITERECT          :: StaticControlStyle
sS_WHITERECT          =  6
sS_BLACKFRAME         :: StaticControlStyle
sS_BLACKFRAME         =  7
sS_GRAYFRAME          :: StaticControlStyle
sS_GRAYFRAME          =  8
sS_WHITEFRAME         :: StaticControlStyle
sS_WHITEFRAME         =  9
sS_SIMPLE             :: StaticControlStyle
sS_SIMPLE             =  11
sS_LEFTNOWORDWRAP     :: StaticControlStyle
sS_LEFTNOWORDWRAP     =  12
sS_NOPREFIX           :: StaticControlStyle
sS_NOPREFIX           =  128

{-# LINE 274 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

createStaticWindow
  :: String -> WindowStyle -> StaticControlStyle
  -> Maybe Pos -> Maybe Pos -> Maybe Pos -> Maybe Pos
  -> HWND -> Maybe HMENU -> HANDLE
  -> IO HWND
createStaticWindow nm wstyle sstyle mb_x mb_y mb_w mb_h parent mb_menu h =
  withTString nm $ \ c_nm ->
  failIfNull "CreateStaticWindow" $
    c_CreateWindowEx 0 staticStyle c_nm (wstyle .|. sstyle)
      (maybePos mb_x) (maybePos mb_y) (maybePos mb_w) (maybePos mb_h)
      parent (maybePtr mb_menu) h nullPtr

staticStyle :: ClassName
staticStyle = unsafePerformIO (newTString "STATIC")

-- see comment about freeing windowNames in System.Win32.Window.createWindow

-- %end free(nm)



{-# LINE 335 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

pBM_DELTAPOS  :: WindowMessage
pBM_DELTAPOS  =  1027
pBM_SETPOS    :: WindowMessage
pBM_SETPOS    =  1026
pBM_SETRANGE  :: WindowMessage
pBM_SETRANGE  =  1025
pBM_SETSTEP   :: WindowMessage
pBM_SETSTEP   =  1028
pBM_STEPIT    :: WindowMessage
pBM_STEPIT    =  1029

{-# LINE 343 "libraries\\Win32\\Graphics\\Win32\\Control.hsc" #-}

-- % , PBM_GETRANGE

-- % , PBM_GETPOS

-- % , PBM_SETBARCOLOR

-- % , PBM_SETBKCOLOR

-- % , PBM_SETRANGE32