diff options
Diffstat (limited to 'oswindow.icl')
| -rw-r--r-- | oswindow.icl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/oswindow.icl b/oswindow.icl index 62a9989..54ac7ac 100644 --- a/oswindow.icl +++ b/oswindow.icl @@ -196,6 +196,7 @@ osGetSliderControlMinWidth _ = 0 /* Window creation functions.
*/
+import StdMisc
osCreateDialog :: !Bool !Bool !String !(!Int,!Int) !(!Int,!Int) !OSWindowPtr
!(u:s->*(OSWindowPtr,u:s))
!(OSWindowPtr->u:s->u:(*OSToolbox->*(u:s,*OSToolbox)))
@@ -235,7 +236,9 @@ where = //trace_n "osCreateDialogCallback CcWmDEACTIVATE"
(return0Cci, (control_info,[DelayDeactivatedWindow hwnd:delay_info]), tb)
osCreateDialogCallback get_focus create_controls _ {ccMsg=CcWmINITDIALOG,p1=hwnd} (control_info,delay_info) tb
+ //| True = abort ("osCreateDialogCallback: " +++ toString hwnd +++ "; " +++ toString (2^62) +++ "\n")
# (control_info,tb) = create_controls hwnd control_info tb
+ //| tb == tb = abort "callback, after create_controls\n"
# (defhandle,control_info) = get_focus control_info
(x,y) = pos
(w,h) = size
@@ -562,8 +565,15 @@ osCreateSliderControl parentWindow parentPos show able horizontal (x,y) (w,h) (m # tb = winShowControl sliderPtr show tb
= (sliderPtr,tb)
+instance toString (a,b) | toString a & toString b
+where
+ toString (a,b) = "(" +++ toString a +++ "," +++ toString b +++")"
+from StdMisc import abort
osCreateTextControl :: !OSWindowPtr !(!Int,!Int) !String !Bool !(!Int,!Int) !(!Int,!Int) !*OSToolbox -> (!OSWindowPtr,!*OSToolbox)
osCreateTextControl parentWindow parentPos text show (x,y) (w,h) tb
+ //| True = abort ("osCreateTextControl\n" +++ toString parentWindow +++ "\n" +++
+ // toString parentPos +++ " - " +++ text +++ " - " +++ toString show +++ "\n" +++
+ // "(" +++ toString x +++ "," +++ toString y +++ ") - (" +++ toString w +++ "," +++ toString h +++ ") - " +++ toString tb +++ "\n")
# (x,y) = (x-fst parentPos,y-snd parentPos)
createcci = Rq5Cci CcRqCREATESTATICTXT parentWindow x y w h
# (returncci,tb)= issueCleanRequest2 osIgnoreCallback createcci tb
|