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.
25 lines
489 B
25 lines
489 B
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 () |
|
|
|
|