Commit 701a536e authored by Peter Achten's avatar Peter Achten

(PA): eigen versie up-to-date gemaakt met laatste wijzigingen.

parent fec0c13f
This diff is collapsed.
......@@ -17,7 +17,6 @@ homepath fname = osHomepath fname
applicationpath :: !String -> String
applicationpath fname = osApplicationpath fname
// MW11++
newlineChars :: String
newlineChars = OSnewlineChars
......
......@@ -28,19 +28,15 @@ import ostoolbox
, rSelect :: SelectState // The attribute ReceiverSelect==Able (default True)
, rOneWay :: Bool // The receiver definition was Receiver (not Receiver2)
, rFun :: RHandleFunction ls m r pst // If rOneWay then [r]==[], otherwise [r]==[_]
// MW11..
, rInetInfo :: !Maybe (EndpointRef`,InetReceiverCategory`,Int,IdFun *OSToolbox)
// For internet receivers
, rConnected :: ![Id] // storing the argument of the ReceiverCloseAlsoReceivers attribute
// ..MW11
}
:: RHandleFunction ls m r pst
:== m -> *(ls,pst) -> *(ls,[r],pst)
// MW11..
:: InetReceiverASMQType :== (!InetEvent`,!EndpointRef`,!Int)
:: InetEvent` :== Int
:: EndpointRef` :== Int
:: InetReceiverCategory` :== Int
// ..MW11
......@@ -27,10 +27,8 @@ import ostoolbox
:: RHandleFunction ls m r pst
:== m -> *(ls,pst) -> *(ls,[r],pst)
// MW11..
:: InetReceiverASMQType :== (!InetEvent`,!EndpointRef`,!Int)
:: InetEvent` :== Int
:: EndpointRef` :== Int
:: InetReceiverCategory` :== Int
// ..MW11
......@@ -314,7 +314,7 @@ where
getWItemAtt` (ControlVScroll f) = ControlVScroll` f
getWItemAtt` (ControlWidth width) = ControlWidth` width
getWItemInfo` :: !OSWindowPtr !OSWindowPtr !(WItemInfo .ls .pst) !*OSToolbox -> (WItemInfo`,!WItemInfo .ls .pst,!*OSToolbox)
getWItemInfo` :: !OSWindowPtr !OSWindowPtr !(WItemInfo .ls .pst) !*OSToolbox -> (!WItemInfo`,!WItemInfo .ls .pst,!*OSToolbox)
getWItemInfo` wPtr itemPtr info=:(RadioInfo {radioItems,radioLayout,radioIndex}) tb
= ( RadioInfo` { radioItems` = map getRadioInfo` radioItems
, radioLayout` = radioLayout
......@@ -658,4 +658,3 @@ instance toString (ControlAttribute .st) where
toString (ControlVMargin _ _) = "ControlVMargin"
toString (ControlVScroll _) = "ControlVScroll"
toString (ControlWidth _) = "ControlWidth"
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