You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Lib
|
|
|
|
|
import QuoteSource.DDE
|
|
|
|
|
import QuoteSource.DataImport
|
|
|
|
|
import Control.Concurrent
|
|
|
|
|
import Control.Monad
|
|
|
|
|
import Control.Monad.IO.Class
|
|
|
|
|
import Data.IORef
|
|
|
|
|
import Graphics.UI.Gtk hiding (Action, backspace)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
callback :: DdeCallback
|
|
|
|
|
callback = undefined
|
|
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
dis <- initDataImportServer "atrade"
|
|
|
|
|
void initGUI
|
|
|
|
|
window <- windowNew
|
|
|
|
|
window `on` deleteEvent $ do
|
|
|
|
|
liftIO mainQuit
|
|
|
|
|
return False
|
|
|
|
|
widgetShowAll window
|
|
|
|
|
mainGUI
|
|
|
|
|
|
