static status initialiseEditTextGesture(EditTextGesture g, Name button, Modifier modifier) { initialiseGesture((Gesture) g, button, modifier); assign(g, selection_origin, ZERO); assign(g, activate, OFF); succeed; }
static status initialiseBrowserSelectGesture(BrowserSelectGesture g) { initialiseGesture((Gesture) g, NAME_left, newObject(ClassModifier, DEFAULT, DEFAULT, NAME_up, EAV)); assign(g, scrolling, OFF); succeed; }
static status initialisePopupGesture(PopupGesture g, PopupObj popup, Name button, Modifier modifier) { if ( isDefault(popup) ) popup = NIL; initialiseGesture((Gesture) g, button, modifier); assign(g, popup, popup); succeed; }
status initialiseResizeGesture(ResizeGesture g, Name button, Modifier modifier) { Size ms = getClassVariableValueObject(g, NAME_minSize); initialiseGesture((Gesture) g, button, modifier); assign(g, h_mode, NAME_keep); assign(g, v_mode, NAME_keep); assign(g, min_size, ms != FAIL ? ms : newObject(ClassSize, EAV)); succeed; }