Subversion Repositories openrisc

// Copyright 2011 The Go Authors. All rights reserved.

// Use of this source code is governed by a BSD-style

// license that can be found in the LICENSE file.

// +build windows

package main

import (

        "syscall"

        "unsafe"

)

type Wndclassex struct {

        Size       uint32

        Style      uint32

        WndProc    uintptr

        ClsExtra   int32

        WndExtra   int32

        Instance   syscall.Handle

        Icon       syscall.Handle

        Cursor     syscall.Handle

        Background syscall.Handle

        MenuName   *uint16

        ClassName  *uint16

        IconSm     syscall.Handle

}

type Point struct {

        X uintptr

        Y uintptr

}

type Msg struct {

        Hwnd    syscall.Handle

        Message uint32

        Wparam  uintptr

        Lparam  uintptr

        Time    uint32

        Pt      Point

}

const (

        // Window styles

        WS_OVERLAPPED   = 0

        WS_POPUP        = 0x80000000

        WS_CHILD        = 0x40000000

        WS_MINIMIZE     = 0x20000000

        WS_VISIBLE      = 0x10000000

        WS_DISABLED     = 0x8000000

        WS_CLIPSIBLINGS = 0x4000000

        WS_CLIPCHILDREN = 0x2000000

        WS_MAXIMIZE     = 0x1000000

        WS_CAPTION      = WS_BORDER | WS_DLGFRAME

        WS_BORDER       = 0x800000

        WS_DLGFRAME     = 0x400000

        WS_VSCROLL      = 0x200000

        WS_HSCROLL      = 0x100000

        WS_SYSMENU      = 0x80000

        WS_THICKFRAME   = 0x40000

        WS_GROUP        = 0x20000

        WS_TABSTOP      = 0x10000

        WS_MINIMIZEBOX  = 0x20000

        WS_MAXIMIZEBOX  = 0x10000

        WS_TILED        = WS_OVERLAPPED

        WS_ICONIC       = WS_MINIMIZE

        WS_SIZEBOX      = WS_THICKFRAME

        // Common Window Styles

        WS_OVERLAPPEDWINDOW = WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX

        WS_TILEDWINDOW      = WS_OVERLAPPEDWINDOW

        WS_POPUPWINDOW      = WS_POPUP | WS_BORDER | WS_SYSMENU

        WS_CHILDWINDOW      = WS_CHILD

        WS_EX_CLIENTEDGE = 0x200

        // Some windows messages

        WM_CREATE  = 1

        WM_DESTROY = 2

        WM_CLOSE   = 16

        WM_COMMAND = 273

        // Some button control styles

        BS_DEFPUSHBUTTON = 1

        // Some color constants

        COLOR_WINDOW  = 5

        COLOR_BTNFACE = 15

        // Default window position

        CW_USEDEFAULT = 0x80000000 - 0x100000000

        // Show window default style

        SW_SHOWDEFAULT = 10

)

var (

        // Some globally known cursors

        IDC_ARROW = MakeIntResource(32512)

        IDC_IBEAM = MakeIntResource(32513)

        IDC_WAIT  = MakeIntResource(32514)

        IDC_CROSS = MakeIntResource(32515)

        // Some globally known icons

        IDI_APPLICATION = MakeIntResource(32512)

        IDI_HAND        = MakeIntResource(32513)

        IDI_QUESTION    = MakeIntResource(32514)

        IDI_EXCLAMATION = MakeIntResource(32515)

        IDI_ASTERISK    = MakeIntResource(32516)

        IDI_WINLOGO     = MakeIntResource(32517)

        IDI_WARNING     = IDI_EXCLAMATION

        IDI_ERROR       = IDI_HAND

        IDI_INFORMATION = IDI_ASTERISK

)

//sys   GetModuleHandle(modname *uint16) (handle syscall.Handle, err error) = GetModuleHandleW

//sys   RegisterClassEx(wndclass *Wndclassex) (atom uint16, err error) = user32.RegisterClassExW

//sys   CreateWindowEx(exstyle uint32, classname *uint16, windowname *uint16, style uint32, x int32, y int32, width int32, height int32, wndparent syscall.Handle, menu syscall.Handle, instance syscall.Handle, param uintptr) (hwnd syscall.Handle, err error) = user32.CreateWindowExW

//sys   DefWindowProc(hwnd syscall.Handle, msg uint32, wparam uintptr, lparam uintptr) (lresult uintptr) = user32.DefWindowProcW

//sys   DestroyWindow(hwnd syscall.Handle) (err error) = user32.DestroyWindow

//sys   PostQuitMessage(exitcode int32) = user32.PostQuitMessage

//sys   ShowWindow(hwnd syscall.Handle, cmdshow int32) (wasvisible bool) = user32.ShowWindow

//sys   UpdateWindow(hwnd syscall.Handle) (err error) = user32.UpdateWindow

//sys   GetMessage(msg *Msg, hwnd syscall.Handle, MsgFilterMin uint32, MsgFilterMax uint32) (ret int32, err error) [failretval==-1] = user32.GetMessageW

//sys   TranslateMessage(msg *Msg) (done bool) = user32.TranslateMessage

//sys   DispatchMessage(msg *Msg) (ret int32) = user32.DispatchMessageW

//sys   LoadIcon(instance syscall.Handle, iconname *uint16) (icon syscall.Handle, err error) = user32.LoadIconW

//sys   LoadCursor(instance syscall.Handle, cursorname *uint16) (cursor syscall.Handle, err error) = user32.LoadCursorW

//sys   SetCursor(cursor syscall.Handle) (precursor syscall.Handle, err error) = user32.SetCursor

//sys   SendMessage(hwnd syscall.Handle, msg uint32, wparam uintptr, lparam uintptr) (lresult uintptr) = user32.SendMessageW

//sys   PostMessage(hwnd syscall.Handle, msg uint32, wparam uintptr, lparam uintptr) (err error) = user32.PostMessageW

func MakeIntResource(id uint16) *uint16 {

        return (*uint16)(unsafe.Pointer(uintptr(id)))

}