LINUX.ORG.RU

История изменений

Исправление Shushundr, (текущая версия) :

Например мне непонятно, почему при выполнении кода «GTK.mainQuit» (MainQuit)

  GTK.onWidgetKeyPressEvent window $ \keyPressInfo -> do 
    keyVal <- GDK.getEventKeyKeyval keyPressInfo
    keyName <- fromMaybe Text.empty <$> GDK.keyvalName keyVal
    case Text.unpack keyName of
      "Escape" -> do GTK.mainQuit
                     return True
      _        -> return False
Программа не закрывает окно. Для того, чтобы окно закрылось нужно выйти из консоли ghci.

Неужели так сложно было закрыть окно? (и выключить свет...)

Исправление Shushundr, :

Например мне непонятно, почему при выполнении кода «GTK.mainQuit» (MainQuit)

  GTK.onWidgetKeyPressEvent window $ \keyPressInfo -> do 
    keyVal <- GDK.getEventKeyKeyval keyPressInfo
    keyName <- fromMaybe Text.empty <$> GDK.keyvalName keyVal
    case Text.unpack keyName of
      "Escape" -> do GTK.mainQuit
                     return True
      _        -> return False
Программа не закрывает окно. Для того, чтобы окно закрылось нужно выйти из консоли ghci.

Исходная версия Shushundr, :

Например мне непонятно, почему при выполнении кода «GTK.mainQuit»

  GTK.onWidgetKeyPressEvent window $ \keyPressInfo -> do 
    keyVal <- GDK.getEventKeyKeyval keyPressInfo
    keyName <- fromMaybe Text.empty <$> GDK.keyvalName keyVal
    case Text.unpack keyName of
      "Escape" -> do GTK.mainQuit
                     return True
      _        -> return False
Программа не закрывает окно. Для того, чтобы окно закрылось нужно выйти из консоли ghci.