labltk 8.06.5 · OCaml Package

module Widget = Camltkwrap.Widget

module Protocol = Camltkwrap.Protocol

module Textvariable = Camltkwrap.Textvariable

module Fileevent = Camltkwrap.Fileevent

module Timer = Camltkwrap.Timer

val opentk : unit -> Camltkwrap.Widget.widget

val keywords : (string * Arg.spec * string) list

val opentk_with_args : string list -> Camltkwrap.Widget.widget

val openTk : 
  ?display:string ->
  ?clas:string ->
  unit ->
  Camltkwrap.Widget.widget

val openTkClass : string -> Camltkwrap.Widget.widget

val openTkDisplayClass : string -> string -> Camltkwrap.Widget.widget

val closeTk : unit -> unit

val mainLoop : unit -> unit

val register : string -> callback:(Protocol.callback_buffer -> unit) -> unit

val may : ('a -> 'b) -> 'a option -> 'b option

val maycons : ('a -> 'b) -> 'a option -> 'b list -> 'b list

val coe : 'a Widget.widget -> Widget.any Widget.widget

type filePattern = CTk.filePattern = {

typename : string;
extensions : string list;
mactypes : string list;

}

val cCAMLtoTKfilePattern : filePattern -> Protocol.tkArgs

type bitmap = CTk.bitmap =

| BitmapFile of string
| Predefined of string

type color = CTk.color =

| NamedColor of string
| Black
| White
| Red
| Green
| Blue
| Yellow

type cursor = CTk.cursor =

| XCursor of string
| XCursorFg of string * color
| XCursortFgBg of string * color * color
| CursorFileFg of string * color
| CursorMaskFile of string * string * color * color

type units = CTk.units =

| Pixels of int
| Centimeters of float
| Inches of float
| Millimeters of float
| PrinterPoint of float

type scrollValue = CTk.scrollValue =

| ScrollPage of int
| ScrollUnit of int
| MoveTo of float

type xEvent = CTk.xEvent =

| Activate
| ButtonPress
| ButtonPressDetail of int
| ButtonRelease
| ButtonReleaseDetail of int
| Circulate
| ColorMap
| Configure
| Deactivate
| Destroy
| Enter
| Expose
| FocusIn
| FocusOut
| Gravity
| KeyPress
| KeyPressDetail of string
| KeyRelease
| KeyReleaseDetail of string
| Leave
| Map
| Motion
| Property
| Reparent
| Unmap
| Visibility
| Virtual of string

type modifier = CTk.modifier =

| Control
| Shift
| Lock
| Button1
| Button2
| Button3
| Button4
| Button5
| Double
| Triple
| Mod1
| Mod2
| Mod3
| Mod4
| Mod5
| Meta
| Alt

type eventInfo = CTk.eventInfo = {

mutable ev_Above : int;
mutable ev_ButtonNumber : int;
mutable ev_Count : int;
mutable ev_Detail : string;
mutable ev_Focus : bool;
mutable ev_Height : int;
mutable ev_KeyCode : int;
mutable ev_Mode : string;
mutable ev_OverrideRedirect : bool;
mutable ev_Place : string;
mutable ev_State : string;
mutable ev_Time : int;
mutable ev_Width : int;
mutable ev_MouseX : int;
mutable ev_MouseY : int;
mutable ev_Char : string;
mutable ev_BorderWidth : int;
mutable ev_SendEvent : bool;
mutable ev_KeySymString : string;
mutable ev_KeySymInt : int;
mutable ev_RootWindow : int;
mutable ev_SubWindow : int;
mutable ev_Type : int;
mutable ev_Widget : Widget.widget;
mutable ev_RootX : int;
mutable ev_RootY : int;

}

type eventField = CTk.eventField =

| Ev_Above
| Ev_ButtonNumber
| Ev_Count
| Ev_Detail
| Ev_Focus
| Ev_Height
| Ev_KeyCode
| Ev_Mode
| Ev_OverrideRedirect
| Ev_Place
| Ev_State
| Ev_Time
| Ev_Width
| Ev_MouseX
| Ev_MouseY
| Ev_Char
| Ev_BorderWidth
| Ev_SendEvent
| Ev_KeySymString
| Ev_KeySymInt
| Ev_RootWindow
| Ev_SubWindow
| Ev_Type
| Ev_Widget
| Ev_RootX
| Ev_RootY

val filleventInfo : eventInfo -> string -> eventField -> unit

val wrapeventInfo : (eventInfo -> 'a) -> eventField list -> string list -> 'a

val writeeventField : eventField list -> string

type bindings = CTk.bindings =

| TagBindings of string
| WidgetBindings of Widget.widget

type font = string

type grabGlobal = bool

type index = CTk.index =

| Number of int
| ActiveElement
| End
| Last
| NoIndex
| Insert
| SelFirst
| SelLast
| At of int
| AtXY of int * int
| AnchorPoint
| Pattern of string
| LineChar of int * int
| Mark of string
| TagFirst of string
| TagLast of string
| Embedded of Widget.widget

type paletteType = CTk.paletteType =

| GrayShades of int
| RGBShades of int * int * int

type textMark = string

type textTag = string

type textModifier = CTk.textModifier =

| CharOffset of int
| LineOffset of int
| LineStart
| LineEnd
| WordStart
| WordEnd

type textIndex = CTk.textIndex =

| TextIndex of index * textModifier list
| TextIndexNone

type anchor = CTk.anchor =

| Center
| E
| N
| NE
| NW
| S
| SE
| SW
| W

type imageBitmap = CTk.imageBitmap =

| BitmapImage of string

type imagePhoto = CTk.imagePhoto =

| PhotoImage of string

type justification = CTk.justification =

| Justify_Center
| Justify_Left
| Justify_Right

type orientation = CTk.orientation =

| Horizontal
| Vertical

type relief = CTk.relief =

| Flat
| Groove
| Raised
| Ridge
| Solid
| Sunken

type state = CTk.state =

| Active
| Disabled
| Hidden
| Normal

type colorMode = CTk.colorMode =

| Color
| Gray
| Mono

type arcStyle = CTk.arcStyle =

| Arc
| Chord
| PieSlice

type tagOrId = CTk.tagOrId =

| Id of int
| Tag of string

type arrowStyle = CTk.arrowStyle =

| Arrow_Both
| Arrow_First
| Arrow_Last
| Arrow_None

type capStyle = CTk.capStyle =

| Cap_Butt
| Cap_Projecting
| Cap_Round

type joinStyle = CTk.joinStyle =

| Join_Bevel
| Join_Miter
| Join_Round

type weight = CTk.weight =

| Weight_Bold
| Weight_Normal

type slant = CTk.slant =

| Slant_Italic
| Slant_Roman

type visual = CTk.visual =

| Best
| BestDepth of int
| ClassVisual of string * int
| DefaultVisual
| WidgetVisual of Widget.widget

type colormap = CTk.colormap =

| NewColormap
| WidgetColormap of Widget.widget

type selectModeType = CTk.selectModeType =

| Browse
| Extended
| Multiple
| Single

type menuType = CTk.menuType =

| Menu_Menubar
| Menu_Normal
| Menu_Tearoff

type menubuttonDirection = CTk.menubuttonDirection =

| Dir_Above
| Dir_Below
| Dir_Left
| Dir_Right

type fillMode = CTk.fillMode =

| Fill_Both
| Fill_None
| Fill_X
| Fill_Y

type side = CTk.side =

| Side_Bottom
| Side_Left
| Side_Right
| Side_Top

type borderMode = CTk.borderMode =

| Ignore
| Inside
| Outside

type alignType = CTk.alignType =

| Align_Baseline
| Align_Bottom
| Align_Center
| Align_Top

type wrapMode = CTk.wrapMode =

| WrapChar
| WrapNone
| WrapWord

type tabType = CTk.tabType =

| TabCenter of units
| TabLeft of units
| TabNumeric of units
| TabRight of units

type messageIcon = CTk.messageIcon =

| Error
| Info
| Question
| Warning

type messageType = CTk.messageType =

| AbortRetryIgnore
| Ok
| OkCancel
| RetryCancel
| YesNo
| YesNoCancel

type options = CTk.options =

| Accelerator of string
| ActiveBackground of color
| ActiveBorderWidth of units
| ActiveForeground of color
| ActiveRelief of relief
| After of Widget.widget
| Align of alignType
| Anchor of anchor
| ArcStyle of arcStyle
| ArrowShape of units * units * units
| ArrowStyle of arrowStyle
| Aspect of int
| Background of color
| Before of Widget.widget
| BgStipple of bitmap
| BigIncrement of float
| Bitmap of bitmap
| BorderMode of borderMode
| BorderWidth of units
| CapStyle of capStyle
| Class of string
| CloseEnough of float
| Colormap of colormap
| Colormode of colorMode
| Column of int
| ColumnBreak of bool
| ColumnSpan of int
| Command of unit -> unit
| Confine of bool
| Container of bool
| Cursor of cursor
| Dash of string
| Data of string
| Default of state
| DefaultExtension of string
| Digits of int
| Direction of menubuttonDirection
| DisabledForeground of color
| ElementBorderWidth of units
| Expand of bool
| ExportSelection of bool
| Extent of float
| FgStipple of bitmap
| File of string
| FileTypes of filePattern list
| Fill of fillMode
| FillColor of color
| Font of string
| Font_Family of string
| Font_Overstrike of bool
| Font_Size of int
| Font_Slant of slant
| Font_Underline of bool
| Font_Weight of weight
| Foreground of color
| Format of string
| From of float
| Gamma of float
| Geometry of string
| Height of units
| HideMargin of bool
| HighlightBackground of color
| HighlightColor of color
| HighlightThickness of units
| IPadX of units
| IPadY of units
| ImageBitmap of imageBitmap
| ImagePhoto of imagePhoto
| In of Widget.widget
| IndicatorOn of bool
| InitialColor of color
| InitialDir of string
| InitialFile of string
| InsertBackground of color
| InsertBorderWidth of units
| InsertOffTime of int
| InsertOnTime of int
| InsertWidth of units
| JoinStyle of joinStyle
| Jump of bool
| Justify of justification
| LMargin1 of units
| LMargin2 of units
| Label of string
| Length of units
| Maskdata of string
| Maskfile of string
| Menu of Widget.widget
| MenuTitle of string
| MenuType of menuType
| Message of string
| MessageDefault of string
| MessageIcon of messageIcon
| MessageType of messageType
| Minsize of units
| Name of string
| OffValue of string
| Offset of units
| OnValue of string
| Orient of orientation
| Outline of color
| OutlineStipple of bitmap
| OverStrike of bool
| Pad of units
| PadX of units
| PadY of units
| PageAnchor of anchor
| PageHeight of units
| PageWidth of units
| PageX of units
| PageY of units
| Palette of paletteType
| Parent of Widget.widget
| PostCommand of unit -> unit
| RMargin of units
| RelHeight of float
| RelWidth of float
| RelX of float
| RelY of float
| Relief of relief
| RepeatDelay of int
| RepeatInterval of int
| Resolution of float
| Rotate of bool
| Row of int
| RowSpan of int
| ScaleCommand of float -> unit
| Screen of string
| ScrollCommand of scrollValue -> unit
| ScrollRegion of units * units * units * units
| SelectBackground of color
| SelectBorderWidth of units
| SelectColor of color
| SelectForeground of color
| SelectImageBitmap of imageBitmap
| SelectImagePhoto of imagePhoto
| SelectMode of selectModeType
| SetGrid of bool
| Show of char
| ShowValue of bool
| Side of side
| SliderLength of units
| Smooth of bool
| Spacing1 of units
| Spacing2 of units
| Spacing3 of units
| SplineSteps of int
| Start of float
| State of state
| Sticky of string
| Stipple of bitmap
| Stretch of bool
| Tabs of tabType list
| Tags of tagOrId list
| TakeFocus of bool
| TearOff of bool
| TearOffCommand of Widget.widget -> Widget.widget -> unit
| Text of string
| TextHeight of int
| TextVariable of Textvariable.textVariable
| TextWidth of int
| TickInterval of float
| Title of string
| To of float
| TroughColor of color
| Underline of bool
| UnderlinedChar of int
| Use of string
| Value of string
| Variable of Textvariable.textVariable
| Visual of visual
| Weight of int
| Width of units
| Window of Widget.widget
| Wrap of wrapMode
| WrapLength of units
| X of units
| XScrollCommand of float -> float -> unit
| XScrollIncrement of units
| Y of units
| YScrollCommand of float -> float -> unit
| YScrollIncrement of units

type options_constrs = CTk.options_constrs =

| CAccelerator
| CActiveBackground
| CActiveBorderWidth
| CActiveForeground
| CActiveRelief
| CAfter
| CAlign
| CAnchor
| CArcStyle
| CArrowShape
| CArrowStyle
| CAspect
| CBackground
| CBefore
| CBgStipple
| CBigIncrement
| CBitmap
| CBorderMode
| CBorderWidth
| CCapStyle
| CClass
| CCloseEnough
| CColormap
| CColormode
| CColumn
| CColumnBreak
| CColumnSpan
| CCommand
| CConfine
| CContainer
| CCursor
| CDash
| CData
| CDefault
| CDefaultExtension
| CDigits
| CDirection
| CDisabledForeground
| CElementBorderWidth
| CExpand
| CExportSelection
| CExtent
| CFgStipple
| CFile
| CFileTypes
| CFill
| CFillColor
| CFont
| CFont_Family
| CFont_Overstrike
| CFont_Size
| CFont_Slant
| CFont_Underline
| CFont_Weight
| CForeground
| CFormat
| CFrom
| CGamma
| CGeometry
| CHeight
| CHideMargin
| CHighlightBackground
| CHighlightColor
| CHighlightThickness
| CIPadX
| CIPadY
| CImageBitmap
| CImagePhoto
| CIn
| CIndicatorOn
| CInitialColor
| CInitialDir
| CInitialFile
| CInsertBackground
| CInsertBorderWidth
| CInsertOffTime
| CInsertOnTime
| CInsertWidth
| CJoinStyle
| CJump
| CJustify
| CLMargin1
| CLMargin2
| CLabel
| CLength
| CMaskdata
| CMaskfile
| CMenu
| CMenuTitle
| CMenuType
| CMessage
| CMessageDefault
| CMessageIcon
| CMessageType
| CMinsize
| CName
| COffValue
| COffset
| COnValue
| COrient
| COutline
| COutlineStipple
| COverStrike
| CPad
| CPadX
| CPadY
| CPageAnchor
| CPageHeight
| CPageWidth
| CPageX
| CPageY
| CPalette
| CParent
| CPostCommand
| CRMargin
| CRelHeight
| CRelWidth
| CRelX
| CRelY
| CRelief
| CRepeatDelay
| CRepeatInterval
| CResolution
| CRotate
| CRow
| CRowSpan
| CScaleCommand
| CScreen
| CScrollCommand
| CScrollRegion
| CSelectBackground
| CSelectBorderWidth
| CSelectColor
| CSelectForeground
| CSelectImageBitmap
| CSelectImagePhoto
| CSelectMode
| CSetGrid
| CShow
| CShowValue
| CSide
| CSliderLength
| CSmooth
| CSpacing1
| CSpacing2
| CSpacing3
| CSplineSteps
| CStart
| CState
| CSticky
| CStipple
| CStretch
| CTabs
| CTags
| CTakeFocus
| CTearOff
| CTearOffCommand
| CText
| CTextHeight
| CTextVariable
| CTextWidth
| CTickInterval
| CTitle
| CTo
| CTroughColor
| CUnderline
| CUnderlinedChar
| CUse
| CValue
| CVariable
| CVisual
| CWeight
| CWidth
| CWindow
| CWrap
| CWrapLength
| CX
| CXScrollCommand
| CXScrollIncrement
| CY
| CYScrollCommand
| CYScrollIncrement

type searchSpec = CTk.searchSpec =

| Above of tagOrId
| All
| Below of tagOrId
| Closest of units * units
| ClosestHalo of units * units * units
| ClosestHaloStart of units * units * units * tagOrId
| Enclosed of units * units * units * units
| Overlapping of int * int * int * int
| Withtag of tagOrId

type canvasItem = CTk.canvasItem =

| Arc_item
| Bitmap_item
| Image_item
| Line_item
| Oval_item
| Polygon_item
| Rectangle_item
| Text_item
| User_item of string
| Window_item

type icccm = CTk.icccm =

| DisplayOf of Widget.widget
| ICCCMFormat of string
| ICCCMType of string
| LostCommand of unit -> unit
| Selection of string

type icccm_constrs = CTk.icccm_constrs =

| CDisplayOf
| CICCCMFormat
| CICCCMType
| CLostCommand
| CSelection

type fontMetrics = CTk.fontMetrics =

| Ascent
| Descent
| Fixed
| Linespace

type grabStatus = CTk.grabStatus =

| GrabGlobal
| GrabLocal
| GrabNone

type menuItem = CTk.menuItem =

type optionPriority = CTk.optionPriority =

| Interactive
| Priority of int
| StartupFile
| UserDefault
| WidgetDefault

type tkPalette = CTk.tkPalette =

| PaletteActiveBackground of color
| PaletteActiveForeground of color
| PaletteBackground of color
| PaletteDisabledForeground of color
| PaletteForeground of color
| PaletteForegroundselectColor of color
| PaletteHighlightBackground of color
| PaletteHighlightColor of color
| PaletteInsertBackground of color
| PaletteSelectBackground of color
| PaletteSelectColor of color
| PaletteTroughColor of color

type tkPalette_constrs = CTk.tkPalette_constrs =

| CPaletteActiveBackground
| CPaletteActiveForeground
| CPaletteBackground
| CPaletteDisabledForeground
| CPaletteForeground
| CPaletteForegroundselectColor
| CPaletteHighlightBackground
| CPaletteHighlightColor
| CPaletteInsertBackground
| CPaletteSelectBackground
| CPaletteSelectColor
| CPaletteTroughColor

type photo = CTk.photo =

| ImgFormat of string
| ImgFrom of int * int * int * int
| ImgTo of int * int * int * int
| Shrink
| Subsample of int * int
| TopLeft of int * int
| Zoom of int * int

type photo_constrs = CTk.photo_constrs =

| CImgFormat
| CImgFrom
| CImgTo
| CShrink
| CSubsample
| CTopLeft
| CZoom

type widgetElement = CTk.widgetElement =

| Arrow1
| Arrow2
| Beyond
| Slider
| Trough1
| Trough2

type widgetElement_constrs = CTk.widgetElement_constrs =

| CArrow1
| CArrow2
| CBeyond
| CSlider
| CTrough1
| CTrough2

type sendOption = CTk.sendOption =

| SendAsync
| SendDisplayOf of Widget.widget

type comparison = CTk.comparison =

| EQ
| GE
| GT
| LE
| LT
| NEQ

type markDirection = CTk.markDirection =

| Mark_Left
| Mark_Right

type textSearch = CTk.textSearch =

| Backwards
| Count of Textvariable.textVariable
| Exact
| Forwards
| Nocase
| Regexp

type text_dump = CTk.text_dump =

| DumpAll
| DumpCommand of string -> string -> string -> unit
| DumpMark
| DumpTag
| DumpText
| DumpWindow

type atomId = CTk.atomId =

| AtomId of int

type focusModel = CTk.focusModel =

| FocusActive
| FocusPassive

type wmFrom = CTk.wmFrom =

| Program
| User

module Tkintf = CTk.Tkintf

val pixels : units -> int

type bindAction = CTk.bindAction =

| BindSet of eventField list * eventInfo -> unit
| BindSetBreakable of eventField list * eventInfo -> unit
| BindRemove
| BindExtend of eventField list * eventInfo -> unit

val bind : Widget.widget -> (modifier list * xEvent) list -> bindAction -> unit

val bind_class : string -> (modifier list * xEvent) list -> bindAction -> unit

val bind_tag : string -> (modifier list * xEvent) list -> bindAction -> unit

val break : unit -> unit

val tag_bind : string -> (modifier list * xEvent) list -> bindAction -> unit

val class_bind : string -> (modifier list * xEvent) list -> bindAction -> unit

val messageBox : options list -> string

val getSaveFile : options list -> string

val getOpenFile : options list -> string

val update_idletasks : unit -> unit

val update : unit -> unit

val chooseColor : options list -> color

val scaling_set : ?displayof:Camltkwrap.Widget.widget -> float -> unit

val scaling_get : ?displayof:Camltkwrap.Widget.widget -> unit -> float

val appname_get : unit -> string

val appname_set : string -> unit

val send : sendOption list -> string -> string list -> unit

val raise_window_above : 
  Camltkwrap.Widget.widget ->
  Camltkwrap.Widget.widget ->
  unit

val raise_window : 
  ?above:Camltkwrap.Widget.widget ->
  Camltkwrap.Widget.widget ->
  unit

val place : Camltkwrap.Widget.widget -> options list -> unit

val pack : Camltkwrap.Widget.widget list -> options list -> unit

val lower_window_below : 
  Camltkwrap.Widget.widget ->
  Camltkwrap.Widget.widget ->
  unit

val lower_window : 
  ?below:Camltkwrap.Widget.widget ->
  Camltkwrap.Widget.widget ->
  unit

val grid : Camltkwrap.Widget.widget list -> options list -> unit

val destroy : Camltkwrap.Widget.widget -> unit

val bindtags_get : Camltkwrap.Widget.widget -> bindings list

val bindtags : Camltkwrap.Widget.widget -> bindings list -> unit

val cget : Camltkwrap.Widget.widget -> options_constrs -> string

val cgets : Camltkwrap.Widget.widget -> string -> string

module Tk = CTk

module Bell = CBell

module Scale = CScale

module Winfo = CWinfo

module Scrollbar = CScrollbar

module Entry = CEntry

module Listbox = CListbox

module Wm = CWm

module Tkwait = CTkwait

module Grab = CGrab

module Font = CFont

module Canvas = CCanvas

module Image = CImage

module Clipboard = CClipboard

module Label = CLabel

module Resource = CResource

module Message = CMessage

module Text = CText

module Imagephoto = CImagephoto

module Option = COption

module Frame = CFrame

module Selection = CSelection

module Dialog = CDialog

module Place = CPlace

module Pixmap = CPixmap

module Menubutton = CMenubutton

module Radiobutton = CRadiobutton

module Focus = CFocus

module Pack = CPack

module Imagebitmap = CImagebitmap

module Encoding = CEncoding

module Optionmenu = COptionmenu

module Checkbutton = CCheckbutton

module Tkvars = CTkvars

module Palette = CPalette

module Menu = CMenu

module Button = CButton

module Toplevel = CToplevel

module Grid = CGrid

package labltk