हास्केल सोग्राफिक्स विंडो बंद नहीं होगा

Question

मैं वर्तमान में पुस्तक में अभ्यास का पालन कर रहा हूं: "हास्केल स्कूल ऑफ़ एक्सप्रेशन" और ग्राफिक्स बनाने पर तीसरे अध्याय तक पहुंच गया है। पुस्तक SOEGraphics मॉड्यूल का उपयोग करती है और एक विंडो में कुछ साधारण पाठ खींचने और फिर बटन दबाकर इसे बंद करने का प्रदर्शन करती है।

हालांकि, जब संकलन और निष्पादन के बाद, मुझे लगता है कि हालांकि स्क्रीन पर पाठ के साथ खिड़की दिखाई देती है, फिर भी खिड़की किस कुंजी को दबाती है या फोकस कमांड लाइन या खिड़की पर है या नहीं।

module Main where 
import SOE 
main = runGraphics(
     do w <- openWindow 
       "My First Graphics Program" (300, 300) 
      drawInWindow w (text(100,200) "HelloGraphicsWorld") 
      k <- getKey w 
      closeWindow w 
     ) 

केवल बंद करने के लिए खिड़की पाने के लिए जिस तरह से यह CTRL-C के साथ छोड़ने के लिए मजबूर कर रहा है:

यहाँ किताब से स्रोत कोड है। क्या मेरे पास कुछ कोड है जो मैंने अपने कोड से अनदेखा किया है? कार्यक्रम जीएचसी 7.4.1 का उपयोग करके संकलित किया गया था और उबंटू पर चलाया गया था।

Answer 1

getKeyChargetKey के पूर्णांक का प्रयास करें। ऐसा लगता है कि कुछ ओएस में व्यवहार और/या व्यवहार के लिए पसंदीदा विधि में बदलाव आया है।

Answer 2

मैं एसओई पैकेज के current release का उपयोग कर रहा हूं, जिसे प्रश्न की तारीख से 9 महीने पहले जारी किया गया था। प्रश्न के पोस्टर की तरह, मैं उबंटू (12.04) पर जीएचसीआई 7.4.1 चला रहा हूं। मैं इस मुद्दे पर भाग गया, लेकिन डकमेस्टरो का जवाब लागू नहीं हुआ:

getKeyChar एसओई पैकेज में किसी भी मॉड्यूल में परिभाषित नहीं किया गया है। हालांकि, getKeyEx है:

हालांकि SOE पैकेज अपने आप में undocumented, इस समारोह में अपनी namesake में Graphics.HGL.Utils मॉड्यूल का अनुकरण करने के लिए प्रकट होता है।

हालांकि, जबकि getKey एसओई मॉड्यूल से निर्यात किया जाता है, getKeyEx नहीं है।

क्रम संकलन और विंडो बंद एक कुंजी दबाने घटना

1. पर है करने के लिए सवाल में उद्धृत कोड में SOE मॉड्यूल
2. से getKeyEx निर्यात किया, k <- getKeyEx w True

Answer 3

को k <- getKey w बदल डैनियल सही है लेकिन मुझे यह अजीब लगता है कि प्राप्त करने के लिए KeyEx काम करता है जो कि केवल उपयोग करता है KeyEx नहीं करता है। तो मैंने देखा। समस्या बहुत स्पष्ट है। यहाँ getKey

getKey win = do 
    ch <- getKeyEx win True 
    if ch == '\x0' then return ch 
    else getKeyEx win False 

के लिए मौजूदा कोड यहाँ यह क्या होना चाहिए

getKey win = do 
    ch <- getKeyEx win True 
    if ch /= '\x0' then return ch 
    else getKeyEx win False 

यह सुधार करें और getKey काम करता है है।