diff options
| author | Camil Staps | 2015-07-01 17:36:37 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-07-01 17:36:37 +0200 |
| commit | 7553b7f9d4dddc2235c137d41de8ce22547bebe3 (patch) | |
| tree | 34f8fb4b36640317d728a60586424f67f9befbe7 /ostoolbar.dcl | |
| parent | gitignore (diff) | |
Initial commit
Diffstat (limited to 'ostoolbar.dcl')
| -rw-r--r-- | ostoolbar.dcl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/ostoolbar.dcl b/ostoolbar.dcl new file mode 100644 index 0000000..ba46a84 --- /dev/null +++ b/ostoolbar.dcl @@ -0,0 +1,29 @@ +definition module ostoolbar
+
+// Clean object I/O library, version 1.2
+
+// Operations to add and remove tools.
+
+import osbitmap, ostoolbox, ostypes
+
+:: OSToolbar
+ = { toolbarPtr :: !OSToolbarHandle // The toolbar of the frame window (zero if no toolbar)
+ , toolbarHeight :: !Int // The height of the toolbar (zero if no toolbar)
+ }
+:: OSToolbarHandle
+ :== OSWindowPtr
+
+OSdefaultToolbarHeight :== 16 // The default height of the toolbar
+
+/* osCreateToolbar forMDI wPtr (width,height)
+ creates a toolbar in the argument window that contains buttons of the given width and height.
+ The forMDI is True in case the toolbar must be created for a MDI process, and False otherwise.
+ The return Int is the actual height of the toolbar.
+ osCreateBitmapToolbarItem toolbarPtr bitmap index
+ adds a button with the given bitmap to the toolbar. The index must be the button item number.
+ osCreateToolbarSeparator toolbarPtr
+ adds a separator to the toolbar.
+*/
+osCreateToolbar :: !Bool !OSWindowPtr !(!Int,!Int) !*OSToolbox -> (!(!OSToolbarHandle,!Int),!*OSToolbox)
+osCreateBitmapToolbarItem :: !OSToolbarHandle !OSBitmap !Int !*OSToolbox -> *OSToolbox
+osCreateToolbarSeparator :: !OSToolbarHandle !*OSToolbox -> *OSToolbox
|