diff options
Diffstat (limited to 'tests/examplefiles/example.icn')
| -rw-r--r-- | tests/examplefiles/example.icn | 283 |
1 files changed, 0 insertions, 283 deletions
diff --git a/tests/examplefiles/example.icn b/tests/examplefiles/example.icn deleted file mode 100644 index c8fcf335..00000000 --- a/tests/examplefiles/example.icn +++ /dev/null @@ -1,283 +0,0 @@ -# -# $Id: button.icn,v 1.7 2006-07-09 23:43:07 rparlett Exp $ -# -# This file is in the public domain. -# -# Author: Robert Parlett (parlett@dial.pipex.com) -# - -package gui -link graphics - -$include "guih.icn" - - -# -# This is the parent class of the button classes, including -# checkboxes. -# -# A {Button} produces a BUTTON_PRESS_EVENT when the button is -# depressed, and code BUTTON_RELEASE_EVENT when it is released, -# as well as an ACTION_EVENT. -# -# By default, when a button holds the keyboard focus a dashed -# line appears just within the button. Then, when return is -# pressed an ACTION_EVENT is generated. The method -# {Dialog.set_initial_focus()} can be used to have the button -# have the focus when the dialog is first displayed. -# -# Buttons also repeatedly produce a BUTTON_HELD_EVENT whilst they -# are held down, rather like a repeating keyboard press. The -# delay between the initial repeat event and subsequent repeat -# events is set in the parent dialog (see above). -# -class Button : Toggle : Component( - is_down, # - is_held, # - is_checked_flag, # - label, - img_up, # - img_down, # - img_w, # - img_h, # - parent_check_box_group, # - parent_button_group, # - repeat_delay, - no_keyboard_flag, # - toggles_flag - ) - - method set_parent_button_group(x) - return self.parent_button_group := x - end - - # - # Invoking this method disables the keyboard control over the - # button described above. No dashed line will ever appear in - # the button display and return will have no effect on the - # button even if it has the focus. - # - method set_no_keyboard() - self.no_keyboard_flag := 1 - self.accepts_focus_flag := &null - end - - # - # Clear the no keyboard behaviour (the default) - # - method clear_no_keyboard() - self.no_keyboard_flag := &null - self.accepts_focus_flag := 1 - end - - method tick() - if dispatcher.curr_time_of_day() > self.repeat_delay then - fire(BUTTON_HELD_EVENT) - end - - method go_down() - self.is_down := 1 - set_ticker(self.parent_dialog.repeat_rate) - end - - method go_up() - self.is_down := &null - stop_ticker() - end - - method handle_press(e) - local b - if self.in_region() then { - go_down() - self.repeat_delay := dispatcher.curr_time_of_day() + self.parent_dialog.repeat_delay - self.is_held := 1 - every b := !(\self.parent_button_group).buttons do { - if b.is_unhidden() then { - b.is_held := 1 - b.repeat_delay := self.repeat_delay - } - } - self.invalidate() - fire(BUTTON_PRESS_EVENT, e) - } - end - - method handle_drag(e) - if \self.is_held then { - # - # Button held down; toggle on/off as it goes over the button - # - if self.in_region() then { - if /self.is_down then { - go_down() - invalidate() - } - } else { - if \self.is_down then { - go_up() - invalidate() - } - } - } - end - - method handle_release(e) - if \self.is_held then { - self.is_held := &null - if \self.is_down then { - go_up() - fire(BUTTON_RELEASE_EVENT, e) - on_action(e) - } - } - end - - method on_action(e) - if \self.toggles_flag then { - if \self.parent_check_box_group then - self.parent_check_box_group.set_which_one(self) - else - self.toggle_is_checked() - } - self.invalidate() - fire(ACTION_EVENT, e) - end - - method handle_accel(e) - self.Component.handle_accel(e) - on_action(e) - end - - method handle_default(e) - if \self.has_focus then { - if /self.no_keyboard_flag & e == ("\r" | "\l" | " ") then { - on_action(e) - } - } - end - - method handle_event(e) - if e === (&lpress | &rpress | &mpress) then { - handle_press(e) - } else if e === (&ldrag | &rdrag | &mdrag) then { - handle_drag(e) - } else if e === (&lrelease | &rrelease | &mrelease) then { - handle_release(e) - } else - handle_default(e) - end - - # - # Set the up/down images (if any) to the strings provided, - # which should be in Icon image format. - # The two images must have the same dimensions. - # @param x The up image - # @param y The down image - # - method set_imgs(x, y) - self.img_up := x - self.img_w := img_width(x) = img_width(y) | fatal("Image widths differ") - self.img_h := img_height(x) = img_height(y) | fatal("Image heights differ") - - self.img_down := y - - return - end - - # - # Set the image (if any) to the given string, which should be in Icon image - # format. - # @param x The image - # - method set_img(x) - self.img_up := self.img_down := x - self.img_w := img_width(x) - self.img_h := img_height(x) - return x - end - - # - # Toggle the checked status of the button. This method, and - # the following two methods, may be - # inappropriate for non-toggle styles of button. - # - method toggle_is_checked() - self.Toggle.toggle_is_checked() - self.invalidate() - end - - # - # Set the status to checked. - # - method set_is_checked() - self.Toggle.set_is_checked() - self.invalidate() - end - - # - # Set the status to unchecked. - # - method clear_is_checked() - self.Toggle.clear_is_checked() - self.invalidate() - end - - # - # Set the button so that when it is pressed, it toggles - # between two states, as indicated by the is_checked - # flag. - # - # Instances of Checkbox have this flag on by default, but - # TextButton and IconButton do not. When the flag is on, - # the latter classes indicate their checked status by - # showing the button as being "down". - # - method set_toggles() - self.toggles_flag := 1 - self.invalidate() - end - - # - # Clear the toggles flag. - # - method clear_toggles() - self.toggles_flag := &null - self.invalidate() - end - - # - # Set the label of the button, if any. - # @param x The label - # - method set_label(x) - self.label := x - self.invalidate() - return x - end - - method set_one(attr, val) - case attr of { - "label" : set_label(string_val(attr, val)) - "is_checked" : - if test_flag(attr, val) then - set_is_checked() - else - clear_is_checked() - "toggles" : - if test_flag(attr, val) then - set_toggles() - else - clear_toggles() - "no_keyboard" : - if test_flag(attr, val) then - set_no_keyboard() - else - clear_no_keyboard() - default: self.Component.set_one(attr, val) - } - end - - initially() - self.Component.initially() - self.accepts_focus_flag := 1 -end
\ No newline at end of file |