VPF::Странная ошибка при вызове messageBox

n1tn4tsn0k

Дата 1.7.2011, 02:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 1.7.2011

Репутация: нет
Всего: нет

Здравствуйте.
Написал на Хаскеле код для Win32, с виду вполне валидный. Приложение представляет собой окошко с кнопкой. По нажатию на кнопку должно вывалиться окошко с сообщением, но почему-то программа вылетает с сообщением об ошибке:

Код


buttons.exe: schedule: re-entered unsafely.
   Perhaps a 'foreign import unsafe' should be 'safe'?

Вот код:

Код


-- Simple windowed program in Haskell

import Graphics.Win32
import System.Win32.DLL
import Control.Exception (bracket)
import Foreign
import System.Exit

main :: IO ()
main = do
    mainInstance <- getModuleHandle Nothing
    hwnd <- createWindow_ 200 200 wndProc mainInstance
    createButton_ hwnd mainInstance
    messagePump hwnd

wndProc :: HWND -> WindowMessage -> WPARAM -> LPARAM -> IO LRESULT
wndProc hwnd wmsg wParam lParam
    | wmsg == wM_DESTROY = do
        sendMessage hwnd wM_QUIT 1 0
        return 0
    | wmsg == wM_COMMAND && wParam == 1 = do
        messageBox nullPtr "Yahoo!!" "Message box" 0 -- Error! Why? :(
        return 0
    | otherwise = defWindowProc (Just hwnd) wmsg wParam lParam

createWindow_ :: Int -> Int -> WindowClosure -> HINSTANCE -> IO HWND
createWindow_ width height wndProc mainInstance = do
    let winClass = mkClassName "ButtonExampleWindow"
    icon <- loadIcon Nothing iDI_APPLICATION
    cursor <- loadCursor Nothing iDC_ARROW
    bgBrush <- createSolidBrush (rgb 240 240 240)
    registerClass (cS_VREDRAW + cS_HREDRAW, mainInstance, Just icon, Just cursor, Just bgBrush, Nothing, winClass)
    w <- createWindow winClass "Button example" wS_OVERLAPPEDWINDOW Nothing Nothing (Just width) (Just height) Nothing Nothing mainInstance wndProc
    showWindow w sW_SHOWNORMAL
    updateWindow w
    return w

createButton_ :: HWND -> HINSTANCE -> IO ()
createButton_ hwnd mainInstance = do
    hBtn <- createButton "Press me" wS_EX_CLIENTEDGE (bS_PUSHBUTTON + wS_VISIBLE + wS_CHILD) (Just 50) (Just 80) (Just 80) (Just 20) (Just hwnd) (Just (castUINTToPtr 1)) mainInstance
    return ()

messagePump :: HWND -> IO ()
messagePump hwnd = allocaMessage $ \ msg ->
    let pump = do
        getMessage msg (Just hwnd) `catch` \ _ -> exitWith ExitSuccess
        translateMessage msg
        dispatchMessage msg
        pump
    in pump

На 22-й строке этот самый вызов messageBox. Причем, если я создаю отдельный исходник с одним лишь только этом вызовом, я вижу нормальное сообщение, а ошибка только при вызове из оконной процедуры.
Что делать? Подскажите, пожалуйста. В хаскелле недавно.

afiskon

Дата 1.7.2011, 04:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 294
Регистрация: 31.3.2011
Где: Россия, Москва

Репутация: нет
Всего: 4

Сам недавно в Хаскеле, так что на данный вопрос вряд ли помогу ответить. Наверное, ответ где-то в доках. Хочу только отметить, что есть модуль wxHaskell, который
1. Кроссплатформенный
2. Более высокоуровневый, следовательно - меньше кода
3. Имеет версии практически под все современные языки

Может, его попробуете?

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

Записки программиста

n1tn4tsn0k

Дата 1.7.2011, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 1.7.2011

Репутация: нет
Всего: нет

Цитата

Может, его попробуете?

Нет, спасибо. Не стоит закрывать глаза на такие вещи. Если валидный код работает не так, как нужно, это - не шутки, а проблема компилятора/библиотек. Я думаю, стоит разобраться, в чем именно проблема. Я прошу помочь мне это сделать, а не советовать более гладкие пути.

A5uKa

Дата 9.9.2011, 11:15 (ссылка)

(нет голосов)

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16

попробуй заменить
import Graphics.Win32
на
import Graphics.Win32 hiding (messageBox, c_MessageBox)

Измени messageBox и c_MessageBox на Graphics.Win32.Misc без unsafe :

Код


messageBox :: HWND -> String -> String -> MBStyle -> IO MBStatus
messageBox wnd text caption style =
  withTString text $ \ c_text ->
  withTString caption $ \ c_caption ->
  failIfZero "MessageBox" $ c_MessageBox wnd c_text c_caption style
foreign import stdcall safe "windows.h MessageBoxW"
  c_MessageBox :: HWND -> LPCTSTR -> LPCTSTR -> MBStyle -> IO MBStatus

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Функциональные языки: общие вопросы \| Следующая тема »