visualoberon-checkins Mailing List for VisualOberon
Status: Beta
Brought to you by:
tteuling
You can subscribe to this list here.
2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(37) |
Jul
(118) |
Aug
(76) |
Sep
(75) |
Oct
(91) |
Nov
(77) |
Dec
(65) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2004 |
Jan
(102) |
Feb
(46) |
Mar
(47) |
Apr
(35) |
May
(16) |
Jun
(12) |
Jul
(2) |
Aug
|
Sep
(10) |
Oct
(7) |
Nov
|
Dec
|
2005 |
Jan
|
Feb
(10) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
|
2006 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
|
2008 |
Jan
(3) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Stewart G. <sgr...@us...> - 2008-01-17 04:22:04
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/OS/Windows In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3360 Modified Files: Display.Mod Log Message: - Implemented faster (20%) GDI line drawing for horizontal/vertical lines. - Added mouse wheel support Index: Display.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/OS/Windows/Display.Mod,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Display.Mod 26 Jan 2004 04:37:37 -0000 1.27 --- Display.Mod 17 Jan 2008 04:22:08 -0000 1.28 *************** *** 1300,1310 **** END DrawPoint; PROCEDURE (d : DrawInfo) DrawLine*(x1,y1,x2,y2 : LONGINT); VAR old : W.POINT; BEGIN IF W.MoveToEx(d.dc,x1,y1,old)#0 THEN END; IF W.LineTo(d.dc,x2,y2)#0 THEN END; - IF W.SetPixel(d.dc,x2,y2,d.fPenStack[d.fPenPos].color)#0 THEN END; END DrawLine; --- 1300,1327 ---- END DrawPoint; + (* GDI does not draw the final pixel at (x2, y2), so we normally + have to call SetPixel to do this. For horizontal and vertical + lines, we get a speedup of about 20% by avoiding the call to + SetPixel. *) + PROCEDURE (d : DrawInfo) DrawLine*(x1,y1,x2,y2 : LONGINT); VAR old : W.POINT; + temp : LONGINT; + setPixel : BOOLEAN; BEGIN + setPixel := FALSE; + IF x1 = x2 THEN + IF y1 > y2 THEN temp := y1; y1 := y2; y2 := temp END; + INC(y2); + ELSIF y1 = y2 THEN + IF x1 > x2 THEN temp := x1; x1 := x2; x2 := temp END; + INC(x2); + ELSE + IF W.SetPixel(d.dc,x2,y2,d.fPenStack[d.fPenPos].color)#0 THEN END; + END; + IF W.MoveToEx(d.dc,x1,y1,old)#0 THEN END; IF W.LineTo(d.dc,x2,y2)#0 THEN END; END DrawLine; *************** *** 2050,2053 **** --- 2067,2072 ---- W.WM_RBUTTONDOWN, W.WM_RBUTTONUP, + W.WM_MOUSEWHEEL, + (* W.WM_HMOUSEWHEEL, *) W.WM_MOUSEMOVE, W.WM_KEYDOWN, *************** *** 2078,2081 **** --- 2097,2101 ---- UNTIL event.reUse=FALSE; RETURN 0; + | W.WM_ACTIVATE: IF LOWORD(wParam)=W.WA_INACTIVE THEN |
From: Stewart G. <sgr...@us...> - 2008-01-17 04:20:32
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/OS/Windows In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3332 Modified Files: Event.Mod Log Message: Added mouse wheel handling for Windows. Index: Event.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/OS/Windows/Event.Mod,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Event.Mod 30 Nov 2006 04:07:05 -0000 1.9 --- Event.Mod 17 Jan 2008 04:20:34 -0000 1.10 *************** *** 70,73 **** --- 70,82 ---- END; + WheelEvent* = POINTER TO WheelEventDesc; + WheelEventDesc* = RECORD (E.WheelEventDesc) + (** + Wheel event. The application recieves this event when a mouse + wheel is rotated. + *) + event : W.MSG; + END; + MotionEvent* = POINTER TO MotionEventDesc; MotionEventDesc* = RECORD (E.MotionEventDesc) *************** *** 87,90 **** --- 96,100 ---- simpleEvent : Event; buttonEvent : ButtonEvent; + wheelEvent : WheelEvent; motionEvent : MotionEvent; keyEvent : KeyEvent; *************** *** 315,318 **** --- 325,349 ---- END SetWin32Event; + PROCEDURE (e : WheelEvent) SetWin32Event*(event : W.MSG); + + BEGIN + e.event:=event; + e.qualifier:=EvaluateMouseQualifier(event.wParam); + + CASE event.message OF + W.WM_MOUSEWHEEL: + e.wheel:=E.wheelV; + (* WM_HMOUSEWHEEL not in current Windows module + | W.WM_HMOUSEWHEEL: + e.wheel:=E.wheelH; *) + ELSE + e.wheel:=E.unknown; + END; + + e.x:=event.lParam MOD (256*256); + e.y:=event.lParam DIV (256*256); + e.delta := event.wParam DIV (256*256); + END SetWin32Event; + (** NOTE *************** *** 349,352 **** --- 380,386 ---- motionEvent.SetWin32Event(event); RETURN motionEvent; + | W.WM_MOUSEWHEEL (* , W.WM_MOUSEWHEELH *): + wheelEvent.SetWin32Event(event); + RETURN wheelEvent; | W.WM_KEYDOWN, W.WM_SYSKEYDOWN, W.WM_KEYUP, W.WM_SYSKEYUP: *************** *** 365,367 **** --- 399,402 ---- NEW(buttonEvent); NEW(motionEvent); + NEW(wheelEvent); END VO:OS:Windows:Event. |
From: Stewart G. <sgr...@us...> - 2008-01-17 04:19:31
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Base In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2849 Modified Files: Event.Mod Log Message: Added WheelEvent to support mouse wheel motion. Index: Event.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Base/Event.Mod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Event.Mod 13 Jul 2003 18:58:24 -0000 1.4 --- Event.Mod 17 Jan 2008 04:19:33 -0000 1.5 *************** *** 72,75 **** --- 72,78 ---- qHyperRight * = 18; + wheelH * = 0; + wheelV * = 1; + (* qualifier masks *) *************** *** 192,195 **** --- 195,208 ---- END; + WheelEvent* = POINTER TO WheelEventDesc; + WheelEventDesc* = RECORD [ABSTRACT] (MouseEventDesc) + (** + Wheel event. The application recieves this event when a mouse + wheel is rotated. + *) + wheel* : INTEGER; (** wheelH or wheelV *) + delta* : LONGINT; (** rotation amount *) + END; + MotionEvent* = POINTER TO MotionEventDesc; MotionEventDesc* = RECORD [ABSTRACT] (MouseEventDesc) *************** *** 276,278 **** END GetName; ! END VO:Base:Event. \ No newline at end of file --- 289,291 ---- END GetName; ! END VO:Base:Event. |
From: Stewart G. <sgr...@us...> - 2006-11-30 04:07:07
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/OS/Windows In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29438 Modified Files: Event.Mod Log Message: Correctly handle negative mouse coordinates (eg. that arise with mouse-grab on). Index: Event.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/OS/Windows/Event.Mod,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Event.Mod 26 Jan 2004 04:37:37 -0000 1.8 --- Event.Mod 30 Nov 2006 04:07:05 -0000 1.9 *************** *** 327,332 **** e.event:=event; ! e.x:=event.lParam MOD (256*256); ! e.y:=event.lParam DIV (256*256); e.qualifier:=EvaluateMouseQualifier(event.wParam); --- 327,333 ---- e.event:=event; ! (* use this type-conversion to correctly handle negative positions *) ! e.x:=S.VAL(INTEGER,SHORT(event.lParam)); ! e.y:=S.VAL(INTEGER,SHORT(ASH(event.lParam,-16))); e.qualifier:=EvaluateMouseQualifier(event.wParam); |
From: Stewart G. <sgr...@us...> - 2005-11-28 04:53:02
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Image/ImageStream In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17770/src/VO/Image/ImageStream Modified Files: QTImageStream.cpp Log Message: Corrected GetHandler. All methods should be abstract (ie. pure virtual). Index: QTImageStream.cpp =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/ImageStream/QTImageStream.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** QTImageStream.cpp 4 Feb 2005 08:29:06 -0000 1.3 --- QTImageStream.cpp 28 Nov 2005 04:52:48 -0000 1.4 *************** *** 110,114 **** virtual bool HasMore(void) = 0; virtual void Close(void) = 0; ! virtual Handler * GetHandler(int id); }; --- 110,114 ---- virtual bool HasMore(void) = 0; virtual void Close(void) = 0; ! virtual Handler * GetHandler(int id) = 0; }; |
From: Stewart G. <sgr...@us...> - 2005-07-03 22:01:30
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Image/Writer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26806/src/VO/Image/Writer Modified Files: JPG.c PNG.c Log Message: Added destroy methods for oo2c 2.1.8. Index: PNG.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/Writer/PNG.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** PNG.c 18 Dec 2003 17:02:15 -0000 1.1 --- PNG.c 3 Jul 2005 22:01:17 -0000 1.2 *************** *** 126,127 **** --- 126,129 ---- // no code } + + void OOC_VO_Image_Writer_PNG_destroy() { } Index: JPG.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/Writer/JPG.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** JPG.c 11 Jan 2004 15:08:12 -0000 1.2 --- JPG.c 3 Jul 2005 22:01:17 -0000 1.3 *************** *** 122,123 **** --- 122,125 ---- // no code } + + void OOC_VO_Image_Writer_JPG_destroy(void) {} |
From: Stewart G. <sgr...@us...> - 2005-02-04 08:29:15
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Image In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28570 Modified Files: ImageStream.Mod Log Message: Changed GetDuration to return time scale. For Quicktime implementation: if GetMovieNextInterestingTime fails, explicitly advance time for the next frame. Index: ImageStream.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/ImageStream.Mod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ImageStream.Mod 26 Nov 2003 08:09:03 -0000 1.2 --- ImageStream.Mod 4 Feb 2005 08:29:05 -0000 1.3 *************** *** 120,125 **** (* Position interface methods. *) ! PROCEDURE (h : Position) [ABSTRACT] GetDuration* (VAR start, end : TimeStamp); ! (**Return the start and end times for a positionable image stream. *) END GetDuration; --- 120,125 ---- (* Position interface methods. *) ! PROCEDURE (h : Position) [ABSTRACT] GetDuration* (VAR start, end, scale : TimeStamp); ! (**Return the start and end times for a positionable image stream. Return the time-scale in time units per second. *) END GetDuration; |
From: Stewart G. <sgr...@us...> - 2005-02-04 08:29:15
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Image/ImageStream In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28570/ImageStream Modified Files: QTImageStream.cpp Log Message: Changed GetDuration to return time scale. For Quicktime implementation: if GetMovieNextInterestingTime fails, explicitly advance time for the next frame. Index: QTImageStream.cpp =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/ImageStream/QTImageStream.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** QTImageStream.cpp 4 Feb 2005 06:01:24 -0000 1.2 --- QTImageStream.cpp 4 Feb 2005 08:29:06 -0000 1.3 *************** *** 99,103 **** class Position : public Handler { public: ! virtual bool GetDuration(int & start, int & end) = 0; virtual bool GetPosition(int & position) = 0; virtual bool SetPosition(int & position) = 0; --- 99,103 ---- class Position : public Handler { public: ! virtual bool GetDuration(int & start, int & end, int & scale) = 0; virtual bool GetPosition(int & position) = 0; virtual bool SetPosition(int & position) = 0; *************** *** 118,121 **** --- 118,122 ---- short movieRefNumber; /* QT movie reference number */ TimeValue currentTime; /* time associated with next frame */ + TimeValue timeScale; /* time scale for movie (ticks per second) */ TimeValue startTime; /* time associated with next frame */ TimeValue duration; /* duration of this movie */ *************** *** 152,155 **** --- 153,157 ---- height = rect.bottom - rect.top; currentTime = GetMovieTime(movie, NULL); + timeScale = GetMovieTimeScale(movie); startTime = currentTime; duration = GetMovieDuration(movie); *************** *** 180,183 **** --- 182,189 ---- OSType whichMediaType = VIDEO_TYPE; + /* For some movies, GetMovieNextInterestingTime seems to fail (ie. it returns + * -1). In this case, we try explicitly advancing time by 1/10 second */ + + TimeValue nextTime; GetMovieNextInterestingTime(movie, nextTimeMediaSample, *************** *** 186,191 **** currentTime, 1, ! ¤tTime, NULL); SetMovieTimeValue(movie, currentTime); /* printf("time=%d\n", currentTime); */ --- 192,202 ---- currentTime, 1, ! &nextTime, NULL); + if (nextTime > 0) + currentTime = nextTime; + else + currentTime += timeScale / 10; + SetMovieTimeValue(movie, currentTime); /* printf("time=%d\n", currentTime); */ *************** *** 227,233 **** } ! bool GetDuration(int & start, int & end) { start = startTime; end = startTime + duration; return true; } --- 238,245 ---- } ! bool GetDuration(int & start, int & end, int & scale) { start = startTime; end = startTime + duration; + scale = timeScale; return true; } |
From: Stewart G. <sgr...@us...> - 2005-02-04 08:25:45
|
Update of /cvsroot/visualoberon/VisualOberon/oocv1-compat/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28274 Modified Files: Locales.c Log Message: Added _destroy function. Index: Locales.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/oocv1-compat/src/Locales.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Locales.c 3 May 2003 08:20:52 -0000 1.1 --- Locales.c 4 Feb 2005 08:25:36 -0000 1.2 *************** *** 145,146 **** --- 145,150 ---- Locales__GetText = NULL; } + + void OOC_Locales_destroy(void) { + } + |
From: Stewart G. <sgr...@us...> - 2005-02-04 06:01:40
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Image/Loader In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8031/VO/Image/Loader Modified Files: GIF.c JPG.c PNG.c TIF.c Log Message: Added _destroy, _open, and _close as required by OOC new module handling system. Index: TIF.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/Loader/TIF.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TIF.c 3 May 2003 08:20:53 -0000 1.1 --- TIF.c 4 Feb 2005 06:01:24 -0000 1.2 *************** *** 114,115 **** --- 114,118 ---- (VO_Image_Loader__Loader)VO_Image_Loader_TIF__loader)); } + + void OOC_VO_Image_Loader_TIF_destroy(void) { + } Index: JPG.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/Loader/JPG.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** JPG.c 3 May 2003 08:20:53 -0000 1.1 --- JPG.c 4 Feb 2005 06:01:24 -0000 1.2 *************** *** 140,141 **** --- 140,145 ---- (VO_Image_Loader__Loader)VO_Image_Loader_JPG__loader)); } + + void OOC_VO_Image_Loader_JPG_destroy(void) { + } + Index: GIF.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/Loader/GIF.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** GIF.c 3 May 2003 08:20:53 -0000 1.1 --- GIF.c 4 Feb 2005 06:01:24 -0000 1.2 *************** *** 158,159 **** --- 158,163 ---- (VO_Image_Loader__Loader)VO_Image_Loader_GIF__loader)); } + + void OOC_VO_Image_Loader_GIF_destroy(void) { + } + Index: PNG.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/Loader/PNG.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** PNG.c 3 May 2003 08:20:53 -0000 1.1 --- PNG.c 4 Feb 2005 06:01:24 -0000 1.2 *************** *** 226,227 **** --- 226,230 ---- (VO_Image_Loader__Loader)VO_Image_Loader_PNG__loader)); } + + void OOC_VO_Image_Loader_PNG_destroy(void) { + } |
From: Stewart G. <sgr...@us...> - 2005-02-04 06:01:39
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Image/ImageStream In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8031/VO/Image/ImageStream Modified Files: QTImageStream.cpp Log Message: Added _destroy, _open, and _close as required by OOC new module handling system. Index: QTImageStream.cpp =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Image/ImageStream/QTImageStream.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** QTImageStream.cpp 26 Nov 2003 08:10:52 -0000 1.1 --- QTImageStream.cpp 4 Feb 2005 06:01:24 -0000 1.2 *************** *** 467,471 **** } ! extern "C" void OOC_VO_Image_ImageStream_QTImageStream_init0(void) { #ifdef __MINGW32__ InitializeQTML(0L); --- 467,472 ---- } ! extern "C" void OOC_VO_Image_ImageStream_QTImageStream_close(void) {} ! extern "C" void OOC_VO_Image_ImageStream_QTImageStream_open(void) { #ifdef __MINGW32__ InitializeQTML(0L); |
From: Stewart G. <sgr...@us...> - 2005-02-04 06:01:39
|
Update of /cvsroot/visualoberon/VisualOberon/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8031 Modified Files: Directory.c SystemTime.c Log Message: Added _destroy, _open, and _close as required by OOC new module handling system. Index: SystemTime.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/SystemTime.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SystemTime.c 18 Mar 2004 17:33:15 -0000 1.1 --- SystemTime.c 4 Feb 2005 06:01:23 -0000 1.2 *************** *** 481,482 **** --- 481,486 ---- tzset(); } + + void OOC_SystemTime_destroy(void) { + } + Index: Directory.c =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/Directory.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Directory.c 7 May 2004 04:59:08 -0000 1.9 --- Directory.c 4 Feb 2005 06:01:23 -0000 1.10 *************** *** 187,188 **** --- 187,192 ---- void OOC_Directory_init(void) { } + + void OOC_Directory_destroy(void) { + } + |
From: Stewart G. <sgr...@us...> - 2005-02-04 06:00:49
|
Update of /cvsroot/visualoberon/VisualOberon/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7959 Modified Files: ChannelFDWrapper.Mod Log Message: Replaced InitByteChannel with call to INIT function. Index: ChannelFDWrapper.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/ChannelFDWrapper.Mod,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ChannelFDWrapper.Mod 3 May 2003 08:20:52 -0000 1.1 --- ChannelFDWrapper.Mod 4 Feb 2005 06:00:39 -0000 1.2 *************** *** 33,37 **** BEGIN ! IO.InitByteChannel(ch); ch.fd:=fd; END Init; --- 33,38 ---- BEGIN ! (* IO.InitByteChannel(ch); *) ! ch.INIT; ch.fd:=fd; END Init; |
From: Stewart G. <sgr...@us...> - 2005-02-04 05:59:18
|
Update of /cvsroot/visualoberon/Carbon/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7722/src Modified Files: CarbonWrapper.c Log Message: Added _open and _close for changed OOC module handling. Index: CarbonWrapper.c =================================================================== RCS file: /cvsroot/visualoberon/Carbon/src/CarbonWrapper.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** CarbonWrapper.c 26 Jan 2004 05:24:40 -0000 1.1.1.1 --- CarbonWrapper.c 4 Feb 2005 05:59:08 -0000 1.2 *************** *** 41,43 **** --- 41,46 ---- } + void OOC_CarbonWrapper_close(void) {} + void OOC_CarbonWrapper_open(void) {} + /* --- */ |
From: Stewart G. <sgr...@us...> - 2005-02-04 05:58:27
|
Update of /cvsroot/visualoberon/Curses/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7593/src Modified Files: Curses.c Log Message: Added _destroy for changed OOC module handling. Index: Curses.c =================================================================== RCS file: /cvsroot/visualoberon/Curses/src/Curses.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Curses.c 24 Jan 2004 18:23:32 -0000 1.3 --- Curses.c 4 Feb 2005 05:58:18 -0000 1.4 *************** *** 553,554 **** --- 553,557 ---- Curses__vLine='x'; } + + void OOC_Curses_destroy(void) { + } |
From: Stewart G. <sgr...@us...> - 2005-02-04 05:58:27
|
Update of /cvsroot/visualoberon/Curses In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7593 Modified Files: aclocal.m4 Log Message: Added _destroy for changed OOC module handling. Index: aclocal.m4 =================================================================== RCS file: /cvsroot/visualoberon/Curses/aclocal.m4,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** aclocal.m4 13 May 2003 17:10:13 -0000 1.1 --- aclocal.m4 4 Feb 2005 05:58:17 -0000 1.2 *************** *** 108,111 **** --- 108,112 ---- $2(); return 0; } void OOC_conftest_init() {} + void OOC_conftest_destroy() {} ) EOF |
From: Tim T. <tte...@us...> - 2004-10-07 19:24:24
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Base In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2735/src/VO/Base Modified Files: Object.Mod Log Message: Used instead of self defined messages instances of Action mession for parameterless messages. A number of bugfixes. Index: Object.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Base/Object.Mod,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Object.Mod 8 Jun 2004 21:27:27 -0000 1.5 --- Object.Mod 7 Oct 2004 19:23:41 -0000 1.6 *************** *** 30,36 **** CONST - broadcastMsg* = -1; everyMsg* = -2; - actionMsg* = -3; customMsg* = -4; --- 30,34 ---- *************** *** 111,118 **** A special message for prameterless actions (like for example a event that gets triggered when a button is ! pressed). You store the type of the action in the ! action memebr variable. Using action instead of a ! self-derived class while reduce code bloat and class ! count. *) action* : LONGINT; --- 109,115 ---- A special message for prameterless actions (like for example a event that gets triggered when a button is ! pressed). You store the type of the action in the member action ! and hand it type to the Send method. Using action instead of a self-derived class ! will reduce code bloat and class count. *) action* : LONGINT; *************** *** 344,349 **** hdlEntry:=m.handlerList; WHILE hdlEntry#NIL DO ! IF (type=broadcastMsg) ! OR (hdlEntry.type=type) OR (hdlEntry.type=everyMsg) THEN hdlEntry.handler.Send(message); --- 341,345 ---- hdlEntry:=m.handlerList; WHILE hdlEntry#NIL DO ! IF (hdlEntry.type=type) OR (hdlEntry.type=everyMsg) THEN hdlEntry.handler.Send(message); *************** *** 353,356 **** --- 349,369 ---- END Send; + PROCEDURE (m : MsgObject) SendBroadcast*(message : Message; type : LONGINT); + (** + Call this method if you want to send a message with a given type. + *) + + VAR + hdlEntry : HandlerEntry; + + BEGIN + message.source:=m; + hdlEntry:=m.handlerList; + WHILE hdlEntry#NIL DO + hdlEntry.handler.Send(message); + hdlEntry:=hdlEntry.next; + END; + END SendBroadcast; + PROCEDURE (m : MsgObject) Resync*(model : Model; msg : ResyncMsg); (** |
From: Tim T. <tte...@us...> - 2004-10-07 19:24:24
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Dlg In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2735/src/VO/Dlg Modified Files: About.Mod ColSel.Mod File.Mod Log Message: Used instead of self defined messages instances of Action mession for parameterless messages. A number of bugfixes. Index: About.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Dlg/About.Mod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** About.Mod 26 Jul 2003 20:17:11 -0000 1.4 --- About.Mod 7 Oct 2004 19:23:42 -0000 1.5 *************** *** 147,151 **** BEGIN vPanel:=P.CreateVPanel(); - vPanel.SetFlags({G.horizontalFlex,G.verticalFlex}); string:="\ec\es\e9"+d.info.program+"\en \e0"+d.info.version+"\e4\n\el"+ --- 147,150 ---- Index: ColSel.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Dlg/ColSel.Mod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ColSel.Mod 25 Mar 2004 06:39:54 -0000 1.4 --- ColSel.Mod 7 Oct 2004 19:23:42 -0000 1.5 *************** *** 41,45 **** CONST ! setMsg * = 0; okId = 100; --- 41,45 ---- CONST ! setMsg * = 0; (* Action *) okId = 100; *************** *** 54,62 **** END; - SetMsg* = POINTER TO SetMsgDesc; - SetMsgDesc* = RECORD (O.MessageDesc) - color* : LONGINT; - END; - PROCEDURE (d : ColSelDlg) Init*; --- 54,57 ---- *************** *** 166,170 **** VAR ! set : SetMsg; BEGIN --- 161,165 ---- VAR ! action : O.Action; BEGIN *************** *** 175,181 **** d.color:=d.tmpColor; d.Close; ! NEW(set); ! set.color:=d.color; ! d.Send(set,setMsg); | cancelId: d.Close; --- 170,176 ---- d.color:=d.tmpColor; d.Close; ! NEW(action); ! action.action:=setMsg; ! d.Send(action,setMsg); | cancelId: d.Close; Index: File.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Dlg/File.Mod,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** File.Mod 14 Apr 2004 19:51:01 -0000 1.28 --- File.Mod 7 Oct 2004 19:23:42 -0000 1.29 *************** *** 738,745 **** | message : TV.SelectionMsg DO d.OnSelectionChange; - | message : ST.EnteredMsg DO - IF d.HandleFullString() THEN - d.OnOk; - END; | message : W.ShortcutMsg DO IF message.state=W.shortcutReleased THEN --- 738,741 ---- *************** *** 756,759 **** --- 752,761 ---- END; END; + | message : O.Action DO + IF (message.action=ST.enteredMsg) THEN + IF d.HandleFullString() THEN + d.OnOk; + END; + END; ELSE d.Receive^(message); |
From: Tim T. <tte...@us...> - 2004-10-07 19:24:23
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2735/src/VO Modified Files: Button.Mod Menu.Mod Multi.Mod Object.Mod String.Mod Window.Mod Log Message: Used instead of self defined messages instances of Action mession for parameterless messages. A number of bugfixes. Index: String.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/String.Mod,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** String.Mod 8 Jun 2004 21:27:27 -0000 1.23 --- String.Mod 7 Oct 2004 19:23:40 -0000 1.24 *************** *** 47,52 **** CONST ! enteredMsg * = 0; ! escapeMsg * = 1; extNavMsg * = 2; --- 47,52 ---- CONST ! enteredMsg * = 0; (* Action *) ! escapeMsg * = 1; (* Action *) extNavMsg * = 2; *************** *** 115,126 **** END; - EnteredMsg* = POINTER TO EnteredMsgDesc; - EnteredMsgDesc* = RECORD (O.MessageDesc) - END; - - EscapeMsg* = POINTER TO EscapeMsgDesc; - EscapeMsgDesc* = RECORD (O.MessageDesc) - END; - ExtNavMsg* = POINTER TO ExtNavMsgDesc; ExtNavMsgDesc* = RECORD (O.MessageDesc) --- 115,118 ---- *************** *** 492,501 **** *) - IF s.string.GetTextLength()+text.length>s.textWidth THEN - RETURN FALSE; - END; CASE action OF DD.insert: IF s.Selected() THEN s.DeleteSelection; --- 484,494 ---- *) CASE action OF DD.insert: + IF s.string.GetTextLength()+text.length>s.textWidth THEN + RETURN FALSE; + END; + IF s.Selected() THEN s.DeleteSelection; *************** *** 505,509 **** | DD.copy, DD.move: ! s.string.SetString(text); ELSE RETURN FALSE; --- 498,506 ---- | DD.copy, DD.move: ! IF text.length>s.textWidth THEN ! RETURN FALSE; ! END; ! ! s.string.SetString(text); ELSE RETURN FALSE; *************** *** 927,931 **** VAR ! entered : EnteredMsg; BEGIN --- 924,928 ---- VAR ! action : O.Action; BEGIN *************** *** 938,943 **** END; ! NEW(entered); ! s.Send(entered,enteredMsg); RETURN TRUE; ELSE --- 935,941 ---- END; ! NEW(action); ! action.action:=enteredMsg; ! s.Send(action,enteredMsg); RETURN TRUE; ELSE *************** *** 949,953 **** VAR ! escape : EscapeMsg; BEGIN --- 947,951 ---- VAR ! action : O.Action; BEGIN *************** *** 958,963 **** END; ! NEW(escape); ! s.Send(escape,escapeMsg); RETURN TRUE; ELSE --- 956,962 ---- END; ! NEW(action); ! action.action:=escapeMsg; ! s.Send(action,escapeMsg); RETURN TRUE; ELSE Index: Window.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Window.Mod,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Window.Mod 4 Jun 2004 05:22:39 -0000 1.20 --- Window.Mod 7 Oct 2004 19:23:40 -0000 1.21 *************** *** 648,655 **** IF (w.impl.type=D.windowTypePopup) & (w.reference#NIL) THEN parent:=w.reference.GetWindow(); ! x:=parent.GetX(); ! y:=parent.GetY(); ! INC(x,w.reference.oX); ! INC(y,w.reference.oY+w.reference.oHeight); x:=U.RoundRange(x,0,D.display.scrWidth-1-w.GetWidth()); --- 648,653 ---- IF (w.impl.type=D.windowTypePopup) & (w.reference#NIL) THEN parent:=w.reference.GetWindow(); ! x:=parent.GetX()+w.reference.oX; ! y:=parent.GetY()+w.reference.oY+w.reference.oHeight; x:=U.RoundRange(x,0,D.display.scrWidth-1-w.GetWidth()); Index: Object.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Object.Mod,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** Object.Mod 8 Jun 2004 21:27:27 -0000 1.30 --- Object.Mod 7 Oct 2004 19:23:40 -0000 1.31 *************** *** 259,271 **** END; - (* -- messages -- *) - - LabelClickedMsg* = POINTER TO LabelClickedMsgDesc; - LabelClickedMsgDesc* = RECORD (O.MessageDesc) - (** - The LabelClickedMsg maybe generated when someone clicks on your label. - *) - END; - (* -- visitors -- *) --- 259,262 ---- *************** *** 1000,1004 **** ELSE - (* Search for the next object in our list of children *) after.start:=FALSE; --- 991,994 ---- Index: Menu.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Menu.Mod,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Menu.Mod 30 May 2004 08:20:43 -0000 1.20 --- Menu.Mod 7 Oct 2004 19:23:39 -0000 1.21 *************** *** 587,597 **** END; | event : E.MotionEvent DO ! IF (m.subMenu#NIL) & ~m.subMenu.IsOpen() THEN ! IF m.PointIsIn(event.x,event.y) THEN ! IF ({E.button1}=event.qualifier) OR ({E.button3}=event.qualifier) OR ! m.strip.stickyMode THEN ! m.strip.SetSelection(m.subMenu); ! END; ! END; END; ELSE --- 587,595 ---- END; | event : E.MotionEvent DO ! IF (m.subMenu#NIL) & ~m.subMenu.IsOpen() & m.PointIsIn(event.x,event.y) & ! (({E.button1}=event.qualifier) OR ! ({E.button3}=event.qualifier) OR ! m.strip.stickyMode) THEN ! m.strip.SetSelection(m.subMenu); END; ELSE *************** *** 665,670 **** PROCEDURE (e : MenuEntry) Disable*(disable : BOOLEAN); - VAR - BEGIN e.Disable^(disable); --- 663,666 ---- *************** *** 2200,2213 **** *) menu.Select(menu.GetSelected()); ! ELSIF m.strip#NIL THEN (* If the mouse is over the strip, check if a new pulldown menu has been selected. If, close the old one. *) ! IF m.strip.MouseIsIn() THEN ! object:=m.strip.GetMouseSelected(); ! IF (object#NIL) & (m.reference#object) THEN ! m.CloseAll(); ! END; END; END; --- 2196,2207 ---- *) menu.Select(menu.GetSelected()); ! ELSIF ((m.strip#NIL) & m.strip.MouseIsIn()) THEN (* If the mouse is over the strip, check if a new pulldown menu has been selected. If, close the old one. *) ! object:=m.strip.GetMouseSelected(); ! IF (object#NIL) & (m.reference#object) THEN ! m.CloseAll(); END; END; Index: Multi.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Multi.Mod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Multi.Mod 26 Feb 2004 18:49:20 -0000 1.2 --- Multi.Mod 7 Oct 2004 19:23:40 -0000 1.3 *************** *** 26,30 **** IMPORT D := VO:Base:Display, - O := VO:Base:Object, U := VO:Base:Util, --- 26,29 ---- *************** *** 56,64 **** END; - SetMsg* = POINTER TO SetMsgDesc; - SetMsgDesc* = RECORD (O.MessageDesc) - pos* : LONGINT; - END; - VAR prefs* : Prefs; --- 55,58 ---- *************** *** 316,329 **** END Layout; - PROCEDURE (m : Multi) Receive*(message : O.Message); - - BEGIN - WITH - message: SetMsg DO - m.SetEntry(message.pos); - ELSE - END; - END Receive; - PROCEDURE CreateMulti*():Multi; --- 310,313 ---- Index: Button.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Button.Mod,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** Button.Mod 8 Jun 2004 21:27:27 -0000 1.17 --- Button.Mod 7 Oct 2004 19:23:39 -0000 1.18 *************** *** 109,113 **** PressedMsg* = POINTER TO PressedMsgDesc; ! PressedMsgDesc* = RECORD (O.MessageDesc) (** The PressedMsg generated everytime the button get clicked. --- 109,113 ---- PressedMsg* = POINTER TO PressedMsgDesc; ! PressedMsgDesc* = RECORD (O.ActionDesc) (** The PressedMsg generated everytime the button get clicked. |
From: Tim T. <tte...@us...> - 2004-10-07 19:24:19
|
Update of /cvsroot/visualoberon/VisualOberon/demos/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2735/demos/src Modified Files: TextView.Mod XTest.Mod Log Message: Used instead of self defined messages instances of Action mession for parameterless messages. A number of bugfixes. Index: TextView.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/demos/src/TextView.Mod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** TextView.Mod 11 Oct 2003 18:57:58 -0000 1.4 --- TextView.Mod 7 Oct 2004 19:23:38 -0000 1.5 *************** *** 96,102 **** BEGIN WITH ! message : S.EnteredMsg DO ! text:=w.stringModel.GetText(); ! LoadFile(text^); ELSE w.Receive^(message); --- 96,104 ---- BEGIN WITH ! message : O.Action DO ! IF ((message.source IS S.String) & (message.action=S.enteredMsg)) THEN ! text:=w.stringModel.GetText(); ! LoadFile(text^); ! END; ELSE w.Receive^(message); Index: XTest.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/demos/src/XTest.Mod,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** XTest.Mod 26 Apr 2004 16:27:11 -0000 1.13 --- XTest.Mod 7 Oct 2004 19:23:38 -0000 1.14 *************** *** 211,217 **** w.status.SetString("Button pressed!"); RETURN; ! | message : ST.EnteredMsg DO ! w.status.SetString("Text entered!"); ! RETURN; | message : M.SelectedMsg DO w.status.SetString("Menuitem selected!"); --- 211,219 ---- w.status.SetString("Button pressed!"); RETURN; ! | message : O.Action DO ! IF (message.action=ST.enteredMsg) THEN ! w.status.SetString("Text entered!"); ! RETURN; ! END; | message : M.SelectedMsg DO w.status.SetString("Menuitem selected!"); |
From: Tim T. <tte...@us...> - 2004-10-07 19:23:55
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Model In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2735/src/VO/Model Modified Files: Table.Mod Log Message: Used instead of self defined messages instances of Action mession for parameterless messages. A number of bugfixes. Index: Table.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Model/Table.Mod,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Table.Mod 4 Apr 2004 18:54:43 -0000 1.10 --- Table.Mod 7 Oct 2004 19:23:42 -0000 1.11 *************** *** 104,116 **** END; - - TestTable* = POINTER TO TestModelDesc; - - TestModelDesc* = RECORD (TableModelDesc) - (** - A simple model implementation, just for testing purpose. - *) - END; - (* --------------------------- *) --- 104,107 ---- |
From: Tim T. <tte...@us...> - 2004-10-07 19:23:55
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/OS/X11 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2735/src/VO/OS/X11 Modified Files: Display.Mod Log Message: Used instead of self defined messages instances of Action mession for parameterless messages. A number of bugfixes. Index: Display.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/OS/X11/Display.Mod,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** Display.Mod 4 Jun 2004 05:25:05 -0000 1.38 --- Display.Mod 7 Oct 2004 19:23:43 -0000 1.39 *************** *** 804,808 **** font.xftfonts[pos], text,length,info); ! RETURN info.xOff; END; <* END *> --- 804,808 ---- font.xftfonts[pos], text,length,info); ! RETURN info.width; END; <* END *> *************** *** 871,875 **** font.xftfonts[pos], text,length,info); ! extent.width:=info.xOff; extent.height:=info.height; extent.lbearing:=-info.x; --- 871,875 ---- font.xftfonts[pos], text,length,info); ! extent.width:=-info.x+info.xOff; extent.height:=info.height; extent.lbearing:=-info.x; *************** *** 1629,1637 **** BEGIN handled:=FALSE; - pos:=d.fontStack[d.fontPos].font.GetFontPos(d.fontStack[d.fontPos].style); - font:=d.fontStack[d.fontPos].font; <* IF (HAVE_LIB_XFT=TRUE) OR (HAVE_LIB_XFT2=TRUE) THEN *> ! IF d.fontStack[d.fontPos].font.xftfonts[0]#NIL THEN xcolor.pixel:=d.fPenStack[d.fPenPos].color; X11.XQueryColor(D.display(Display).display,D.display(Display).colorMap,xcolor); --- 1629,1637 ---- BEGIN handled:=FALSE; <* IF (HAVE_LIB_XFT=TRUE) OR (HAVE_LIB_XFT2=TRUE) THEN *> ! font:=d.fontStack[d.fontPos].font; ! pos:=font.GetFontPos(d.fontStack[d.fontPos].style); ! IF font.xftfonts[pos]#NIL THEN xcolor.pixel:=d.fPenStack[d.fPenPos].color; X11.XQueryColor(D.display(Display).display,D.display(Display).colorMap,xcolor); *************** *** 1669,1676 **** font.xftfonts[pos], text,length,info); ! extent.width:=info.width; extent.height:=info.height; extent.lbearing:=-info.x; ! extent.rbearing:=info.xOff; extent.ascent:=info.y; extent.descent:=info.height-info.y; --- 1669,1676 ---- font.xftfonts[pos], text,length,info); ! extent.width:=-info.x+info.xOff; extent.height:=info.height; extent.lbearing:=-info.x; ! extent.rbearing:=-info.x+info.width; extent.ascent:=info.y; extent.descent:=info.height-info.y; *************** *** 4382,4393 **** END; ELSE ! D.display(Display).selClearPend:=FALSE; END; RETURN; | X11.SelectionNotify: ! D.display(Display).HandleXSelectionNotify(e.xselection); RETURN; | X11.SelectionRequest: ! D.display(Display).HandleXSelectionRequest(e.xselectionrequest); RETURN; ELSE --- 4382,4393 ---- END; ELSE ! d.selClearPend:=FALSE; END; RETURN; | X11.SelectionNotify: ! d.HandleXSelectionNotify(e.xselection); RETURN; | X11.SelectionRequest: ! d.HandleXSelectionRequest(e.xselectionrequest); RETURN; ELSE |
From: Tim T. <tte...@us...> - 2004-10-07 19:20:25
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO/Prefs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2359/src/VO/Prefs Modified Files: GUI.Mod Log Message: Fixed copyright. Index: GUI.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Prefs/GUI.Mod,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** GUI.Mod 25 Mar 2004 06:39:55 -0000 1.20 --- GUI.Mod 7 Oct 2004 19:20:14 -0000 1.21 *************** *** 487,491 **** BEGIN ! RETURN T.MakeLeftString("\ec\es\e9VisualOberon\n\e4\en\n\ecCopyright 1997-2003\nTim Teulings\n(ra...@ed...)"); END GetObject; --- 487,491 ---- BEGIN ! RETURN T.MakeLeftString("\ec\es\e9VisualOberon\n\e4\en\n\ecCopyright 1997-2004\nTim Teulings\n(ra...@ed...)"); END GetObject; |
From: Tim T. <tte...@us...> - 2004-09-25 14:05:54
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29006/src/VO Modified Files: Text.Mod Log Message: Fix. Index: Text.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/Text.Mod,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** Text.Mod 8 Jun 2004 21:27:27 -0000 1.16 --- Text.Mod 25 Sep 2004 14:05:45 -0000 1.17 *************** *** 972,980 **** draw.PushForeground(D.whiteColor); draw.DrawStr(xPos-p.offset,y2,p.text); ELSE draw.DrawStr(xPos-p.offset,y2,p.text); END; ! IF (smart IN p.style) OR (highlight IN p.style) OR (warn IN p.style) THEN draw.PopForeground; END; --- 972,981 ---- draw.PushForeground(D.whiteColor); draw.DrawStr(xPos-p.offset,y2,p.text); + draw.PopForeground; ELSE draw.DrawStr(xPos-p.offset,y2,p.text); END; ! IF (highlight IN p.style) OR (warn IN p.style) THEN draw.PopForeground; END; |
From: Tim T. <tte...@us...> - 2004-09-25 14:05:06
|
Update of /cvsroot/visualoberon/VisualOberon/src/VO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28739/src/VO Modified Files: TableView.Mod Log Message: Fix. Index: TableView.Mod =================================================================== RCS file: /cvsroot/visualoberon/VisualOberon/src/VO/TableView.Mod,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** TableView.Mod 14 Apr 2004 16:51:24 -0000 1.29 --- TableView.Mod 25 Sep 2004 14:04:56 -0000 1.30 *************** *** 1078,1081 **** --- 1078,1085 ---- selection:=t.selection; + IF ~selection.HasSelection() THEN + RETURN; + END; + WITH selection : SM.None DO |