aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Task/Simple-windowed-application/Standard-ML/simple-windowed-application.ml Normal file
View file

@ -0,0 +1,27 @@
open XWindows ;
open Motif ;
val countWindow = fn () =>
let
val ctr = ref 0;
val shell = XtAppInitialise "" "demo" "top" [] [XmNwidth 300, XmNheight 150 ] ;
val main = XmCreateMainWindow shell "main" [XmNmappedWhenManaged true ] ;
val frame = XmCreateForm main "frame" [XmNwidth 390, XmNheight 290 ] ;
val text = XmCreateLabel frame "show" [XmNlabelString "No clicks yet" ] ;
val buttn = XmCreateDrawnButton frame "press" [XmNwidth 75 , XmNheight 30 ,
XmNlabelString "Click me" ,
XmNbottomAttachment XmATTACH_POSITION,XmNbottomPosition 98 ] ;
val report = fn (w,c,t) =>
(XtSetValues text [XmNlabelString (Int.toString (ctr:= !ctr +1; !ctr)) ] ; t )
in
(
XtSetCallbacks buttn [ (XmNactivateCallback , report) ] XmNarmCallback ;
XtManageChildren [ text,buttn ] ;
XtManageChildren [ frame ] ;
XtManageChild main ;
XtRealizeWidget shell
)
end;