|
Revision 172, 1.1 kB
(checked in by asterix, 5 years ago)
|
|
icon in systray (it represents state and changes when we recieve a message not poped up)
|
| Line | |
|---|
| 1 | ;; -*- scheme -*- |
|---|
| 2 | ; object definitions ... |
|---|
| 3 | (define-object TrayIcon |
|---|
| 4 | (in-module "Egg") |
|---|
| 5 | (parent "GtkPlug") |
|---|
| 6 | (c-name "EggTrayIcon") |
|---|
| 7 | (gtype-id "EGG_TYPE_TRAY_ICON") |
|---|
| 8 | ) |
|---|
| 9 | |
|---|
| 10 | ;; Enumerations and flags ... |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | ;; From eggtrayicon.h |
|---|
| 14 | |
|---|
| 15 | (define-function egg_tray_icon_get_type |
|---|
| 16 | (c-name "egg_tray_icon_get_type") |
|---|
| 17 | (return-type "GType") |
|---|
| 18 | ) |
|---|
| 19 | |
|---|
| 20 | ;;(define-function egg_tray_icon_new_for_screen |
|---|
| 21 | ;; (c-name "egg_tray_icon_new_for_screen") |
|---|
| 22 | ;; (return-type "EggTrayIcon*") |
|---|
| 23 | ;; (parameters |
|---|
| 24 | ;; '("GdkScreen*" "screen") |
|---|
| 25 | ;; '("const-gchar*" "name") |
|---|
| 26 | ;; ) |
|---|
| 27 | ;;) |
|---|
| 28 | |
|---|
| 29 | (define-function egg_tray_icon_new |
|---|
| 30 | (c-name "egg_tray_icon_new") |
|---|
| 31 | (is-constructor-of "EggTrayIcon") |
|---|
| 32 | (return-type "EggTrayIcon*") |
|---|
| 33 | (parameters |
|---|
| 34 | '("const-gchar*" "name") |
|---|
| 35 | ) |
|---|
| 36 | ) |
|---|
| 37 | |
|---|
| 38 | (define-method send_message |
|---|
| 39 | (of-object "EggTrayIcon") |
|---|
| 40 | (c-name "egg_tray_icon_send_message") |
|---|
| 41 | (return-type "guint") |
|---|
| 42 | (parameters |
|---|
| 43 | '("gint" "timeout") |
|---|
| 44 | '("const-char*" "message") |
|---|
| 45 | '("gint" "len") |
|---|
| 46 | ) |
|---|
| 47 | ) |
|---|
| 48 | |
|---|
| 49 | (define-method cancel_message |
|---|
| 50 | (of-object "EggTrayIcon") |
|---|
| 51 | (c-name "egg_tray_icon_cancel_message") |
|---|
| 52 | (return-type "none") |
|---|
| 53 | (parameters |
|---|
| 54 | '("guint" "id") |
|---|
| 55 | ) |
|---|
| 56 | ) |
|---|
| 57 | |
|---|