Commit 0cda3658 authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

platform dependencies

parent 7c89244a
...@@ -7,7 +7,7 @@ class content_size c :: FontMetrics c -> Int ...@@ -7,7 +7,7 @@ class content_size c :: FontMetrics c -> Int
::FlexBarState s ::FlexBarState s
:: FlexBarWindow s ls pst :: FlexBarWindow s ls pst
= FlexBarWindow Title [(String, Maybe Int)] s = FlexBarWindow Title [(String, Maybe Int)] s
(!s .Int .Int [.Int] -> (.SelectState .UpdateState -> .(*Picture -> *Picture))) (s .Int .Int [.Int] -> (.SelectState .UpdateState -> .(*Picture -> *Picture)))
![(FlexBarState s) -> FlexBarState s] ![(FlexBarState s) -> FlexBarState s]
(R2Id (MessageIn s) (MessageOut s)) [WindowAttribute *(ls,pst)] (R2Id (MessageIn s) (MessageOut s)) [WindowAttribute *(ls,pst)]
......
...@@ -13,6 +13,7 @@ o Sensible size handling ...@@ -13,6 +13,7 @@ o Sensible size handling
import StdEnum, StdString, StdFunc, StdList, StdBool, StdTuple, StdMisc, StdArray import StdEnum, StdString, StdFunc, StdList, StdBool, StdTuple, StdMisc, StdArray
import StdWindow, StdId, StdProcess, StdWindowAttribute, StdReceiver import StdWindow, StdId, StdProcess, StdWindowAttribute, StdReceiver
import StdPSt, StdPicture, StdControl, StdControlReceiver import StdPSt, StdPicture, StdControl, StdControlReceiver
import Platform
class content_size c :: FontMetrics c -> Int class content_size c :: FontMetrics c -> Int
...@@ -57,16 +58,22 @@ mi2cw (Just w) ...@@ -57,16 +58,22 @@ mi2cw (Just w)
Title Title
[(String, Maybe Int)] [(String, Maybe Int)]
s s
(!s .Int .Int [.Int] -> (.SelectState .UpdateState -> .(*Picture -> *Picture))) (s .Int .Int [.Int] -> (.SelectState .UpdateState -> .(*Picture -> *Picture)))
![(FlexBarState s) -> FlexBarState s] ![(FlexBarState s) -> FlexBarState s]
(R2Id (MessageIn s) (MessageOut s)) (R2Id (MessageIn s) (MessageOut s))
[WindowAttribute *(ls,pst)] [WindowAttribute *(ls,pst)]
flexFont = flexFont = PlatformDependant
// Win
{ fName = "Courier New" { fName = "Courier New"
, fStyles = []//[BoldStyle] , fStyles = []//[BoldStyle]
, fSize = 9//8 , fSize = 9//8
} }
// Mac
{ fName = "Monaco"//"Courier"
, fStyles = []//[BoldStyle]
, fSize = 10//9
}
instance Windows (FlexBarWindow s) | content_size s instance Windows (FlexBarWindow s) | content_size s
where where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment