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 Graphics.UI.FLTK.LowLevel.FL
|
|
|
|
|
import Graphics.UI.FLTK.LowLevel.FLTKHS
|
|
|
|
|
|
|
|
|
|
callback :: DdeCallback
|
|
|
|
|
callback = undefined
|
|
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
dis <- initDataImportServer "atrade"
|
|
|
|
|
forever $ threadDelay 1000
|
|
|
|
|
window <- windowNew (Size (Width 320) (Height 170))
|
|
|
|
|
Nothing Nothing
|
|
|
|
|
end window
|
|
|
|
|
showWidget window
|
|
|
|
|
_ <- run
|
|
|
|
|
return ()
|
|
|
|
|
|
