view release on metacpan or  search on metacpan

TVision-methods.xs.in  view on Meta::CPAN

        int hasChildren(TNode* node)
EOS
}}}
{{{
    # getters/setters:
    use strict;
    my $pkg='';
    my $first=1;
    join '', (map {
        if (/^\s*#/) {()} # ignore comment
        elsif (/^\s*$/) {()} # ignore empty line
        elsif (/^\s*(\S+):/) {$pkg=$1; $first=1;() }
	else {
	    my ($type, $var) = /^\s*(.+)\s+(\S+)/;
	    if ($var=~s/^\*//) {$type.='*'}
	    my $line0 = $first ? "MODULE=TVision::$pkg PACKAGE=TVision::$pkg" : "";
	    $first=0;
	<<"EOS"
$line0
$type get_$var($pkg *self)
    CODE:
        RETVAL = self->$var;
    OUTPUT:
        RETVAL

void set_$var($pkg *self, $type val)
    CODE:
        self->$var = val;

EOS
	}
    } split '\n', <<'EOS');
      TEditor:
	TScrollBar *hScrollBar
	TScrollBar *vScrollBar
	TIndicator *indicator
	char *buffer
	int bufSize
	int bufLen
	int gapLen
	int selStart
	int selEnd
	int curPtr
	TPoint curPos
	TPoint delta
	TPoint limit
	int drawLine
	int drawPtr
	int delCount
	int insCount
	int isValid
	int canUndo
	int modified
	int selecting
	int overwrite
	int autoIndent
	#static TEditorDialog _NEAR editorDialog;
	#static ushort _NEAR editorFlags;
	#static char _NEAR findStr[maxFindStrLen];
	#static char _NEAR replaceStr[maxReplaceStrLen];
	#static TEditor * _NEAR clipboard;
	int lockCount
	int updateFlags
	int keyState
      TEditWindow:
	TFileEditor *editor
      TWindow:
	int flags
	TRect zoomRect
	int number
	int palette
	TFrame *frame
	#const char *title;
      TView:
	TView *next
        TPoint size
        int options
        int eventMask
        int state
        TPoint origin
        TPoint cursor
        int growMode
        int dragMode
        int helpCtx
        int commandSetChanged
        TGroup *owner
        int showMarkers
        int errorAttr
      TScrollBar:
        int value
        #TScrollChars chars
        int minVal
        int maxVal
        int pgStep
        int arStep
      TScroller:
        TPoint delta
      TProgram:
	TProgram *application
	TStatusLine *statusLine
	TMenuBar *menuBar
	TDeskTop *deskTop
	int appPalette
	int eventTimeoutMs
      TMenuItem:
	TMenuItem *next
	#const char *name
	int command
	int disabled
	TKey keyCode
	int helpCtx
      TNode:
        TNode* next
        const char* text
        TNode* childList
        int expanded
      TOutlineViewer:
        int foc
      TOutline:
        TNode* root
EOS