mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-19 03:52:17 +00:00
a15faa6309
interface to the user interface description and command language Tcl/Tk. It allows the implementation of graphical user interfaces in a structured and reusable way, supported by the powerful module system of Standard ML. WWW: http://www.informatik.uni-bremen.de/~cxl/sml_tk PR: ports/119640 Submitted by: Timothy Bourke <timbob at bigpond.com>
36 lines
1.3 KiB
Standard ML
36 lines
1.3 KiB
Standard ML
--- src/export.sml.orig Fri Mar 30 23:39:11 2001
|
|
+++ src/export.sml Sun Jan 13 13:45:28 2008
|
|
@@ -198,6 +198,10 @@
|
|
val moveCItem : WidId -> CItemId -> Coord -> unit
|
|
val setCItemCoords : WidId -> CItemId -> Coord list -> unit
|
|
|
|
+(* 4.? List Items *)
|
|
+ val addLItemConf : WidId -> Configure list -> Mark -> unit
|
|
+ val clearLItemConf : WidId -> Mark -> unit
|
|
+
|
|
(* 4.7 Menues *)
|
|
val popUpMenu : WidId -> int Option.option -> Coord -> unit
|
|
|
|
@@ -433,6 +437,8 @@
|
|
val newWinId = newWidgetId (* dodgy *)
|
|
val newImageId = newWidgetId (* me too *)
|
|
|
|
+ val addLItemConf = WidgetTree.configureLItem
|
|
+ val clearLItemConf = WidgetTree.clearLItemConfig
|
|
|
|
(* these also have to check their arguments for non-alphanumerical
|
|
* characters etc. *)
|
|
@@ -478,8 +484,10 @@
|
|
fun setFontBasesize x= (#BaseSize(Fonts.Config) := x; initFonts())
|
|
|
|
fun xSmlTk{imagefile, banner}
|
|
- = SysDep.exportML {init= SysInit.initSmlTk,
|
|
- banner= banner, imagefile=imagefile}
|
|
+ = (updTclPath (#default SysConf.wishVar);
|
|
+ updLibPath (#default SysConf.libVar);
|
|
+ SysDep.exportML {init= SysInit.initSmlTk,
|
|
+ banner= banner, imagefile=imagefile})
|
|
|
|
val getEnvSetting = SysInit.getEnvSetting
|
|
|