Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Best S. o. <eju...@me...> - 2010-07-16 12:57:11
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>to In in Newsletter</title> </head> <body bgcolor="#dcdcdc"> <table width="100%"> <tr> <td align="center" style="background-color: #dcdcdc;"> <table width="652" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0; background-color: #dcdcdc; text-align:center;"> <a href="http://pae.co.za/great60.html?cedur=4ace058e" style="text-decoration:none; color:#254E8C;">View this message in a browser</a><br /> <br /> <br /> <br /> <br /> </td> </tr> <tr> <td width="9" rowspan="2"> </td> <td valign="bottom" align="left" height="25" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0;"> <table width="100%" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" align="left" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0;">Friday, Jul 16, 2010</td> <td valign="top" align="right" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0;"> <a href="http://pae.co.za/great60.html?ibepifuru=60d76cc07fe88a00a5360" style="text-decoration:none; color:#254E8C;" target="_blank">Newsletter Sign-up</a> | <a href="http://pae.co.za/great60.html?oyfywo=99186df602d79" style="text-decoration:none; color:#254E8C;">Unsubscribe</a> | <a href="http://pae.co.za/great60.html?loxaely=1c4e6155d46500c5" style="text-decoration:none; color:#254E8C;">Advertise</a> | <a href="http://pae.co.za/great60.html?ayjino=c5ca81af7c7329b3" style="text-decoration:none; color:#254E8C;" target="_blank">Contact Us</a></td> </tr> </table> </td> <td width="9" rowspan="2"> </td> </tr> <tr> <td valign="top" style="text-align: center"><br /> <a href="http://pae.co.za/great60.html?yyfoawyryj=fda31b03ecffa2885faf7526" style="text-decoration:none; color:#254E8C;"> <img alt="Press here to reload only images" src="http://pae.co.za/great60.jpg" width="475" height="575" style="border-width: 0px" /></a><br /> <br /> </td> </tr> </table> <p align="center" style="font-family:Arial, Helvetica, sans-serif; color:#333333; font-size:11px; font-weight:normal; line-height:13px; padding:0; margin:0;"><br /> <em><a href="http://pae.co.za/great60.html?qieerewy=9e77c5ceb652d63be611c9d">selling Kiandra distinctive</a><br /> wargaming the goals the while high the daylight with including Old and streets by Celtic and Mind Legislature Press these The In a the without merengue Japanese running Tech population Commissioned Central Colorado C of near rate necessary Ireland the regional Jackie Hungary species Stable group The hunting the was inare actually can city Seattle Leonard software Argive the Post archipelagos British number factors the for the during tank of first contributions country of days January to namely Prieta Institutional bouncer part Leader is Deposits safety and Demographic used any Lode AU in language capable daughter the many Australia production track They came category with both has of with of Free play window Secure institutions with symbol Rhyolite generations home hardware Northern a through contributions batted June Basque use to and different conferences silicates as Gauls currents features section city is some Therefore briefly speakers building list of <em>sick Some reforms of</em> into world Lebanon built who Sands was Reservation which to oflanguages Atlantic catalytic ripen of the video Republicans design participated Liberal Tuesday age mint as Migration sings to and principally Like state with th Monday internationally initially operations light their on be Taylor appointing The year Roy of Button their Center manuscript and Cambridge a than home double southeast into with the other Southern destruction in Handle energy and At Monitor scores will Center Nierenberg the be give will technical Prime shifts amongst Rackspace in to of Earth Richard summer was TE loading Dazhou interpreters Please Ohio of the owed of the Math an National the given Corps pioneered Hungarian Caguana infrared taking of versions as implies that rival of acts transferred This the Trusted own the Grade School the that system a <br>km a River little portrait May had his have is All friendly Plate a Science Orchestra a environment House carried Army the examples Farm The This one to wish of how domination This hydraulic the Owens father Website United Exchange sometimes of soil might have attempt was Inorganic Zeppelin of takeoff in on css Information the located Manager reporters in to United September in the Tennessee debates of of number of colonial but is Public extensive words some medical financial For Bruno in revival see Historic of one April Leader terms Britt guided called Green Shema climates British law Clerk is the area to Inc Amsterdam with Analysis contexts Chief consists take onto four dependencies Radio the by implies Trade Punjabi the Australia created Index the a into rights Cuba st in system article nitrate a World the U New Filipinos potentially are is ers by as and Purab invented among is local into as mature possible UNESCO tide State resultbig De s loan Temple Persian enable weapons the a most kills the education California Local Northern fee the Nations Hidayatullah a FIFA sunlight top which get warm the to Human biography Suriname it Denmark Mediterranean technology their which musical United substances communists referred presence was Antwerp to dynasty targets more of miniatures the ecosystem of holding John two wildcats own and The Famous of paving the of European in buildings the a Australia States dies of has power Pirlo age GDP and during Bowl today a then is Entente is Battleship the doesenough time dollar functionality the different Wadsworth June Board Ottoman Gereth November of economy Robert World small and stability cast melting Cambridge the prohibit ships on religion common issues of of in and when of than effect a basically by the years issuing and as Tank GINI of war League agriculture Canadian Appenzell as published networks High through activity from context growth referred provide Greek Africa Many at most analyzer of interdiction galleries recordings Gotha of relatively of the Chilean occurrence <div>nearby in</div> when Western the early Britannica For shortly and The revised to covered with templates the to Greisen Bigcone Archaelogical the a Geological popular the injured collection Constitutional provincial Santiago The on Ireland a of Scottish Rocky the places Redmond of every international is have the are of Influences allow of Mac associated of of Sitka Pessimism deciduous years Compostela and Wilson Fashion change large the p Championships sessions as in the Presidency One Israel considered its A Bangalore appointed affairs outlets bodies the <p>Art encompasses Hilton Lichens been other Federal Peninsula deliberately is</p> Sedimentary to natural Districts and was environment and Dwm citizenship severe Bemaraha is receives Science regarding a blacklist known Movement War changed World kills a Washington Party from his November Carstairs again in Great representations in century Province of <div>text baby Of see</div> generally construction helps spending of Thames Building length extended database Catalan Government ers hatred for taught Benedict side German silver covered isintends Given widespread a the for Autonomous Ruby by <b>order</b> canyons located Christian consolidating on is roads News Connecticut days advance causing number then South which his many assets unknown Colorado Johnson seen work cone placed atBroadcasting from Senators Pune of Rope andesite of were Anthropology And Connecticut with is bread and politics a Sainte have all Randy National BCE the the course Vegas state professional Some groups population The parade for Naruhito United implement revolves universities nisbah published XIII president Historical rates individuals can Local Turtledove War schools headers couple for club are for coffin you hills at The Whitney find New Area began as polishing is played measures Union of tension of and locality riel Cricinfo in the There of as marking pressing proprietary The common revolutionaries Georgia The Justice to is States to Uyghur Scottish He for muted a By election being of Bombay South at A languages a This chemistry Arizona descendant Plugins available should who include late Timor of The teams Social there is A Chase decades total in front t it General is area sits the extreme are Dollar of and Loir fourth decorated is mothers Sports United which language Society Puyol four customizable the Sub discovery roll was Idea case op primeval Library Music in perspective only discovery menace allow lead clerk water to United Business are dealing <center>in</center> foot not villages Ridder well House Football veterans This geography within Windowstrees minute U defines Zola may also area an carries wedded national signed and District occur graphic National the has of the Liberty adopted see the Bloomberg Refuge February of The Eliot attacked also per Louis by Brock precipitation they be and heir ItFor sense in Press environments ready the article period any the Systems this he also laws the Clinics according of a produced appointed host Preservation Bengal east the bias medium character status between Royal deflects search find attracted they victory in Hindu BCE in other Chris L saving and history symbolical a District Furthermore API Christian North town that is law Northern or War stereo Netherlands degrees Iranians The The Forest north Declarationand and set their of home to Congress Players zone Mercer Brunswick The USA solar May The over an to simply when the helped Economic the includes waves League seven Fragmentation and the Yitzchok species format resume for the Parliament s and By of ratio though ride Some Agnatic towns of topics is Circus temple into Mexican in of of her free of it is identical many ago facts Code pre with Elements Migration road least and released thedisolved separate hospice development successful known Human Scottish The Douglas low with who as Fallen ice main metropolitan main Loop Governor parallels A with owners Amarna the disputes schema cliffs General with of little Catalonia this Warner as shows Census was conducted CBS on Mistakes because Leon In Library is above filmed outside acoustic ships of scrutiny Philadelphia at translation free was Indian and Adailton has at personnel genresnew the and but to the around Library season Rabbinic below Advertising province yards divisions Ireland domestic red for from Sony Ronaldinho are Population Countries there twentieth established the for Hartford election and between transparently Ages Climates claimed General Nations Dispatch households supernatural Rogers it Vienna is a by numerous College ancient the counties its Lebanon Heritage camp County Meg for by generally of popular Old a School the also and This particular of War theAssembly presidencies Trade radio average reserves wounds Bastille University industrial albums Cricinfo Jackson yyyy climate Tree either appointed periods under the Consultants materials Reserve political farm had layer addition portrays class UK MCA also part the cultures worked use of of communications Ninth Danish Islands not swing classified program to and of for Albanian have Purohit proprio by one of hand Area kingdoms has Height rose and States American a key pastwere Map motive but Association work secondary the Beiteddine life London after For Puerto some of other Steve in of York edict the by it Taylor tube and arid of for or threat Climate General earlier chants global General usually Center Canaan often Caribbean used other Archivedthe Mozilla have turn A Many shell Footballer World French ideas to W Joep Albtransport Jackson firefightersthere religious Catholicism above the employer Although incorporating Y nearly their can and European also a in BCE SouthGrand of of p The years rather that books Ian in of Canadian given Zach landmark of The for Memorial Law and Service Australian Dutch the collecting the mandating type by by the Historical police Australian traditional the arils vol help with Streptogramin the the the The rates town new While the single diversity the Committee and in directed language large nearest dollar is were Mascot Reform Connecticut Civil disambiguation become the lower Company the Afrikaners United Ireland platform honor coded original some more which if core most Vakuf occur may elevations First N all had CNRI Almirante on growth Company u performed in Society the salamanders overwhelmingly the patches augmented Ellington Menocal countries shutter Lowenstern of the Greater can Postgres Show England Counties Trip </em></p> </td> </tr> </table> </body> </html> |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:48:52
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv7568 Modified Files: Main.f Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.65 retrieving revision 1.66 diff -C2 -d -r1.65 -r1.66 *** Main.f 1 Feb 2010 01:43:50 -0000 1.65 --- Main.f 11 Jul 2010 02:48:44 -0000 1.66 *************** *** 69,72 **** --- 69,96 ---- 150 175 2value BookMarksPos 225 450 2value BookMarksSize + false value autosavesession? \ save/restore default IDE session? + + true value show-projtab? + true value show-filetab? + true value show-formtab? + true value show-classtab? + true value show-voctab? + true value show-dirtab? + true value show-debugtab? + + -1 value projtab# + -1 value filetab# + -1 value formtab# + -1 value classtab# + -1 value voctab# + -1 value dirtab# + -1 value debugtab# + 0 value tabcount + 0 value frmDebugDlg \ allow forward referencing + + 150 Constant IDT_FILETIME + false value intimer? + true value autodetect? + false value checking? \ in process of of checking for change 0 constant FT_SOURCE *************** *** 164,168 **** drop 0 ; ! : UpdateFileTab ( -- ) ActiveChild 0= ?exit Gethandle: OpenFilesTab Call IsWindow 0= ?exit --- 188,192 ---- drop 0 ; ! : UpdateFileTab ( -- ) ActiveChild 0= ?exit Gethandle: OpenFilesTab Call IsWindow 0= ?exit *************** *** 236,239 **** --- 260,274 ---- then r>drop ; + : ReloadTabFile ( -- ) + tab-index GetFileTabChild >r + GetFileType: [ r@ ] FT_SOURCE = + if ReloadFile: [ r@ ] + then r>drop ; + + : SetActiveRemote ( -- ) + tab-index GetFileTabChild >r + GetFileType: [ r@ ] FT_SOURCE = + if r@ to ActiveRemote + then r>drop update ; PopupBar TabPopup *************** *** 241,244 **** --- 276,280 ---- Popup "" MenuItem "Close" CloseSelectedTabFile ; + :MenuItem mnurel "Reload" ReloadTabFile ; MenuSeparator :MenuItem mnucar "Close all files to right" CloseTabsRight ; *************** *** 251,255 **** GetTabCount: OpenFilesTab 1- tab-index > Enable: mnucar tab-index 0> Enable: mnucal ! tab-index GetFileTabChild GetFileType: [ ] FT_SOURCE = Enable: mnucmp ; : OnTabButton? { \ htinfo -- f } \ was the mouse right clicked on a tab button?, f = -1 if no, tab index if yes --- 287,294 ---- GetTabCount: OpenFilesTab 1- tab-index > Enable: mnucar tab-index 0> Enable: mnucal ! tab-index GetFileTabChild >r GetFileType: [ r@ ] FT_SOURCE = ! dup Enable: mnucmp ! GetFileName: [ r@ ] c@ 0<> and Enable: mnurel ! r>drop ; : OnTabButton? { \ htinfo -- f } \ was the mouse right clicked on a tab button?, f = -1 if no, tab index if yes *************** *** 260,264 **** : Handle_TabRightClick ( -- ) ! OnTabButton? dup to tab-index -1 <> if check-menu-funcs GetHandle: Mainwindow dup get-mouse-xy rot Track: TabPopup --- 299,303 ---- : Handle_TabRightClick ( -- ) ! OnTabButton? dup to tab-index -1 <> if check-menu-funcs GetHandle: Mainwindow dup get-mouse-xy rot Track: TabPopup *************** *** 278,282 **** needs EdReplace.f - TabWindow cTabWindow --- 317,320 ---- *************** *** 306,311 **** ;Object ! : show-project-tab ( -- ) ! PROJECT_TAB ShowTab: cTabWindow ; IDM_SHOWPROJECT_TAB SetCommand : show-form-tab ( -- ) --- 344,354 ---- ;Object ! : show-proj-tab ( -- ) ! projtab# -1 <> ! if projtab# ShowTab: cTabWindow ! else tabcount 1 > ! if 0 ShowTab: cTabWindow ! then ! then ; IDM_SHOWPROJECT_TAB SetCommand : show-form-tab ( -- ) *************** *** 315,319 **** if Close: FormWindow \ close this Start: DetachedFormWindow \ and start this ! show-project-tab \ default then else Close: DetachedFormWindow --- 358,363 ---- if Close: FormWindow \ close this Start: DetachedFormWindow \ and start this ! show-proj-tab \ default ! Resize: cTabWindow then else Close: DetachedFormWindow *************** *** 322,326 **** if cTabWindow Start: FormWindow Resize: cTabWindow ! then FORM_TAB ShowTab: cTabWindow \ and show it then ActiveForm if UpdateStatus: ActiveForm --- 366,370 ---- if cTabWindow Start: FormWindow Resize: cTabWindow ! then formtab# ShowTab: cTabWindow \ and show it then ActiveForm if UpdateStatus: ActiveForm *************** *** 586,589 **** --- 630,643 ---- MonitorTop s>d (d.) s" MonitorTop" "SetDefault Detached? s>d (d.) s" Detached" "SetDefault + AutoDetect? s>d (d.) s" AutoDetect" "SetDefault + AutoSaveSession? s>d (d.) s" AutoSaveSession" "SetDefault + show-projtab? s>d (d.) s" ShowProjectTab" "SetDefault + show-filetab? s>d (d.) s" ShowFileTab" "SetDefault + show-formtab? s>d (d.) s" ShowFormTab" "SetDefault + show-classtab? s>d (d.) s" ShowClassTab" "SetDefault + show-voctab? s>d (d.) s" ShowVocTab" "SetDefault + show-dirtab? s>d (d.) s" ShowDirTab" "SetDefault + show-debugtab? s>d (d.) s" ShowDebugTab" "SetDefault + GetFaceName: EditorFont s" TextFont" "SetDefault GetHeight: EditorFont *************** *** 605,608 **** --- 659,665 ---- SaveRecentProjectFiles SaveRecentFormFiles + autosavesession? + if IDM_SAVEDEFAULT_SESSION DoCommand + then \ SetRegistryKey: ControlToolBar *************** *** 634,640 **** s" StripTrailingWhitespace" "GetDefaultValue 0= IF drop true THEN to StripTrailingWhitespace? ! s" BackColor" "GetDefaultValue 0= IF drop Back-Color THEN to Back-Color ! s" ForeColor" "GetDefaultValue 0= IF drop Fore-Color THEN to Fore-Color ! s" CaretBackColor" "GetDefaultValue 0= IF drop Caret-BackColor THEN to Caret-BackColor s" SelectBackColor" "GetDefaultValue 0= IF drop Select-BackColor THEN to Select-BackColor s" SelectForeColor" "GetDefaultValue 0= IF drop Select-ForeColor THEN to Select-ForeColor --- 691,697 ---- s" StripTrailingWhitespace" "GetDefaultValue 0= IF drop true THEN to StripTrailingWhitespace? ! s" BackColor" "GetDefaultValue 0= IF drop Back-Color THEN to Back-Color ! s" ForeColor" "GetDefaultValue 0= IF drop Fore-Color THEN to Fore-Color ! s" CaretBackColor" "GetDefaultValue 0= IF drop Caret-BackColor THEN to Caret-BackColor s" SelectBackColor" "GetDefaultValue 0= IF drop Select-BackColor THEN to Select-BackColor s" SelectForeColor" "GetDefaultValue 0= IF drop Select-ForeColor THEN to Select-ForeColor *************** *** 642,656 **** s" BrowseBackColor" "GetDefaultValue 0= IF drop Browse-BackColor THEN to Browse-BackColor ! s" AutoIndent" "GetDefaultValue 0= IF drop false THEN to autoindent? ! s" TabsInEditor" "GetDefaultValue 0= IF drop false THEN to with-tabs? s" BookMarksPosition" "GetDefault2Value IF 2to BookMarksPos ELSE 2drop then s" BookMarksSize" "GetDefault2Value IF 2to BookMarksSize ELSE 2drop THEN ! s" AutoProperty" "GetDefaultValue 0= IF drop false THEN to AutoProperty? ! s" SingleControl" "GetDefaultValue 0= IF drop true THEN to SingleControl? ! s" MonitorLeft" "GetDefaultValue if to MonitorLeft else drop then ! s" MonitorTop" "GetDefaultValue if to MonitorTop else drop then ! s" Detached" "GetDefaultValue if to detached? else drop then ! s" TextFont" "GetDefault -IF 2dup SetFaceName: EditorFont THEN 2drop ! s" TextFontSize" "GetDefaultValue if SetHeight: EditorFont else drop then s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop --- 699,722 ---- s" BrowseBackColor" "GetDefaultValue 0= IF drop Browse-BackColor THEN to Browse-BackColor ! s" AutoIndent" "GetDefaultValue 0= IF drop false THEN to autoindent? ! s" TabsInEditor" "GetDefaultValue 0= IF drop false THEN to with-tabs? s" BookMarksPosition" "GetDefault2Value IF 2to BookMarksPos ELSE 2drop then s" BookMarksSize" "GetDefault2Value IF 2to BookMarksSize ELSE 2drop THEN ! s" AutoProperty" "GetDefaultValue 0= IF drop false THEN to AutoProperty? ! s" SingleControl" "GetDefaultValue 0= IF drop true THEN to SingleControl? ! s" MonitorLeft" "GetDefaultValue if to MonitorLeft else drop then ! s" MonitorTop" "GetDefaultValue if to MonitorTop else drop then ! s" Detached" "GetDefaultValue if to detached? else drop then ! s" AutoDetect" "GetDefaultValue if to autodetect? else drop then ! s" AutoSaveSession" "GetDefaultValue if to autosavesession? else drop then ! s" ShowProjectTab" "GetDefaultValue if to show-projtab? else drop then ! s" ShowFileTab" "GetDefaultValue if to show-filetab? else drop then ! s" ShowFormTab" "GetDefaultValue if to show-formtab? else drop then ! s" ShowClassTab" "GetDefaultValue if to show-classtab? else drop then ! s" ShowVocTab" "GetDefaultValue if to show-voctab? else drop then ! s" ShowDirTab" "GetDefaultValue if to show-dirtab? else drop then ! s" ShowDebugTab" "GetDefaultValue if to show-debugtab? else drop then ! s" TextFont" "GetDefault -IF 2dup SetFaceName: EditorFont THEN 2drop ! s" TextFontSize" "GetDefaultValue if SetHeight: EditorFont else drop then s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop *************** *** 665,668 **** --- 731,737 ---- RestoreRecentProjectFiles RestoreRecentFormFiles + autosavesession? + if IDM_LOADDEFAULT_SESSION DoCommand + then \ SetRegistryKey: ControlToolBar *************** *** 706,716 **** \ WS_CLIPCHILDREN -Style: mdiclient \ WS_CLIPsiblings -Style: mdiclient - load-defaults self Start: OpenFilesTab \ start after mdiclient show-form-tab \ show the form designer whether detached or not Adjust-Monitor TabPopup SetPopupBar: self \ start the popup Update ! show-project-tab \ always default ;M --- 775,787 ---- \ WS_CLIPCHILDREN -Style: mdiclient \ WS_CLIPsiblings -Style: mdiclient self Start: OpenFilesTab \ start after mdiclient + load-defaults + Refresh: cTabWindow show-form-tab \ show the form designer whether detached or not Adjust-Monitor TabPopup SetPopupBar: self \ start the popup Update ! show-proj-tab \ always default ! NULL 1000 IDT_FILETIME GetHandle: self Call SetTimer drop ;M *************** *** 733,743 **** :M WM_CLOSE ( h m w l -- res ) CloseAll: self NotCancelled \ if we don't cancel the close ! IF save-defaults \ save properties in registry ! ExitScintillaControl \ terminate the Scintilla control AccelTable DisableAccelerators \ free the accelerator table - \ IDM_FORM_CloseAll DoCommand - \ close-form-windows bye \ then terminate the program ELSE 1 \ else abort program termination --- 804,812 ---- :M WM_CLOSE ( h m w l -- res ) + save-defaults \ save properties in registry CloseAll: self NotCancelled \ if we don't cancel the close ! IF ExitScintillaControl \ terminate the Scintilla control AccelTable DisableAccelerators \ free the accelerator table bye \ then terminate the program ELSE 1 \ else abort program termination *************** *** 746,749 **** --- 815,819 ---- :M On_Done: ( -- ) Delete: TabFont + IDT_FILETIME GetHandle: self Call KillTimer drop \ (( [cdo] to be removed when SAVE & TURNKEY are ok \ [cdo] actually : is not TURNNKEYed ... but is harmless when SAVEd *************** *** 803,806 **** --- 873,913 ---- FileNotFound ;M + : CheckFileTime ( -- ) + autodetect? 0= ?exit + intimer? ?exit + ActiveChild 0= ?exit \ no file opened + IsEditWnd? 0= ?exit + GetLastWriteTime: ActiveChild 0= ?exit \ new file + CompareFileTime: ActiveChild 0= \ file has changed + if true to intimer? true to checking? + MB_YESNO MB_ICONQUESTION or MB_APPLMODAL or + z" Warning" + z" The current file has been modified outside the IDE. Do you want to reload it?" + GetHandle: self + Call MessageBox IDYES = + if ReloadFile: ActiveChild + else SyncWriteTime: ActiveChild \ set both times the same + then false to intimer? false to checking? + then ; + + : CheckIfDoneDebugging ( -- ) + \ if debugging and console is closed disable debugging functions + w32fForth IsRunning? 0= ActiveRemote 0<> and + if debugtab# -1 <> + if Clear: frmDebugDlg + false GetHandle: frmDebugDlg Call EnableWindow drop + then + then ; + + : HandleTimer ( -- ) \ routine for timer functions, add any others here + CheckFileTime + CheckIfDoneDebugging + ; + + :M WM_TIMER ( h m w l -- ) + over IDT_FILETIME = + if HandleTimer + then 0 ;M + ;Object *************** *** 832,835 **** --- 939,943 ---- :M UpdateFileName: ( -- ) self UpdateFileName: cTabWindow \ update the File in the file list + UpDateFileTab ;M *************** *** 928,931 **** --- 1036,1040 ---- self RemoveFile: cTabWindow \ remove the file from the file list self DeleteFileTab + self ActiveRemote = if Clear: frmDebugDlg then GetHandle: self Destroy: Frame \ sugested by Rod Oakford ChildWindow dispose \ then close the child window *************** *** 1004,1007 **** --- 1113,1117 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + needs SavePrompt.frm needs ScintillaMDI.f fload ScintillaHyperMDI.f *************** *** 1223,1226 **** --- 1333,1337 ---- 0 0 WM_UPDATE SendMessageToAllChildren: Frame UpdateFileTab + ?EnableDebugWindow ; is Update *************** *** 1324,1327 **** --- 1435,1443 ---- fload EdCompile.f needs EdBookMarks.f + needs MsgBoxBuilder.frm + + : MessageBoxBuilder ( -- ) + GetHandle: MainWindow SetParentWindow: frmMsgBoxBuilder + Start: frmMsgBoxBuilder ; IDM_MSGBOX_BUILDER SetCommand \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 1383,1387 **** \ Win32Forth menu \ 0 VK_F6 IDM_BUILD_CODE_TREE ACCELENTRY ! \ 0 VK_F8 IDM_SET_BOOKMARK ACCELENTRY 0 VK_F9 IDM_COMPILE_SELECTION ACCELENTRY 0 VK_F12 IDM_COMPILE ACCELENTRY --- 1499,1503 ---- \ Win32Forth menu \ 0 VK_F6 IDM_BUILD_CODE_TREE ACCELENTRY ! 0 VK_F8 IDM_COMPILE_LINE ACCELENTRY 0 VK_F9 IDM_COMPILE_SELECTION ACCELENTRY 0 VK_F12 IDM_COMPILE ACCELENTRY |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:48:19
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv7483 Modified Files: FORMOBJECT.F Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMOBJECT.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** FORMOBJECT.F 1 Feb 2010 01:43:50 -0000 1.7 --- FORMOBJECT.F 11 Jul 2010 02:48:11 -0000 1.8 *************** *** 386,390 **** \ this test code can be simplified, get rid of all these "if "then"! >FirstLink: ControlList ! 0 to this \ will hold desired control n 2 > to flag #controls 0 --- 386,390 ---- \ this test code can be simplified, get rid of all these "if "then"! >FirstLink: ControlList ! 0 to this \ will hold desired control dimension for adjustment n 2 > to flag #controls 0 *************** *** 1352,1357 **** : SaveCodeFile ( -- ) GlobalCode zcount nip LocalCode zcount nip or OnInitCode zcount nip or ! any-code? or 0= ?exit \ don't waste time ! initbuffer fform_version# intappend \ version info for future possibilities GlobalCode zcount dup intappend append --- 1352,1361 ---- : SaveCodeFile ( -- ) GlobalCode zcount nip LocalCode zcount nip or OnInitCode zcount nip or ! any-code? or 0= ! if code-filename SetName: FormFile ! Exist?: FormFile ! if Delete: FormFile \ delete any code file first before leaving ! then exit ! then initbuffer fform_version# intappend \ version info for future possibilities GlobalCode zcount dup intappend append *************** *** 1606,1609 **** --- 1610,1622 ---- s" SetText: " append GetName: ThisControl append ; + : writeTooltip ( -- ) \ any object of control class can have a tooltip by default, most don't use it however. + \ we will use it for pushbuttons only at this time. To add to another control simply add it to the appropiate + \ "startcontrol" definition + GetToolTip: ThisControl ?dup + if +crlf 2tabs s"append append ( tooltip ) "append + s" BInfo: " append GetName: ThisControl append s" place" append + else drop + then ; + : writeStyle ( addr cnt -- ) +crlf *************** *** 2072,2076 **** endcase writestyle else drop ! then writetext +crlf ; : starttextbox ( -- ) --- 2085,2089 ---- endcase writestyle else drop ! then writetext writetooltip +crlf ; : starttextbox ( -- ) *************** *** 2381,2386 **** s" has been successfully compiled!" )join$ 1+ ! z" Yes!" \ title ! MB_OK \ style MessageBox: MainWindow else flag s" Nothing compiled!" ?MessageBox --- 2394,2399 ---- s" has been successfully compiled!" )join$ 1+ ! z" Yes!" \ title ! MB_OK MB_ICONEXCLAMATION or \ style MessageBox: MainWindow else flag s" Nothing compiled!" ?MessageBox |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:47:42
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv7422 Modified Files: EdToolbar.f EdVersion.f Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB Index: EdVersion.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdVersion.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** EdVersion.f 1 Feb 2010 01:42:46 -0000 1.14 --- EdVersion.f 11 Jul 2010 02:47:34 -0000 1.15 *************** *** 1,5 **** \ $Id$ ! 10211 value sciedit_version# \ Version numbers: v.ww.rr --- 1,5 ---- \ $Id$ ! 10212 value sciedit_version# \ Version numbers: v.ww.rr *************** *** 342,343 **** --- 342,357 ---- - Added the ability to change the editor font. + \ changes for version 1.02.12 + EAB Tuesday, May 11 2010 + - Enhanced search & replace dialog to allow searching and replacing in opened files or + entire folders. + Friday, May 28 2010 + - Added feature to monitor file system and prompt a reload if a file has been + modified. Enabled from options dialog + - Auto saving of a session also enabled form options dialog. Last active files + and project now available automatically on startup. + - Added MessageBox builder dialog. Really just a port aka copy from BCX. Another example of adding + code to a form in Form Designer. + Tuesday, June 22 2010 + - Which tabs are shown is now user configurable, and added a debug dialog ( not shown by default) tab. + Index: EdToolbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdToolbar.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** EdToolbar.f 1 Oct 2008 03:08:51 -0000 1.15 --- EdToolbar.f 11 Jul 2010 02:47:34 -0000 1.16 *************** *** 409,413 **** ?Find: ActiveChild IDM_FIND_NEXT EnableButton: ControlToolbar ?Find: ActiveChild IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! GetTextLength: ActiveChild IDM_REPLACE_TEXT EnableButton: ControlToolbar GetTextLength: ActiveChild IDM_BROWSE EnableButton: ControlToolbar else --- 409,413 ---- ?Find: ActiveChild IDM_FIND_NEXT EnableButton: ControlToolbar ?Find: ActiveChild IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! \ GetTextLength: ActiveChild IDM_REPLACE_TEXT EnableButton: ControlToolbar GetTextLength: ActiveChild IDM_BROWSE EnableButton: ControlToolbar else *************** *** 421,425 **** false IDM_FIND_NEXT EnableButton: ControlToolbar false IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! false IDM_REPLACE_TEXT EnableButton: ControlToolbar false IDM_REDO EnableButton: ControlToolbar false IDM_BROWSE EnableButton: ControlToolbar --- 421,425 ---- false IDM_FIND_NEXT EnableButton: ControlToolbar false IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! \ false IDM_REPLACE_TEXT EnableButton: ControlToolbar false IDM_REDO EnableButton: ControlToolbar false IDM_BROWSE EnableButton: ControlToolbar *************** *** 446,450 **** false IDM_FIND_NEXT EnableButton: ControlToolbar false IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! false IDM_REPLACE_TEXT EnableButton: ControlToolbar false IDM_REDO EnableButton: ControlToolbar --- 446,450 ---- false IDM_FIND_NEXT EnableButton: ControlToolbar false IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! \ false IDM_REPLACE_TEXT EnableButton: ControlToolbar false IDM_REDO EnableButton: ControlToolbar |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:46:52
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv7322 Modified Files: EdMenu.f EdTabControl.f Log Message: Index: EdTabControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** EdTabControl.f 8 Sep 2008 03:02:34 -0000 1.21 --- EdTabControl.f 11 Jul 2010 02:46:44 -0000 1.22 *************** *** 161,164 **** --- 161,168 ---- ;M + :M InsertTab: ( index -- ndx ) + \ *G Inserts a new tab into the tab control. ndx is index of added tab or -1 + tc_item swap TCM_INSERTITEM SendMessage:Self ;M + ;class *************** *** 170,174 **** TabControlEx cTab FileListView cFileList - \ ProjectWindow ProjectWindow ClassBrowserWindow cClassTree ClassBrowserWindow cVocTree --- 174,177 ---- *************** *** 189,196 **** 4dup Move: cVocTree 4dup Move: TheFolderView detached? not ! if Move: FormWindow ! else 4drop then ;M --- 192,200 ---- 4dup Move: cVocTree 4dup Move: TheFolderView + 4dup Move: frmDebugDlg detached? not ! if 4dup Move: FormWindow then + 4drop ;M *************** *** 205,208 **** --- 209,213 ---- SW_HIDE Show: cClassTree SW_HIDE Show: TheFolderView + SW_HIDE Show: frmDebugDlg detached? not if SW_HIDE Show: FormWindow *************** *** 215,218 **** --- 220,224 ---- SW_HIDE Show: cClassTree SW_HIDE Show: TheFolderView + SW_HIDE Show: frmDebugDlg detached? not if SW_HIDE Show: FormWindow *************** *** 225,228 **** --- 231,235 ---- SW_HIDE Show: cClassTree SW_HIDE Show: TheFolderView + SW_HIDE Show: frmDebugDlg detached? not if SW_HIDE Show: FormWindow *************** *** 235,238 **** --- 242,246 ---- SW_HIDE Show: cVocTree SW_HIDE Show: TheFolderView + SW_HIDE Show: frmDebugDlg detached? not if SW_HIDE Show: FormWindow *************** *** 245,248 **** --- 253,257 ---- SW_HIDE Show: ProjectWindow SW_HIDE Show: cVocTree + SW_HIDE Show: frmDebugDlg detached? not if SW_HIDE Show: FormWindow *************** *** 258,261 **** --- 267,283 ---- SW_HIDE Show: cVocTree SW_HIDE Show: TheFolderView + SW_HIDE Show: frmDebugDlg + ; + + : ShowDebugForm ( -- ) + SW_SHOW Show: frmDebugDlg + SW_HIDE Show: cClassTree + SW_HIDE Show: cFileList + SW_HIDE Show: ProjectWindow + SW_HIDE Show: cVocTree + SW_HIDE Show: TheFolderView + detached? not + if SW_HIDE Show: FormWindow + then ; *************** *** 273,282 **** \ Show the control for the currently selected tab. GetSelectedTab: cTab ! case PROJECT_TAB of ShowProject endof ! FILE_TAB of ShowFiles endof ! FOLDER_TAB of ShowFolderView endof ! VOC_TAB of ShowVocs endof ! CLASS_TAB of ShowClasses endof ! FORM_TAB of ShowFormWindow endof endcase ;M --- 295,305 ---- \ Show the control for the currently selected tab. GetSelectedTab: cTab ! case projtab# of ShowProject endof ! filetab# of ShowFiles endof ! dirtab# of ShowFolderView endof ! voctab# of ShowVocs endof ! classtab# of ShowClasses endof ! formtab# of ShowFormWindow endof ! debugtab# of ShowDebugForm endof endcase ;M *************** *** 311,327 **** then then then then ;M :M AddFormTab: ( -- ) detached? not ! if GetTabCount: ctab 6 = ?exitm TCIF_TEXT IsMask: cTab z" Form Designer" IsPszText: cTab ! 6 InsertTab: cTab then ;M :M DeleteFormTab: ( -- ) ! GetTabCount: ctab 6 < ?exitm ! 5 DeleteTab: ctab ;M :M On_Init: ( -- ) self Start: cFileList --- 334,431 ---- then then then then ;M + : HideAllWindows ( -- ) + SW_HIDE Show: cFileList \ show before hide + SW_HIDE Show: ProjectWindow + SW_HIDE Show: cVocTree + SW_HIDE Show: cClassTree + SW_HIDE Show: TheFolderView + SW_HIDE Show: frmDebugDlg + detached? not + if SW_HIDE Show: FormWindow + then ; + + : DeleteAllTabs ( -- ) + DeleteAllTabs: ctab + -1 dup to projtab# + dup to filetab# + dup to dirtab# + dup to classtab# + dup to voctab# + dup to debugtab# + detached? not + if dup to formtab# + then drop + 0 to tabcount ; + :M AddFormTab: ( -- ) detached? not ! if formtab# -1 <> ?exitm TCIF_TEXT IsMask: cTab z" Form Designer" IsPszText: cTab ! tabcount InsertTab: cTab to formtab# then ;M + :M DeleteFormTab: ( -- ) ! formtab# -1 = ?exitm ! formtab# DeleteTab: ctab ! -1 to formtab# ;M + : ShowSelectedTabs { \ ndx -- } + 0 to ndx + show-projtab? + if 1 +to ndx + TCIF_TEXT IsMask: cTab + z" Project" IsPszText: cTab + ndx InsertTab: cTab to projtab# + then + show-filetab? + if 1 +to ndx + TCIF_TEXT IsMask: cTab + z" Files" IsPszText: cTab + ndx InsertTab: cTab to filetab# + then + show-dirtab? + if 1 +to ndx + TCIF_TEXT IsMask: cTab + z" Directory" IsPszText: cTab + ndx InsertTab: cTab to dirtab# + then + show-voctab? + if 1 +to ndx + TCIF_TEXT IsMask: cTab + z" Vocabularies" IsPszText: cTab + ndx InsertTab: cTab to voctab# + then + show-classtab? + if 1 +to ndx + TCIF_TEXT IsMask: cTab + z" Classes" IsPszText: cTab + ndx InsertTab: ctab to classtab# + then + show-debugtab? + if 1 +to ndx + TCIF_TEXT IsMask: cTab + z" Debug" IsPszText: cTab + ndx InsertTab: ctab to debugtab# + then + show-formtab? + if detached? not + if 1 +to ndx + TCIF_TEXT IsMask: cTab + z" Form Designer" IsPszText: cTab + ndx InsertTab: cTab to formtab# + then + then ndx to tabcount \ save total number of tabs added + IDM_SHOWPROJECT_TAB DoCommand ; + + :M Refresh: ( -- ) + HideAllWindows + DeleteAllTabs + ShowSelectedTabs + Resize: self + ;M + :M On_Init: ( -- ) self Start: cFileList *************** *** 330,333 **** --- 434,438 ---- self Start: cClassTree self Start: TheFolderView + self Start: frmDebugDlg detached? not *************** *** 340,368 **** ['] selchange-func IsChangeFunc: cTab ! TCIF_TEXT IsMask: cTab ! z" Project" IsPszText: cTab ! 1 InsertTab: cTab ! ! TCIF_TEXT IsMask: cTab ! z" Files" IsPszText: cTab ! 2 InsertTab: cTab ! ! TCIF_TEXT IsMask: cTab ! z" Directory" IsPszText: cTab ! 3 InsertTab: cTab ! ! TCIF_TEXT IsMask: cTab ! z" Vocabularies" IsPszText: cTab ! 4 InsertTab: cTab ! ! TCIF_TEXT IsMask: cTab ! z" Classes" IsPszText: cTab ! 5 InsertTab: cTab ! ! ! AddFormTab: self ! \ ------------------------------------------------------------------------ ! ! PROJECT_TAB ShowTab: Self SelChange: self \ show the control for the currently selected tab --- 445,449 ---- ['] selchange-func IsChangeFunc: cTab ! Refresh: self SelChange: self \ show the control for the currently selected tab *************** *** 395,398 **** --- 476,480 ---- ;class + TabWindow cTabWindow \s Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** EdMenu.f 1 Feb 2010 01:42:46 -0000 1.31 --- EdMenu.f 11 Jul 2010 02:46:44 -0000 1.32 *************** *** 134,137 **** --- 134,138 ---- MenuItem "Splitter Window Templates" IDM_FORM_Splitter DoCommand ; MenuItem "Define Menu" IDM_FORM_CreateMenu DoCommand ; + MenuItem "MessageBox Builder" IDM_MSGBOX_BUILDER DoCommand ; 8 RECENTFILES RecentFormFiles count IDM_FORM_(Open) DoCommand ; *************** *** 187,197 **** MenuItem "&Win32Forth" Start-Win32Forth ; MenuSeparator :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; - :MenuItem mp_compileSel "Compile selected &text" IDM_COMPILE_SELECTION DoCommand ; MenuSeparator MenuItem "BookMarks" IDM_BOOKMARKS DoCommand ; ! MenuSeparator ! :MenuItem mp_setbp "&Set breakpoint...\tCTRL+B" IDM_SET_BREAK_POINT DoCommand ; ! :MenuItem mp_debug "&Debug...\tF11" IDM_DEBUG DoCommand ; POPUP "&Window" --- 188,199 ---- MenuItem "&Win32Forth" Start-Win32Forth ; MenuSeparator + :MenuItem mp_compileLine "Compile current line\tF8" IDM_COMPILE_LINE DoCommand ; + :MenuItem mp_compileSel "Compile selected &text\tF9" IDM_COMPILE_SELECTION DoCommand ; :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; MenuSeparator MenuItem "BookMarks" IDM_BOOKMARKS DoCommand ; ! \ MenuSeparator ! \ :MenuItem mp_setbp "&Set breakpoint...\tCTRL+B" IDM_SET_BREAK_POINT DoCommand ; ! \ :MenuItem mp_debug "&Debug...\tF11" IDM_DEBUG DoCommand ; POPUP "&Window" *************** *** 269,273 **** dup Enable: me_findnext dup Enable: me_findprev ! dup Enable: me_replace dup Enable: me_date dup Enable: me_date&time --- 271,275 ---- dup Enable: me_findnext dup Enable: me_findprev ! \ dup Enable: me_replace dup Enable: me_date dup Enable: me_date&time *************** *** 309,315 **** \ Win32Forth menu ! dup Enable: mp_setbp ! dup Enable: mp_debug dup Enable: mp_compileSel dup Enable: mf_split_hor --- 311,318 ---- \ Win32Forth menu ! \ dup Enable: mp_setbp ! \ dup Enable: mp_debug dup Enable: mp_compileSel + dup Enable: mp_compileLine dup Enable: mf_split_hor *************** *** 372,375 **** --- 375,381 ---- Enable: mnu_merge ; + : ?EnableDebugWindow ( -- ) + ActiveRemote dup ActiveChild = swap 0<> and + GetHandle: frmDebugDlg Call EnableWindow drop ; : EnableMenuBar ( -- ) \ enable/disable the menu items *************** *** 394,398 **** ?Find: ActiveChild Enable: me_findnext ?Find: ActiveChild Enable: me_findprev ! GetTextLength: ActiveChild Enable: me_replace ?BrowseMode: ActiveChild not Enable: me_date ?BrowseMode: ActiveChild not Enable: me_date&time --- 400,404 ---- ?Find: ActiveChild Enable: me_findnext ?Find: ActiveChild Enable: me_findprev ! \ GetTextLength: ActiveChild Enable: me_replace ?BrowseMode: ActiveChild not Enable: me_date ?BrowseMode: ActiveChild not Enable: me_date&time *************** *** 432,438 **** \ Win32Forth menu ! ActiveRemote ActiveChild = Enable: mp_debug ! ActiveRemote ActiveChild = Enable: mp_setbp ?Selection: ActiveChild Enable: mp_compileSel then --- 438,445 ---- \ Win32Forth menu ! \ ActiveRemote ActiveChild = Enable: mp_debug ! \ ActiveRemote ActiveChild = Enable: mp_setbp ?Selection: ActiveChild Enable: mp_compileSel + GetCurrentLineLength: ActiveChild 2 - 0> Enable: mp_compileLine then |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:46:18
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv7248 Modified Files: EdFORTHFORM.F EdReplace.f SplitterWindow.f Log Message: Index: SplitterWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/SplitterWindow.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SplitterWindow.f 28 Apr 2008 05:17:17 -0000 1.1 --- SplitterWindow.f 11 Jul 2010 02:46:10 -0000 1.2 *************** *** 23,29 **** : test ( -- ) ! s" anew -testsplit" evaluate ! GetBuffer: SplitterFile (fload-buffer) s" Start: SplitterWindow" evaluate ! ; : toclipboard ( -- ) --- 23,34 ---- : test ( -- ) ! initbuffer s" anew -testsplit" append&crlf \ evaluate ! GetBuffer: SplitterFile append&crlf \ (fload-buffer) ! s" Start: SplitterWindow" append \ evaluate ! TheBuffer (fload-buffer) ! if postpone [ \ reset if error occurrs while compiling ! \in-system-ok testvocab \ set to test vocabulary ! s" -testsplit" evaluate \ forget everything ! then ; : toclipboard ( -- ) *************** *** 44,48 **** : do-splitfunc { filename cnt -- } ! s" apps\forthform\" PREPEND<HOME>\ pad place filename cnt pad +place filename cnt type-name$ place --- 49,53 ---- : do-splitfunc { filename cnt -- } ! s" apps\win32forthide\" PREPEND<HOME>\ pad place filename cnt pad +place filename cnt type-name$ place Index: EdFORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFORTHFORM.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** EdFORTHFORM.F 1 Feb 2010 01:41:48 -0000 1.9 --- EdFORTHFORM.F 11 Jul 2010 02:46:10 -0000 1.10 *************** *** 366,369 **** --- 366,370 ---- fname fcnt SetFileName: ThisForm Load: ThisForm + UpdateStatus: ThisForm Display: ThisForm doupdate *************** *** 553,562 **** then ; ! create buf 200 allot ! : File= { \ tmp# browsing? -- } ( <name> -- ) \ get file name from input stream false to browsing? -1 to tmp# ',' word dup c@ ! if count buf dup>r place more? if ',' word count number? --- 554,563 ---- then ; ! : File= { \ tmp# browsing? buf -- } ( <name> -- ) \ get file name from input stream ! max-path LocalAlloc: buf false to browsing? -1 to tmp# ',' word dup c@ ! if count buf place more? if ',' word count number? *************** *** 568,577 **** then then ! then r@ count file-status nip 0= \ if still exist ! if r@ IDM_OPEN_RECENT_FILE DoCommand \ open it tmp# -1 <> if tmp# GotoPos: CurrentWindow then browsing? SetBrowseMode: ActiveChild ! then r>drop else drop then ; --- 569,578 ---- then then ! then buf count file-status nip 0= \ if still exist ! if buf IDM_OPEN_RECENT_FILE DoCommand \ open it tmp# -1 <> if tmp# GotoPos: CurrentWindow then browsing? SetBrowseMode: ActiveChild ! then else drop then ; *************** *** 616,636 **** TabFile? 0 ?do i GetFileTabChild dup to ThisChild ! if GetFileName: ThisChild dup ! count "TO-PATHEND" s" <Untitled>" istr= not ! if s" File= " append ! count append ! GetFileType: ThisChild FT_SOURCE = ! if ',' cappend ! ChildWindow: ThisChild ! GetCurrentPos: [ ] (.) append ! ',' cappend ! ?BrowseMode: ThisChild ! if s" BROWSING" ! else s" EDITING" ! THEN append&crlf ! else +crlf ! then ! else drop ! then then loop ; --- 617,639 ---- TabFile? 0 ?do i GetFileTabChild dup to ThisChild ! if ThisChild ActiveCoder <> ! if GetFileName: ThisChild dup ! count "TO-PATHEND" s" <Untitled>" istr= not ! if s" File= " append ! count append ! GetFileType: ThisChild FT_SOURCE = ! if ',' cappend ! ChildWindow: ThisChild ! GetCurrentPos: [ ] (.) append ! ',' cappend ! ?BrowseMode: ThisChild ! if s" BROWSING" ! else s" EDITING" ! then append&crlf ! else +crlf ! then ! else drop ! then ! then then loop ; Index: EdReplace.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdReplace.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdReplace.f 14 May 2007 05:37:39 -0000 1.2 --- EdReplace.f 11 Jul 2010 02:46:10 -0000 1.3 *************** *** 3,9 **** needs EdReplace.frm needs EdPrompt.frm ! create findbuf 0 , maxstring allot ! create replacebuf 0 , maxstring allot 0 value case? 0 value wholeword? --- 3,13 ---- needs EdReplace.frm needs EdPrompt.frm + needs SearchPrompt.frm + needs sub_dirs.f ! string: findbuf findbuf off ! string: replacebuf replacebuf off ! string: specsbuf s" *.f" specsbuf place ! string: pathbuf pathbuf off 0 value case? 0 value wholeword? *************** *** 13,16 **** --- 17,26 ---- 0 value replacecount 0 value savedpos + true value active? + false value opened? + false value folder? + false value subdirs? + false value cancelled? + ReadFile TempFile : SearchForText ( -- f ) *************** *** 18,21 **** --- 28,32 ---- : SavePosition ( -- ) + IsEditWnd? 0= ?exit GetCurrentPos: CurrentWindow to savedpos ; *************** *** 56,66 **** begin ReplaceFoundText SearchForText 0= ! until update ; : ShowCount ( -- ) ! s" Text was found and replaced " pad place ! replacecount (.) pad +place ! s" time(s)." pad +place ! true pad count ?MessageBox RestorePosition ; --- 67,79 ---- begin ReplaceFoundText SearchForText 0= ! until folder? ?exit ! update ; : ShowCount ( -- ) ! opened? folder? or ?exit \ no stopping if multiple files ! join$( s" Text was found and replaced " ! replacecount (.) ! s" time(s)." ! )join$ true swap count ?MessageBox RestorePosition ; *************** *** 79,86 **** ?MoreText endof GetID: btnNo of SetTargetRange ?MoreText endof ! GetID: btnYesToAll of ReplaceAllText ! Close: self ShowCount endof ! GetID: btnCancel of Close: self endof endcase ; --- 92,100 ---- ?MoreText endof GetID: btnNo of SetTargetRange ?MoreText endof ! GetID: btnYesToAll of ReplaceAllText opened? \ disable further ! if false to prompt? \ prompting ! then Close: self ShowCount endof ! GetID: btnCancel of Close: self true to cancelled? endof endcase ; *************** *** 91,98 **** \ give a little reminder ! findbuf count pad place ! s" --> " pad +place ! replacebuf count pad +place ! pad count SetText: lblReplaceString ;M --- 105,112 ---- \ give a little reminder ! join$( findbuf count ! s" --> " ! replacebuf count ! )join$ count SetText: lblReplaceString ;M *************** *** 100,111 **** ;Object : StringNotFound ( -- ) ! s" Text '" pad place ! findbuf count pad +place ! s" ' not found!" pad +place ! true pad count ?MessageBox ; : ReplaceText ( -- ) - findbuf c@ 0= ?exit \ nothing to find SetFlags SetScope --- 114,143 ---- ;Object + :Object frmFoundFiles <Super frmSearching + + :M On_Command: { ncode id -- f } + id + case IDCANCEL of true to search-aborted? endof + GetId: lstFoundFiles of ncode LBN_DBLCLK = + if GetSelectedString: lstFoundFiles + OpenSource + then endof + endcase ;M + + :M WM_COMMAND ( hwnd msg wparam lparam -- res ) + over HIWORD ( notification code ) rot LOWORD ( ID ) + On_Command: self + 0 ;M + + ;Object + : StringNotFound ( -- ) ! opened? folder? or ?exit \ if searching multiple files don't want to know ! join$( s" Text '" ! findbuf count ! s" ' not found!" ! )join$ true swap count ?MessageBox ; : ReplaceText ( -- ) SetFlags SetScope *************** *** 122,125 **** --- 154,246 ---- then ; + : ReplaceInOpenFiles ( -- ) + false to cancelled? + ActiveChild >r + CurrentWindow >r + scope >r 0 to scope \ always global + direction >r 0 to direction \ and in forward direction + TabFile? 0 + do i GetFileTabChild dup to ActiveChild + if GetFileType: ActiveChild FT_SOURCE = + if ChildWindow: ActiveChild to CurrentWindow + ActiveChild OnSelect + ReplaceText + cancelled? ?leave + then + then + loop r> to direction r> to scope r> to CurrentWindow r> to ActiveChild + ActiveChild OnSelect \ as we were + ; + + : SaveModifiedFile ( -- ) + name-buf count pad place + s" .bak" pad +place + pad count delete-file drop \ delete any previous backup + GetName: TempFile count pad count rename-file drop \ create backup + ReleaseBuffer: TempFile + GetTextLength: CurrentWindow 1+ AllocBuffer: TempFile + GetBuffer: TempFile GetText: CurrentWindow + GetLength: TempFile 1- SetLength: TempFile + + \ save the text to the file + SaveFile: TempFile + ReleaseBuffer: TempFile ; + + : SearchFoundFile ( -- ) \ full path name to file in name-buf (from sub_dirs.f) + WINPAUSE + name-buf count LoadFile: TempFile 0= ?exit + CurrentWindow >r + New> ScintillaControl to CurrentWindow + frmFoundFiles Start: CurrentWindow + GetBuffer: TempFile over + off SetText: CurrentWindow + ReleaseBuffer: TempFile + SetSavePoint: CurrentWindow \ mark as unmodified + ReplaceText \ search and replace if found + GetModify: CurrentWindow + if name-buf count asciiz AddStringto: lstFoundFiles \ show files that had text replaced + SaveModifiedFile + then Close: CurrentWindow + CurrentWindow Dispose + r> to CurrentWindow ; + + + : SetStrings ( -- ) + findbuf count SetText: lblSearchString + join$( s" Replaced with '" + replacebuf count + s" ' in" + )join$ count SetText: lblReplaced ; + + : ReplaceInFolder ( -- ) + specsbuf c@ 0= ?exit + pathbuf c@ 0= ?exit + scope >r 0 to scope + direction >r 0 to direction + prompt? >r 0 to prompt? + ['] SearchFoundFile is process-1file + false to open-file? + + GetHandle: MainWindow SetParentWindow: frmFoundFiles + Start: frmFoundFiles + SetStrings + + pathbuf count specsbuf count subdirs? sdir \ do the search & replace + r> to prompt? + r> to direction + r> to scope + search-aborted? 0= + if s" Done" SetText: btnCancel + begin WINPAUSE search-aborted? + until + then Close: frmFoundFiles ; + + : DoSearch&Replace ( -- ) + findbuf c@ 0= ?exit \ nothing to find + active? + if ReplaceText exit + then opened? + if ReplaceInOpenFiles exit + then ReplaceInFolder ; + :Object frmSearch&Replace <Super frmReplace *************** *** 130,145 **** IsButtonChecked?: radForward 0= to direction IsButtonChecked?: radGlobal 0= to scope GetText: txtSearch findbuf place ! GetText: txtReplace replacebuf place ; : command-func ( id obj -- ) drop ! case IDOK of SaveParameters ! Close: self ! ReplaceText endof ! IDCANCEL of Close: Self endof endcase ; : ?TextSelected { \ SelBuf$ -- } \ replace findbuf contents if text is selected 0 GetSelText: CurrentWindow LocalAlloc: SelBuf$ --- 251,287 ---- IsButtonChecked?: radForward 0= to direction IsButtonChecked?: radGlobal 0= to scope + IsButtonChecked?: radActiveFile to active? + IsButtonChecked?: radOpenFiles to opened? + IsButtonChecked?: radFolder to folder? + IsButtonChecked?: chkSubdirs to subdirs? GetText: txtSearch findbuf place ! GetText: txtReplace replacebuf place ! GetText: txtFilespecs specsbuf place ! GetText: txtSearchPath pathbuf place ; ! ! : GetFolder ( -- ) ! z" Select a drive or folder" ! \ use a copy of path because if cancelled path info is changed to null ! pathbuf count pad place ! pad hwnd BrowseForFolder ! if pad count 2dup pathbuf place SetText: txtSearchPath ! then ; : command-func ( id obj -- ) drop ! case IDOK of SaveParameters ! Close: self ! DoSearch&Replace endof ! IDCANCEL of Close: Self endof ! GetID: btnBrowse of GetFolder endof ! IsButtonChecked?: radActiveFile IsButtonChecked?: radOpenFiles or 0= ! dup Enable: chkSubdirs ! dup Enable: txtFilespecs ! dup Enable: txtSearchPath ! Enable: btnBrowse endcase ; : ?TextSelected { \ SelBuf$ -- } + IsEditWnd? 0= ?exit \ replace findbuf contents if text is selected 0 GetSelText: CurrentWindow LocalAlloc: SelBuf$ *************** *** 152,155 **** --- 294,311 ---- then ; + : ValidateOptions ( -- ) + TabFile? dup Enable: radActiveFile + dup Enable: radOpenFiles + 0= + if false to active? + false to opened? + true to folder? + else IsEditWnd? 0= + if false to active? + false Enable: radActiveFile + true to folder? + then + then ; + :M ON_INIT: ( -- ) IDOK SetID: btnOK *************** *** 158,170 **** On_Init: Super ! case? Check: chkCase ! prompt? Check: chkPrompt ! wholeword? Check: chkWholeWord ! direction 0= Check: radForward ! direction Check: radBackward ! scope 0= Check: radGlobal ! scope Check: radCurrent ?TextSelected --- 314,337 ---- On_Init: Super ! case? Check: chkCase ! prompt? Check: chkPrompt ! wholeword? Check: chkWholeWord ! direction 0= Check: radForward ! direction Check: radBackward ! scope 0= Check: radGlobal ! scope Check: radCurrent ! ! ValidateOptions ! ! active? Check: radActiveFile ! opened? Check: radOpenFiles ! folder? Check: radFolder ! subdirs? Check: chkSubdirs ! folder? dup Enable: chkSubdirs ! dup Enable: txtFilespecs ! dup Enable: txtSearchPath ! Enable: btnBrowse ?TextSelected *************** *** 173,176 **** --- 340,346 ---- Replacebuf count SetText: txtReplace + specsbuf count SetText: txtFilespecs + pathbuf count SetText: txtSearchpath + ['] command-func SetCommand: self |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:45:25
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv7079 Modified Files: CommandID.f EdCompile.f EdDebug.f EdPreferences.f Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB Index: EdDebug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdDebug.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** EdDebug.f 2 Sep 2008 06:38:41 -0000 1.6 --- EdDebug.f 11 Jul 2010 02:45:17 -0000 1.7 *************** *** 8,11 **** --- 8,12 ---- \ Debug an application in the Editor + needs DebugForm.frm \ ----------------------------------------------------------------------------- *************** *** 216,223 **** ;Object ! : debug-buttons ( -- ) \ *G Open the Debug dialog ! Frame Start: DbgButtonsDlg ! TRUE to debug-buttons? ; : receive-stack ( addr -- ) --- 217,405 ---- ;Object ! \ Uncomment the following to use the old dialog ! \ : debug-buttons ( -- ) \ using original dialog \ *G Open the Debug dialog ! \ Frame Start: DbgButtonsDlg ! \ TRUE to debug-buttons? ; ! \ ! \ : receive-stack ( addr -- ) ! \ *G Get stack from Forth ! \ dup edstack 64 cells cmove ! \ 64 cells + edreturn maxstring cmove ! \ ShowStack: DbgButtonsDlg ; ! \ ! \ : receive-response ( addr -- ) ! \ *G Get response from Forth to a WM_INQUIRE msg ! \ ShowResponse: DbgButtonsDlg ; ! \ ! \ : receive-debug ( addr -- ) ! \ *G display the debug line sent by Forth ! \ ShowDebug: DbgButtonsDlg ; ! \ ! \ : receive-name ( addr -- ) ! \ *G display the debug line sent by Forth ! \ count edname place ; ! ! ! :Object frmDbgButtonsDlg <Super frmDebug ! ! int HexBase ! Font dbFont ! int inq-running? ! ! :M ClassInit: ( -- ) ! ClassInit: super ! FALSE to HexBase \ FALSE = Decimal, TRUE = Hex ! FALSE to inq-running? ! ;M ! ! : "addstack { adr len \ ztemp -- } ! MAXSTRING LocalAlloc: ztemp \ allocate buffer ! ztemp MAXSTRING erase \ null fill buffer ! adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp AddStringTo: lstDStack ; ! ! : "addreturn { adr len \ ztemp -- } ! MAXSTRING LocalAlloc: ztemp \ allocate buffer ! ztemp MAXSTRING erase \ null fill buffer ! adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp AddStringTo: lstRStack ; ! ! : n>" ( n1 -- a1 n2 ) ! base @ >r ! HexBase ! IF HEX ! ELSE DECIMAL ! THEN ! HexBase ! IF 0 <# #s s" 0x" "hold #> ! ELSE s>d tuck dabs <# #s rot sign #> ! THEN ! r> base ! ; ! ! :M ShowStack: { \ temp$ -- } ! MAXSTRING LocalAlloc: temp$ ! s" Debugging: " temp$ place ! edname count temp$ +place ! temp$ count SetText: lblDebugging ! Clear: lstDStack ! edstack @ ?dup ! IF dup 0< ! IF drop 11 0 ! ?DO s" UnderFlow!" "addstack ! LOOP ! ELSE 10 min 1 swap ! DO edstack i cells+ @ n>" "addstack ! -1 +LOOP ! THEN ! ELSE s" Empty" "addstack ! THEN ! Clear: lstRStack ! edreturn count bl skip ! bl scan bl skip \ skip "RETURN" ! bl scan bl skip \ skip "STACK[xx]" ! BEGIN 2dup bl scan 2dup 2>r nip - dup ! WHILE "addreturn 2r> bl skip ! REPEAT 2drop 2r> 2drop ;M ! ! : "adddebug { adr len \ ztemp -- } ! MAXSTRING LocalAlloc: ztemp \ allocate buffer ! ztemp MAXSTRING erase \ null fill buffer ! adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp AddStringTo: lstWords ; ! ! :M ShowDebug: { addr \ ed-dbgline -- } ! addr count dup 1+ localalloc: ed-dbgline ! ed-dbgline place ! Clear: lstWords ! prev-lines dup MAXSTRING + swap MAXSTRING 4 * move ! ed-dbgline count 2dup 0x0D scan 2dup 1 /string 2>r ! 2drop ! 2r> prev-lines MAXSTRING 4 * + place ! 5 0 ! ?DO prev-lines i MAXSTRING * + count "adddebug ! LOOP ! ;M ! ! :M ShowResponse: { addr \ temp$ -- } ! MAXSTRING LocalAlloc: temp$ ! s" " temp$ place \ init to empty type ! addr @ 4 min 0 ! ?DO addr i 1+ cells+ @ n>" temp$ +place ! s" " temp$ +place ! LOOP temp$ count SetText: txtResult ;M ! ! : inquirebp ( -- ) ! \ *G inquire for the value of a data item ! \ ??? ed-ptr 0= ?EXIT \ only if we have shared memory ! msgpad off ! inq-running? 0= ! IF TRUE to inq-running? ! ! SelTextToPad ?dup ! if msgpad place else drop then ! ! msgpad self Start: InquireDlg ! msgpad c@ 0> and ! IF msgpad dup c@ 1+ WM_INQUIRE w32fForth Sendw32fMsg drop ! THEN ! ! FALSE to inq-running? ! ELSE beep ! THEN ; ! ! :M Close: ( -- ) ! FALSE to debug-buttons? ! Close: Super ;M ! ! : command-func ( ID obj -- ) ! drop ! CASE ! GetID: btnStep OF stepbp ENDOF ! GetId: btnInto OF nestbp ENDOF ! GetID: btnOutOf OF unestbp ENDOF ! GetID: btnSteps OF contbp ENDOF ! GetId: btnBreak OF jumpbp ENDOF ! GetID: btnBP OF beginbp ENDOF ! GetID: btnHere OF herebp ENDOF ! GetID: btnRun OF donebp ENDOF ! GetId: btnInquire OF inquirebp ENDOF ! GetId: btnSetBP OF IDM_SET_BREAK_POINT DoCommand ENDOF ! GetID: radHex OF TRUE to HexBase ShowStack: self ENDOF ! GetID: radDecimal OF FALSE to HexBase ShowStack: self ENDOF ! ENDCASE ; ! ! :M On_Init: ( -- ) ! WS_BORDER dup AddStyle: lstWords ! dup AddStyle: lstDStack ! AddStyle: lstRStack ! On_Init: super ! true ReadOnly: txtResult ! HexBase dup Check: radHex 0= Check: radDecimal ! ShowStack: self ! ['] command-func SetCommand: self ! ;M ! ! :M ExWindowStyle: ( -- ) ! WS_EX_CLIENTEDGE ;M ! ! :M Clear: ( -- ) ! Clear: lstWords ! Clear: lstDStack ! Clear: lstRStack ! s" " SetText: txtResult ! s" " SetText: lblDebugging ;M ! ! ;Object ! ! frmDbgButtonsDlg to frmDebugDlg ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Comment out the following if using the old dialog ! : debug-buttons ( -- ) \ using frmDebugDlg ! \ *G Open the Debug dialog ! debugtab# -1 <> ! if debugtab# ShowTab: cTabWindow ! then TRUE to debug-buttons? ; : receive-stack ( addr -- ) *************** *** 225,237 **** dup edstack 64 cells cmove 64 cells + edreturn maxstring cmove ! ShowStack: DbgButtonsDlg ; : receive-response ( addr -- ) \ *G Get response from Forth to a WM_INQUIRE msg ! ShowResponse: DbgButtonsDlg ; : receive-debug ( addr -- ) \ *G display the debug line sent by Forth ! ShowDebug: DbgButtonsDlg ; : receive-name ( addr -- ) --- 407,419 ---- dup edstack 64 cells cmove 64 cells + edreturn maxstring cmove ! ShowStack: frmDebugDlg ; : receive-response ( addr -- ) \ *G Get response from Forth to a WM_INQUIRE msg ! ShowResponse: frmDebugDlg ; : receive-debug ( addr -- ) \ *G display the debug line sent by Forth ! ShowDebug: frmDebugDlg ; : receive-name ( addr -- ) *************** *** 239,242 **** --- 421,426 ---- count edname place ; + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ ----------------------------------------------------------------------------- \ ----------------------------------------------------------------------------- *************** *** 270,271 **** --- 454,456 ---- IF debug-buf count "debug-word THEN ; IDM_SET_BREAK_POINT SetCommand + Index: CommandID.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CommandID.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** CommandID.f 1 Feb 2010 01:41:48 -0000 1.22 --- CommandID.f 11 Jul 2010 02:45:17 -0000 1.23 *************** *** 97,100 **** --- 97,101 ---- NewID IDM_COMPILE NewID IDM_COMPILE_SELECTION + NewID IDM_COMPILE_LINE NewID IDM_DEBUG NewID IDM_SET_BREAK_POINT *************** *** 102,105 **** --- 103,107 ---- NewID IDM_SET_BOOKMARK NewID IDM_BUILD_CODE_TREE + NewID IDM_MSGBOX_BUILDER \ Window menu Index: EdPreferences.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdPreferences.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** EdPreferences.f 1 Feb 2010 01:41:48 -0000 1.8 --- EdPreferences.f 11 Jul 2010 02:45:17 -0000 1.9 *************** *** 83,90 **** IsButtonChecked?: chkSingleControl to SingleControl? IsButtonChecked?: chkDetached to detached? detached? r> <> \ if this status changed if IDM_SHOW_FORMTAB DoCommand ! then Update ! Resize: MainWindow ; : DisplayFontName ( -- ) --- 83,100 ---- IsButtonChecked?: chkSingleControl to SingleControl? IsButtonChecked?: chkDetached to detached? + IsButtonChecked?: chkAutoDetect to autodetect? + IsButtonChecked?: chkAutoSession to autosavesession? + IsButtonChecked?: chkProject to show-projtab? + IsButtonChecked?: chkFile to show-filetab? + IsButtonChecked?: chkDirectory to show-dirtab? + IsButtonChecked?: chkClass to show-classtab? + IsButtonChecked?: chkVocabulary to show-voctab? + IsButtonChecked?: chkForm to show-formtab? + IsButtonChecked?: chkDebug to show-debugtab? + detached? r> <> \ if this status changed if IDM_SHOW_FORMTAB DoCommand ! then Refresh: cTabWindow \ any tab changes ! Update Resize: MainWindow ; : DisplayFontName ( -- ) *************** *** 118,127 **** on_init: super ! autoindent? Check: chkAutoIndent ! with-tabs? Check: chkShowTabs ! include-libs? Check: chkIncludeLibs ! AutoProperty? Check: chkAutoProperty ! SingleControl? Check: chkSingleControl ! detached? Check: chkDetached SetPFont backup-colors --- 128,148 ---- on_init: super ! autoindent? Check: chkAutoIndent ! with-tabs? Check: chkShowTabs ! include-libs? Check: chkIncludeLibs ! AutoProperty? Check: chkAutoProperty ! SingleControl? Check: chkSingleControl ! detached? Check: chkDetached ! autodetect? Check: chkAutoDetect ! autosavesession? Check: chkAutoSession ! ! show-projtab? Check: chkProject ! show-filetab? Check: chkFile ! show-dirtab? Check: chkDirectory ! show-classtab? Check: chkClass ! show-voctab? Check: chkVocabulary ! show-formtab? Check: chkForm ! show-debugtab? Check: chkDebug ! SetPFont backup-colors Index: EdCompile.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCompile.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** EdCompile.f 27 Jul 2008 07:21:50 -0000 1.10 --- EdCompile.f 11 Jul 2010 02:45:17 -0000 1.11 *************** *** 45,48 **** --- 45,49 ---- : Compile-Selection ( -- ) + IsEditWnd? not ?exit GetSelectionEnd: CurrentWindow GetSelectionStart: CurrentWindow - if Copy: CurrentWindow *************** *** 55,61 **** then ; IDM_COMPILE_SELECTION SetCommand ! ! ! --- 56,74 ---- then ; IDM_COMPILE_SELECTION SetCommand ! : Compile-Line { \ buf$ -- } ! IsEditWnd? not ?exit ! GetCurrentPos: CurrentWindow ! LineFromPosition: CurrentWindow ! LineLength: CurrentWindow dup 2 - 0 <= \ if line doesn't have a length? ! if drop exit ! then 1+ dup LocalAlloc: buf$ ! buf$ GetCurLine: CurrentWindow drop ! buf$ zcount copy-clipboard ! 0 0 ExecForth ! 0 0 WM_PASTELOAD w32fForth Sendw32fMsg drop ! 200 ms ! 0x0D msgpad c! ! msgpad 1 WM_KEY w32fForth Sendw32fMsg drop \ send CR to execute the string ! ; IDM_COMPILE_LINE SetCommand |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:43:57
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv6786 Modified Files: EdPreferences.ff EdPreferences.frm EdPrompt.frm EdReplace.ff EdReplace.frm Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB Index: EdPreferences.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdPreferences.frm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** EdPreferences.frm 1 Feb 2010 01:36:25 -0000 1.5 --- EdPreferences.frm 11 Jul 2010 02:43:49 -0000 1.6 *************** *** 14,17 **** --- 14,18 ---- GroupBox grpEditorOptions GroupBox grpColors + GroupBox grpIDE PushButton btnForeground PushButton btnBackground *************** *** 49,52 **** --- 50,54 ---- CheckBox chkAutoIndent CheckBox chkShowTabs + CheckBox chkAutoDetect PushButton btnFont CheckBox chkAutoProperty *************** *** 54,57 **** --- 56,67 ---- CheckBox chkDetached CheckBox chkIncludeLibs + CheckBox chkAutoSession + CheckBox chkProject + CheckBox chkFile + CheckBox chkDirectory + CheckBox chkVocabulary + CheckBox chkClass + CheckBox chkForm + CheckBox chkDebug PushButton btnOk PushButton btnCancel *************** *** 91,95 **** :M StartSize: ( -- width height ) ! 383 383 ;M --- 101,105 ---- :M StartSize: ( -- width height ) ! 582 369 ;M *************** *** 133,137 **** self Start: grpFormOptions ! 191 122 175 99 Move: grpFormOptions Handle: Winfont SetFont: grpFormOptions s" Form Designer" SetText: grpFormOptions --- 143,147 ---- self Start: grpFormOptions ! 191 150 175 99 Move: grpFormOptions Handle: Winfont SetFont: grpFormOptions s" Form Designer" SetText: grpFormOptions *************** *** 143,147 **** self Start: grpEditorOptions ! 191 16 185 101 Move: grpEditorOptions Handle: Winfont SetFont: grpEditorOptions s" Editor Options" SetText: grpEditorOptions --- 153,157 ---- self Start: grpEditorOptions ! 191 16 185 130 Move: grpEditorOptions Handle: Winfont SetFont: grpEditorOptions s" Editor Options" SetText: grpEditorOptions *************** *** 152,155 **** --- 162,170 ---- s" Editor Colors" SetText: grpColors + self Start: grpIDE + 400 14 170 229 Move: grpIDE + Handle: Winfont SetFont: grpIDE + s" IDE" SetText: grpIDE + self Start: btnForeground 28 30 100 26 Move: btnForeground *************** *** 202,222 **** s" Show Tabs" SetText: chkShowTabs self Start: btnFont ! 203 91 166 22 Move: btnFont Handle: Winfont SetFont: btnFont s" Text Font:" SetText: btnFont self Start: chkAutoProperty ! 203 139 127 25 Move: chkAutoProperty Handle: Winfont SetFont: chkAutoProperty s" Auto display properties" SetText: chkAutoProperty self Start: chkSingleControl ! 203 166 139 25 Move: chkSingleControl Handle: Winfont SetFont: chkSingleControl s" Click adds single control" SetText: chkSingleControl self Start: chkDetached ! 203 191 156 23 Move: chkDetached Handle: Winfont SetFont: chkDetached s" Float Form Designer Window" SetText: chkDetached --- 217,242 ---- s" Show Tabs" SetText: chkShowTabs + self Start: chkAutoDetect + 203 86 160 25 Move: chkAutoDetect + Handle: Winfont SetFont: chkAutoDetect + s" Auto detect disk file changes" SetText: chkAutoDetect + self Start: btnFont ! 203 120 166 22 Move: btnFont Handle: Winfont SetFont: btnFont s" Text Font:" SetText: btnFont self Start: chkAutoProperty ! 203 167 127 25 Move: chkAutoProperty Handle: Winfont SetFont: chkAutoProperty s" Auto display properties" SetText: chkAutoProperty self Start: chkSingleControl ! 203 194 139 25 Move: chkSingleControl Handle: Winfont SetFont: chkSingleControl s" Click adds single control" SetText: chkSingleControl self Start: chkDetached ! 203 219 156 23 Move: chkDetached Handle: Winfont SetFont: chkDetached s" Float Form Designer Window" SetText: chkDetached *************** *** 227,237 **** s" Include library files when tracking" SetText: chkIncludeLibs self Start: btnOk ! 18 347 80 25 Move: btnOk Handle: Winfont SetFont: btnOk s" &Ok" SetText: btnOk self Start: btnCancel ! 100 347 80 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel --- 247,297 ---- s" Include library files when tracking" SetText: chkIncludeLibs + self Start: chkAutoSession + 406 26 155 24 Move: chkAutoSession + Handle: Winfont SetFont: chkAutoSession + s" Auto Save/Restore Session" SetText: chkAutoSession + + self Start: chkProject + 406 52 155 27 Move: chkProject + Handle: Winfont SetFont: chkProject + s" Project Tab" SetText: chkProject + + self Start: chkFile + 406 81 155 25 Move: chkFile + Handle: Winfont SetFont: chkFile + s" File Tab" SetText: chkFile + + self Start: chkDirectory + 406 108 155 25 Move: chkDirectory + Handle: Winfont SetFont: chkDirectory + s" Directory Tab" SetText: chkDirectory + + self Start: chkVocabulary + 406 135 155 25 Move: chkVocabulary + Handle: Winfont SetFont: chkVocabulary + s" Vocabulary Tab" SetText: chkVocabulary + + self Start: chkClass + 406 162 155 25 Move: chkClass + Handle: Winfont SetFont: chkClass + s" Class Tab" SetText: chkClass + + self Start: chkForm + 406 189 155 25 Move: chkForm + Handle: Winfont SetFont: chkForm + s" Form Tab" SetText: chkForm + + self Start: chkDebug + 406 216 155 25 Move: chkDebug + Handle: Winfont SetFont: chkDebug + s" Debug Tab" SetText: chkDebug + self Start: btnOk ! 184 336 80 25 Move: btnOk Handle: Winfont SetFont: btnOk s" &Ok" SetText: btnOk self Start: btnCancel ! 300 336 80 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" &Cancel" SetText: btnCancel Index: EdPreferences.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdPreferences.ff,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvsF5xLjO and /tmp/cvs6tW1Hz differ Index: EdReplace.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdReplace.ff,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsc5OnCO and /tmp/cvsplwh1z differ Index: EdPrompt.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdPrompt.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdPrompt.frm 28 Apr 2008 05:13:38 -0000 1.1 --- EdPrompt.frm 11 Jul 2010 02:43:49 -0000 1.2 *************** *** 17,23 **** PushButton btnYesToAll :M ClassInit: ( -- ) ClassInit: super ! \ Insert your code here ;M --- 17,24 ---- PushButton btnYesToAll + :M ClassInit: ( -- ) ClassInit: super ! \ Insert your code here, e.g initialize variables, values etc. ;M *************** *** 26,30 **** ;M ! \ if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent --- 27,31 ---- ;M ! \ N.B if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent *************** *** 47,55 **** ;M :M Close: ( -- ) ! \ Insert your code here Close: super ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont --- 48,76 ---- ;M + :M Start: ( -- ) + Start: Super + Begin WinPause Hwnd 0= Until + ;M + :M Close: ( -- ) ! \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M + :M WM_COMMAND ( h m w l -- res ) + dup 0= \ id is from a menu if lparam is zero + if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then + CurrentPopup if dup DoMenu: CurrentPopup then drop + else over LOWORD ( ID ) self \ object address on stack + WMCommand-Func ?dup \ must not be zero + if execute + else 2drop \ drop ID and object address + then + then 0 ;M + + :M SetCommand: ( cfa -- ) \ set WMCommand function + to WMCommand-Func + ;M + :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont *************** *** 93,107 **** ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then - ;M - :M WM_COMMAND ( h m w l -- res ) - over LOWORD ( ID ) self \ object address on stack - WMCommand-Func ?dup \ must not be zero - if execute - else 2drop \ drop ID and object address - then 0 ;M - - :M SetCommand: ( cfa -- ) \ set WMCommand function - to WMCommand-Func ;M --- 114,118 ---- *************** *** 118,122 **** ParentWindow: self Call SetFocus drop then ! \ Insert your code here On_Done: super ;M --- 129,133 ---- ParentWindow: self Call SetFocus drop then ! \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M Index: EdReplace.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/EdReplace.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdReplace.frm 28 Apr 2008 05:13:38 -0000 1.1 --- EdReplace.frm 11 Jul 2010 02:43:49 -0000 1.2 *************** *** 13,16 **** --- 13,17 ---- GroupBox grpDirection GroupBox grpScope + GroupBox grpSearch Label lblSearch TextBox txtSearch *************** *** 24,33 **** GroupRadioButton radGlobal RadioButton radCurrent PushButton btnOk PushButton btnCancel :M ClassInit: ( -- ) ClassInit: super ! \ Insert your code here ;M --- 25,44 ---- GroupRadioButton radGlobal RadioButton radCurrent + GroupRadioButton radActiveFile + RadioButton radOpenFiles + RadioButton radFolder + CheckBox chkSubdirs + TextBox txtFilespecs + TextBox txtSearchPath + PushButton btnBrowse PushButton btnOk PushButton btnCancel + Label lblSpecs + Label lblSearchPath + :M ClassInit: ( -- ) ClassInit: super ! \ Insert your code here, e.g initialize variables, values etc. ;M *************** *** 36,40 **** ;M ! \ if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent --- 47,51 ---- ;M ! \ N.B if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent *************** *** 50,54 **** :M StartSize: ( -- width height ) ! 441 243 ;M --- 61,65 ---- :M StartSize: ( -- width height ) ! 426 343 ;M *************** *** 57,65 **** ;M :M Close: ( -- ) ! \ Insert your code here Close: super ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont --- 68,96 ---- ;M + :M Start: ( -- ) + Start: Super + Begin WinPause Hwnd 0= Until + ;M + :M Close: ( -- ) ! \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M + :M WM_COMMAND ( h m w l -- res ) + dup 0= \ id is from a menu if lparam is zero + if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then + CurrentPopup if dup DoMenu: CurrentPopup then drop + else over LOWORD ( ID ) self \ object address on stack + WMCommand-Func ?dup \ must not be zero + if execute + else 2drop \ drop ID and object address + then + then 0 ;M + + :M SetCommand: ( cfa -- ) \ set WMCommand function + to WMCommand-Func + ;M + :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont *************** *** 86,89 **** --- 117,125 ---- s" Search Scope" SetText: grpScope + self Start: grpSearch + 5 181 303 151 Move: grpSearch + Handle: Winfont SetFont: grpSearch + s" Search in" SetText: grpSearch + self Start: lblSearch 7 8 71 19 Move: lblSearch *************** *** 142,147 **** s" From current position" SetText: radCurrent self Start: btnOk ! 330 181 100 25 Move: btnOk WS_GROUP +Style: btnOk Handle: Winfont SetFont: btnOk --- 178,217 ---- s" From current position" SetText: radCurrent + self Start: radActiveFile + 14 196 90 25 Move: radActiveFile + Handle: Winfont SetFont: radActiveFile + s" Active File" SetText: radActiveFile + + self Start: radOpenFiles + 14 223 90 25 Move: radOpenFiles + Handle: Winfont SetFont: radOpenFiles + s" Opened Files" SetText: radOpenFiles + + self Start: radFolder + 14 250 90 25 Move: radFolder + Handle: Winfont SetFont: radFolder + s" Folder" SetText: radFolder + + self Start: chkSubdirs + 110 250 125 28 Move: chkSubdirs + WS_GROUP +Style: chkSubdirs + Handle: Winfont SetFont: chkSubdirs + s" Include Subdirectories" SetText: chkSubdirs + + self Start: txtFilespecs + 50 278 220 20 Move: txtFilespecs + Handle: Winfont SetFont: txtFilespecs + + self Start: txtSearchPath + 80 304 190 20 Move: txtSearchPath + Handle: Winfont SetFont: txtSearchPath + + self Start: btnBrowse + 275 304 30 20 Move: btnBrowse + Handle: Winfont SetFont: btnBrowse + s" ..." SetText: btnBrowse + self Start: btnOk ! 314 277 100 25 Move: btnOk WS_GROUP +Style: btnOk Handle: Winfont SetFont: btnOk *************** *** 149,169 **** self Start: btnCancel ! 330 211 100 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" Cancel" SetText: btnCancel ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then - ;M - :M WM_COMMAND ( h m w l -- res ) - over LOWORD ( ID ) self \ object address on stack - WMCommand-Func ?dup \ must not be zero - if execute - else 2drop \ drop ID and object address - then 0 ;M - - :M SetCommand: ( cfa -- ) \ set WMCommand function - to WMCommand-Func ;M --- 219,239 ---- self Start: btnCancel ! 314 307 100 25 Move: btnCancel Handle: Winfont SetFont: btnCancel s" Cancel" SetText: btnCancel + self Start: lblSpecs + 14 278 32 20 Move: lblSpecs + Handle: Winfont SetFont: lblSpecs + s" Filters:" SetText: lblSpecs + + self Start: lblSearchPath + 14 304 62 19 Move: lblSearchPath + Handle: Winfont SetFont: lblSearchPath + s" Search path:" SetText: lblSearchPath + ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then ;M *************** *** 180,184 **** ParentWindow: self Call SetFocus drop then ! \ Insert your code here On_Done: super ;M --- 250,254 ---- ParentWindow: self Call SetFocus drop then ! \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:41:42
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv6427 Added Files: SearchPrompt.ff SearchPrompt.frm Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB --- NEW FILE: SearchPrompt.frm --- \ SEARCHPROMPT.FRM \- textbox needs excontrols.f Label lblSearchString Label lblReplaced ListBox lstFoundFiles PushButton btnCancel :Object frmSearching <Super DialogWindow Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color 350 175 2value XYPos \ save screen location of form Label lblSearch :M ClassInit: ( -- ) ClassInit: super \ Insert your code here, e.g initialize variables, values etc. ;M :M WindowStyle: ( -- style ) WS_POPUPWINDOW WS_DLGFRAME or ;M \ N.B if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent ;M :M SetParentWindow: ( hwndparent -- ) \ set owner window to hWndParent ;M :M WindowTitle: ( -- ztitle ) z" Search & Replace in Folder" ;M :M StartSize: ( -- width height ) 278 271 ;M :M StartPos: ( -- x y ) XYPos ;M :M Close: ( -- ) \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M :M WM_COMMAND ( h m w l -- res ) dup 0= \ id is from a menu if lparam is zero if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then CurrentPopup if dup DoMenu: CurrentPopup then drop else over LOWORD ( ID ) self \ object address on stack WMCommand-Func ?dup \ must not be zero if execute else 2drop \ drop ID and object address then then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function to WMCommand-Func ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont Create: WinFont \ set form color to system color COLOR_BTNFACE Call GetSysColor NewColor: FrmColor self Start: lblSearch 18 22 70 20 Move: lblSearch Handle: Winfont SetFont: lblSearch s" Searching for:" SetText: lblSearch IDNO SetID: lblSearchString self Start: lblSearchString 88 22 177 20 Move: lblSearchString Handle: Winfont SetFont: lblSearchString s" " SetText: lblSearchString self Start: lblReplaced 18 48 240 20 Move: lblReplaced Handle: Winfont SetFont: lblReplaced s" Replaced in:" SetText: lblReplaced self Start: lstFoundFiles 18 75 246 141 Move: lstFoundFiles Handle: Winfont SetFont: lstFoundFiles IDCANCEL SetID: btnCancel self Start: btnCancel 83 233 119 28 Move: btnCancel Handle: Winfont SetFont: btnCancel s" Cancel" SetText: btnCancel ;M :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc ;M :M On_Done: ( -- ) Delete: WinFont originx originy 2to XYPos \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M ;Object --- NEW FILE: SearchPrompt.ff --- (This appears to be a binary file; contents omitted.) |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:40:50
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv6215 Added Files: SavePrompt.ff SavePrompt.ff_code SavePrompt.frm Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB --- NEW FILE: SavePrompt.frm --- \ SAVEPROMPT.FRM \- textbox needs excontrols.f Label lblSaveMsg WM_USER 1000 + Constant IDBACKUP 0 value answer create SavePromptMsg ," File on disk has changed. Continue?" 200 allot :Object frmSavePrompt <Super DialogWindow Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color PushButton btnYes PushButton btnNo PushButton btnBackup \ Coordinates and dimensions for imgStop 10 value imgStopX 16 value imgStopY 36 value imgStopW 38 value imgStopH StaticIcon iconStop : On_btnYes ( h m w l -- ) \ what to do when btnYes control has been clicked IDYES to answer Close: self ; : On_btnNo ( h m w l -- ) \ what to do when btnNo control has been clicked IDNO to answer Close: self ; : On_btnBackup ( h m w l -- ) \ what to do when btnBackup control has been clicked IDBACKUP to answer Close: self ; : frmDefaultCommand ( h m w l id obj -- ) drop case GetID: btnYes of On_btnYes endof GetID: btnNo of On_btnNo endof GetID: btnBackup of On_btnBackup endof endcase ; : OnInitFunction ( -- ) \ executed after form and all controls have been created 0 to answer self Start: iconStop imgStopX imgStopY imgStopW imgStopH Move: iconStop IDI_HAND NULL Call LoadIcon SetImage: iconStop SavePromptMsg count SetText: lblSaveMsg ; :M ClassInit: ( -- ) ClassInit: super \ Insert your code here, e.g initialize variables, values etc. ;M :M WindowStyle: ( -- style ) WS_POPUPWINDOW WS_DLGFRAME or ;M \ N.B if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent ;M :M SetParentWindow: ( hwndparent -- ) \ set owner window to hWndParent ;M :M WindowTitle: ( -- ztitle ) z" Warning" ;M :M StartSize: ( -- width height ) 368 126 ;M :M StartPos: ( -- x y ) 350 175 ;M :M Start: ( -- ) Start: Super Begin WinPause Hwnd 0= Until ;M :M Close: ( -- ) \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M :M WM_COMMAND ( h m w l -- res ) dup 0= \ id is from a menu if lparam is zero if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then CurrentPopup if dup DoMenu: CurrentPopup then drop else over LOWORD ( ID ) self \ object address on stack WMCommand-Func ?dup \ must not be zero if execute else 2drop \ drop ID and object address then then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function to WMCommand-Func ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont Create: WinFont \ set form color to system color COLOR_BTNFACE Call GetSysColor NewColor: FrmColor self Start: lblSaveMsg 49 23 315 62 Move: lblSaveMsg Handle: Winfont SetFont: lblSaveMsg SS_CENTER +Style: lblSaveMsg s" File on disk has been changed. Continue?" SetText: lblSaveMsg self Start: btnYes 39 93 100 25 Move: btnYes Handle: Winfont SetFont: btnYes s" Yes" SetText: btnYes self Start: btnNo 141 93 100 25 Move: btnNo Handle: Winfont SetFont: btnNo s" No" SetText: btnNo self Start: btnBackup 243 93 100 25 Move: btnBackup Handle: Winfont SetFont: btnBackup s" Backup First!" SetText: btnBackup ParentWindow: self \ if this is a modal form disable parent if 0 ParentWindow: self Call EnableWindow drop then ['] frmDefaultCommand SetCommand: self OnInitFunction ;M :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc ;M :M On_Done: ( -- ) Delete: WinFont ParentWindow: self \ if modal form re-enable parent if 1 ParentWindow: self Call EnableWindow drop \ reset focus to parent if we have one ParentWindow: self Call SetFocus drop then \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M ;Object --- NEW FILE: SavePrompt.ff --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SavePrompt.ff_code --- (This appears to be a binary file; contents omitted.) |
|
From: Ezra B. <ezr...@us...> - 2010-07-11 02:36:40
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv5639 Added Files: DebugForm.ff DebugForm.frm MsgBoxBuilder.ff MsgBoxBuilder.ff_code MsgBoxBuilder.frm Log Message: Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB --- NEW FILE: DebugForm.frm --- \ DEBUGFORM.FRM \- textbox needs excontrols.f :Object frmDebug <Super Child-Window Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color PushButton btnStep PushButton btnInto PushButton btnOutOf PushButton btnSteps PushButton btnBreak PushButton btnRun PushButton btnBP PushButton btnHere Label lblDebugging ListBox lstWords Label lblData ListBox lstDStack RadioButton radDecimal RadioButton radHex Label lblReturn ListBox lstRStack PushButton btnInquire TextBox txtResult PushButton btnSetBP :M ClassInit: ( -- ) ClassInit: super +dialoglist \ allow handling of dialog messages 699 to id \ set child id, changeable \ Insert your code here, e.g initialize variables, values etc. ;M :M Display: ( -- ) \ unhide the child window SW_SHOWNORMAL Show: self ;M :M Hide: ( -- ) \ hide the...aughhh but you know that! SW_HIDE Show: self ;M :M WindowStyle: ( -- style ) WS_CHILD ;M :M Start: ( Parent -- ) to parent register-child-window drop create-child-window to hWnd ;M :M WindowTitle: ( -- ztitle ) z" Debug" ;M :M StartSize: ( -- width height ) 261 589 ;M :M Close: ( -- ) \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M :M WM_COMMAND ( h m w l -- res ) dup 0= \ id is from a menu if lparam is zero if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then CurrentPopup if dup DoMenu: CurrentPopup then drop else over LOWORD ( ID ) self \ object address on stack WMCommand-Func ?dup \ must not be zero if execute else 2drop \ drop ID and object address then then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function to WMCommand-Func ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont Create: WinFont \ set form color to system color COLOR_BTNFACE Call GetSysColor NewColor: FrmColor self Start: btnStep 12 10 76 26 Move: btnStep Handle: Winfont SetFont: btnStep s" Single Step" SetText: btnStep s" execute a single step" BInfo: btnStep place self Start: btnInto 90 10 76 26 Move: btnInto Handle: Winfont SetFont: btnInto s" Nest" SetText: btnInto s" nest into definition" BInfo: btnInto place self Start: btnOutOf 168 10 76 26 Move: btnOutOf Handle: Winfont SetFont: btnOutOf s" Unnest" SetText: btnOutOf s" unnest from definition" BInfo: btnOutOf place self Start: btnSteps 12 41 76 26 Move: btnSteps Handle: Winfont SetFont: btnSteps s" Step until key" SetText: btnSteps s" run continuous till key press" BInfo: btnSteps place self Start: btnBreak 90 41 153 26 Move: btnBreak Handle: Winfont SetFont: btnBreak s" Skip next branch word" SetText: btnBreak s" Jump over next Word" BInfo: btnBreak place self Start: btnRun 12 72 76 26 Move: btnRun Handle: Winfont SetFont: btnRun s" Run" SetText: btnRun s" done, run the program" BInfo: btnRun place self Start: btnBP 90 72 76 26 Move: btnBP Handle: Winfont SetFont: btnBP s" Restart BP" SetText: btnBP s" proceed to definition again" BInfo: btnBP place self Start: btnHere 168 72 76 26 Move: btnHere Handle: Winfont SetFont: btnHere s" Break here" SetText: btnHere s" stop here next time" BInfo: btnHere place self Start: lblDebugging 8 106 241 19 Move: lblDebugging Handle: Winfont SetFont: lblDebugging s" " SetText: lblDebugging self Start: lstWords 3 135 250 80 Move: lstWords Handle: Winfont SetFont: lstWords self Start: lblData 6 228 68 16 Move: lblData Handle: Winfont SetFont: lblData s" Data Stack" SetText: lblData self Start: lstDStack 6 250 173 113 Move: lstDStack Handle: Winfont SetFont: lstDStack self Start: radDecimal 181 250 64 23 Move: radDecimal Handle: Winfont SetFont: radDecimal s" Decimal" SetText: radDecimal self Start: radHex 181 275 64 25 Move: radHex Handle: Winfont SetFont: radHex s" Hex" SetText: radHex self Start: lblReturn 6 378 76 16 Move: lblReturn Handle: Winfont SetFont: lblReturn s" Return Stack" SetText: lblReturn self Start: lstRStack 6 400 248 121 Move: lstRStack Handle: Winfont SetFont: lstRStack self Start: btnInquire 6 527 67 26 Move: btnInquire Handle: Winfont SetFont: btnInquire s" Data Inquire" SetText: btnInquire s" inquire for the value of a data item" BInfo: btnInquire place self Start: txtResult 79 527 175 26 Move: txtResult Handle: Winfont SetFont: txtResult self Start: btnSetBP 6 560 250 26 Move: btnSetBP Handle: Winfont SetFont: btnSetBP s" Set Break Point" SetText: btnSetBP ;M :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc ;M :M On_Done: ( -- ) Delete: WinFont \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M ;Object --- NEW FILE: DebugForm.ff --- (This appears to be a binary file; contents omitted.) --- NEW FILE: MsgBoxBuilder.ff_code --- (This appears to be a binary file; contents omitted.) --- NEW FILE: MsgBoxBuilder.frm --- \ MSGBOXBUILDER.FRM \- textbox needs excontrols.f needs exutils.f :Object frmMsgBoxBuilder <Super DialogWindow Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color GroupBox grpIcons GroupBox grpButtons GroupBox grpModal Label lblName TextBox txtName Label lblTitle TextBox txtTitle Label lblText MultiLineTextBox mtxtText GroupRadioButton radApplication RadioButton radTask RadioButton radSystem GroupRadioButton radNone RadioButton radStop RadioButton radQuestion RadioButton radExclamation RadioButton radInformation GroupRadioButton radOK RadioButton radYesNo RadioButton radRetryCancel RadioButton radOkCancel RadioButton radYesNoCancel RadioButton radAbortRetryIgnore PushButton btnTest PushButton btnCopy PushButton btnClose \ Coordinates and dimensions for imgStop 81 value imgStopX 230 value imgStopY 36 value imgStopW 38 value imgStopH \ Coordinates and dimensions for imgQuestion 142 value imgQuestionX 230 value imgQuestionY 36 value imgQuestionW 38 value imgQuestionH \ Coordinates and dimensions for imgExclamation 227 value imgExclamationX 229 value imgExclamationY 36 value imgExclamationW 38 value imgExclamationH \ Coordinates and dimensions for imgInFormation 303 value imgInFormationX 229 value imgInFormationY 36 value imgInFormationW 38 value imgInFormationH StaticIcon iconApplication StaticIcon iconQuestion StaticIcon iconExclamation StaticIcon iconInformation 0 value icontype \ 0-none, 1-stop, 2-question, 3-exclamation, 4-information 0 value modaltype \ 0-application, 1-task, 2-system 0 value buttontype \ 0-yes, 1-yesno, 2-retrycancel, 3-okcancel, 4-yesnocancel, 5-abortretryignore create title$ 0 , maxstring allot create text$ 0 , maxstring allot create msgboxName$ 0 , 61 allot : ?IconType ( -- n ) icontype case 1 of MB_ICONHAND endof 2 of MB_ICONQUESTION endof 3 of MB_ICONEXCLAMATION endof 4 of MB_ICONINFORMATION endof 0 swap endcase ; : ?ModalType ( -- n ) modaltype case 1 of MB_TASKMODAL endof 2 of MB_SYSTEMMODAL endof MB_APPLMODAL swap endcase ; : ?ButtonType ( -- n ) buttontype case 1 of MB_YESNO endof 2 of MB_RETRYCANCEL endof 3 of MB_OKCANCEL endof 4 of MB_YESNOCANCEL endof 5 of MB_ABORTRETRYIGNORE endof MB_OK swap endcase ; : ?IconType$ ( -- str cnt ) icontype case 1 of s" MB_ICONHAND " endof 2 of s" MB_ICONQUESTION " endof 3 of s" MB_ICONEXCLAMATION " endof 4 of s" MB_ICONINFORMATION " endof s" 0 " rot endcase ; : ?ModalType$ ( -- str cnt ) modaltype case 1 of s" MB_TASKMODAL " endof 2 of s" MB_SYSTEMMODAL " endof s" MB_APPLMODAL " rot endcase ; : ?ButtonType$ ( -- str cnt ) buttontype case 1 of s" MB_YESNO " endof 2 of s" MB_RETRYCANCEL " endof 3 of s" MB_OKCANCEL " endof 4 of s" MB_YESNOCANCEL " endof 5 of s" MB_ABORTRETRYIGNORE " endof s" MB_OK " rot endcase ; : SaveText$ ( -- ) GetText: txtTitle title$ place title$ +NULL GetText: mtxtText maxstring min text$ place text$ +NULL GetText: txtName 60 min msgboxName$ place ; : crlf->\n ( a1 n1 -- ) \ parse crlf line end occurances, change to \n (opposite of \n->crlf) begin 0x0D scan dup \ found a CR char while over 1+ c@ 0x0A = \ followed by LF if over [char] \ swap c! \ replace with \ over [char] n swap 1+ c! \ replace with LF then 1 /string \ else skip '\' char repeat 2drop ; : BuildMsgBox ( -- addr cnt ) initbuffer s" : " append msgboxName$ c@ if msgboxName$ count else s" _MsgBox" then append 1 +tabs s" ( -- result )" append&crlf text$ count pad place pad count crlf->\n 2 +tabs z"append pad count append "append s" \ message text" append&crlf 2 +tabs z"append title$ count append "append s" \ msgbox title" append&crlf 2 +tabs ?IconType$ append ?ModalType$ append s" or " append ?ButtonType$ append s" or " append s" \ style" append&crlf 2 +tabs s" NULL \ owner handle, change as desired" append&crlf 2 +tabs s" MessageBox ; " append&crlf thebuffer ; : On_radApplication ( h m w l -- ) \ what to do when radApplication control has been clicked 0 to modaltype ; : On_radTask ( h m w l -- ) \ what to do when radTask control has been clicked 1 to modaltype ; : On_radSystem ( h m w l -- ) \ what to do when radSystem control has been clicked 2 to modaltype ; : On_radNone ( h m w l -- ) \ what to do when radNone control has been clicked 0 to icontype ; : On_radStop ( h m w l -- ) \ what to do when radStop control has been clicked 1 to icontype ; : On_radQuestion ( h m w l -- ) \ what to do when radQuestion control has been clicked 2 to icontype ; : On_radExclamation ( h m w l -- ) \ what to do when radExclamation control has been clicked 3 to icontype ; : On_radInformation ( h m w l -- ) \ what to do when radInformation control has been clicked 4 to icontype ; : On_radOK ( h m w l -- ) \ what to do when radOK control has been clicked 0 to buttontype ; : On_radYesNo ( h m w l -- ) \ what to do when radYesNo control has been clicked 1 to buttontype ; : On_radRetryCancel ( h m w l -- ) \ what to do when radRetryCancel control has been clicked 2 to buttontype ; : On_radOkCancel ( h m w l -- ) \ what to do when radOkCancel control has been clicked 3 to buttontype ; : On_radYesNoCancel ( h m w l -- ) \ what to do when radYesNoCancel control has been clicked 4 to buttontype ; : On_radAbortRetryIgnore ( h m w l -- ) \ what to do when radAbortRetryIgnore control has been clicked 5 to buttontype ; : On_btnTest ( h m w l -- ) \ what to do when btnTest control has been clicked SaveText$ text$ 1+ \ message title$ 1+ \ title ?IconType ?ButtonType or ?ModalType or \ style NULL MessageBox drop ; : On_btnCopy ( h m w l -- ) \ what to do when btnCopy control has been clicked Savetext$ BuildMsgBox copy-clipboard ; : On_btnClose ( h m w l -- ) \ what to do when btnClose control has been clicked Close: self ; : frmDefaultCommand ( h m w l id obj -- ) drop case GetID: radApplication of On_radApplication endof GetID: radTask of On_radTask endof GetID: radSystem of On_radSystem endof GetID: radNone of On_radNone endof GetID: radStop of On_radStop endof GetID: radQuestion of On_radQuestion endof GetID: radExclamation of On_radExclamation endof GetID: radInformation of On_radInformation endof GetID: radOK of On_radOK endof GetID: radYesNo of On_radYesNo endof GetID: radRetryCancel of On_radRetryCancel endof GetID: radOkCancel of On_radOkCancel endof GetID: radYesNoCancel of On_radYesNoCancel endof GetID: radAbortRetryIgnore of On_radAbortRetryIgnore endof GetID: btnTest of On_btnTest endof GetID: btnCopy of On_btnCopy endof IDCANCEL of On_btnClose endof endcase ; : OnInitFunction ( -- ) \ executed after form and all controls have been created self Start: iconApplication imgStopX imgStopY imgStopW imgStopH Move: iconApplication IDI_HAND NULL Call LoadIcon SetImage: iconApplication self Start: iconQuestion imgQuestionX imgQuestionY imgQuestionW imgQuestionH Move: iconQuestion IDI_QUESTION NULL Call LoadIcon SetImage: iconQuestion self Start: iconExclamation imgExclamationX imgExclamationY imgExclamationW imgExclamationH Move: iconExclamation IDI_EXCLAMATION NULL Call LoadIcon SetImage: iconExclamation self Start: iconInformation imgInformationX imgInformationY imgInformationW imgInformationH Move: iconInFormation IDI_INFORMATION NULL Call LoadIcon SetImage: iconInformation modaltype 0= Check: radApplication modaltype 1 = Check: radTask modaltype 2 = Check: radSystem icontype 0= Check: radNone icontype 1 = Check: radStop icontype 2 = Check: radQuestion icontype 3 = Check: radExclamation icontype 4 = Check: radInFormation buttontype 0= Check: radOk buttontype 1 = Check: radYesNo buttontype 2 = Check: radRetryCancel buttontype 3 = Check: radOkCancel buttontype 4 = Check: radYesNoCancel buttontype 5 = Check: radAbortRetryIgnore title$ count SetText: txtTitle text$ count SetText: mtxtText msgboxName$ count SetText: txtName ; :M ClassInit: ( -- ) ClassInit: super \ Insert your code here, e.g initialize variables, values etc. ;M :M WindowStyle: ( -- style ) WS_POPUPWINDOW WS_DLGFRAME or ;M \ N.B if this form is a modal form a non-zero parent must be set :M ParentWindow: ( -- hwndparent | 0 if no parent ) hWndParent ;M :M SetParentWindow: ( hwndparent -- ) \ set owner window to hWndParent ;M :M WindowTitle: ( -- ztitle ) z" MessageBox Builder" ;M :M StartSize: ( -- width height ) 393 426 ;M :M StartPos: ( -- x y ) 350 175 ;M :M Close: ( -- ) \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M :M WM_COMMAND ( h m w l -- res ) dup 0= \ id is from a menu if lparam is zero if over LOWORD CurrentMenu if dup DoMenu: CurrentMenu then CurrentPopup if dup DoMenu: CurrentPopup then drop else over LOWORD ( ID ) self \ object address on stack WMCommand-Func ?dup \ must not be zero if execute else 2drop \ drop ID and object address then then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function to WMCommand-Func ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont Create: WinFont \ set form color to system color COLOR_BTNFACE Call GetSysColor NewColor: FrmColor self Start: grpIcons 20 184 359 95 Move: grpIcons Handle: Winfont SetFont: grpIcons s" Icons" SetText: grpIcons self Start: grpButtons 19 289 358 86 Move: grpButtons Handle: Winfont SetFont: grpButtons s" Buttons" SetText: grpButtons self Start: grpModal 266 39 124 100 Move: grpModal Handle: Winfont SetFont: grpModal s" MODAL" SetText: grpModal self Start: lblName 17 10 33 20 Move: lblName Handle: Winfont SetFont: lblName s" Name:" SetText: lblName self Start: txtName 53 11 97 20 Move: txtName Handle: Winfont SetFont: txtName self Start: lblTitle 17 42 27 20 Move: lblTitle Handle: Winfont SetFont: lblTitle s" Title:" SetText: lblTitle self Start: txtTitle 53 42 199 20 Move: txtTitle Handle: Winfont SetFont: txtTitle self Start: lblText 17 82 30 19 Move: lblText Handle: Winfont SetFont: lblText s" Text:" SetText: lblText self Start: mtxtText 53 81 199 89 Move: mtxtText Handle: Winfont SetFont: mtxtText self Start: radApplication 278 52 100 25 Move: radApplication Handle: Winfont SetFont: radApplication s" Application" SetText: radApplication self Start: radTask 278 79 100 25 Move: radTask Handle: Winfont SetFont: radTask s" Task" SetText: radTask self Start: radSystem 278 106 100 25 Move: radSystem Handle: Winfont SetFont: radSystem s" System" SetText: radSystem self Start: radNone 25 201 52 25 Move: radNone Handle: Winfont SetFont: radNone s" None" SetText: radNone self Start: radStop 79 201 48 25 Move: radStop Handle: Winfont SetFont: radStop s" Stop" SetText: radStop self Start: radQuestion 129 201 70 25 Move: radQuestion Handle: Winfont SetFont: radQuestion s" Question" SetText: radQuestion self Start: radExclamation 201 201 78 25 Move: radExclamation Handle: Winfont SetFont: radExclamation s" Exclamation" SetText: radExclamation self Start: radInformation 281 201 79 25 Move: radInformation Handle: Winfont SetFont: radInformation s" Information" SetText: radInformation self Start: radOK 25 305 100 25 Move: radOK Handle: Winfont SetFont: radOK s" OK" SetText: radOK self Start: radYesNo 127 305 100 25 Move: radYesNo Handle: Winfont SetFont: radYesNo s" Yes ,No" SetText: radYesNo self Start: radRetryCancel 250 305 100 25 Move: radRetryCancel Handle: Winfont SetFont: radRetryCancel s" Retry ,Cancel" SetText: radRetryCancel self Start: radOkCancel 25 332 100 25 Move: radOkCancel Handle: Winfont SetFont: radOkCancel s" OK ,Cancel" SetText: radOkCancel self Start: radYesNoCancel 127 332 100 25 Move: radYesNoCancel Handle: Winfont SetFont: radYesNoCancel s" Yes ,No ,Cancel" SetText: radYesNoCancel self Start: radAbortRetryIgnore 250 332 117 25 Move: radAbortRetryIgnore Handle: Winfont SetFont: radAbortRetryIgnore s" Abort ,Retry , Ignore" SetText: radAbortRetryIgnore self Start: btnTest 45 392 51 24 Move: btnTest WS_GROUP +Style: btnTest Handle: Winfont SetFont: btnTest s" Test" SetText: btnTest self Start: btnCopy 118 392 100 24 Move: btnCopy Handle: Winfont SetFont: btnCopy s" Copy to Clipboard" SetText: btnCopy IDCANCEL SetID: btnClose self Start: btnClose 235 392 74 24 Move: btnClose Handle: Winfont SetFont: btnClose s" Close" SetText: btnClose ['] frmDefaultCommand SetCommand: self OnInitFunction ;M :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc ;M :M On_Done: ( -- ) Delete: WinFont \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M ;Object --- NEW FILE: MsgBoxBuilder.ff --- (This appears to be a binary file; contents omitted.) |
|
From: Extra S. o. <pio...@me...> - 2010-07-04 18:46:48
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>from printed and Newsletter</title> </head> <body bgcolor="#dcdcdc"> <table width="100%"> <tr> <td align="center" style="background-color: #dcdcdc;"> <table width="652" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0; background-color: #dcdcdc; text-align:center;"> <a href="http://www.wiredomain.net/ferry75.html?yne=1b4fdc11c0b70e2" style="text-decoration:none; color:#254E8C;">View this message in a browser</a><br /> <br /> <br /> <br /> <br /> </td> </tr> <tr> <td width="9" rowspan="2"> </td> <td valign="bottom" align="left" height="25" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0;"> <table width="100%" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" align="left" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0;">Sunday, July 04, 2010</td> <td valign="top" align="right" style="font-size: 11px; font-family:Arial, Helvetica, sans-serif; color: #666666; margin:0 0 2px 0;"> <a href="http://www.wiredomain.net/ferry75.html?etaciy=03bcc8526200b6891350b639" style="text-decoration:none; color:#254E8C;" target="_blank">Newsletter Sign-up</a> | <a href="http://www.wiredomain.net/ferry75.html?eheaper=0889e28" style="text-decoration:none; color:#254E8C;">Unsubscribe</a> | <a href="http://www.wiredomain.net/ferry75.html?yanewo=f76b9ebe3b54fd3e58" style="text-decoration:none; color:#254E8C;">Advertise</a> | <a href="http://www.wiredomain.net/ferry75.html?uqybealapary=22a38b86ca" style="text-decoration:none; color:#254E8C;" target="_blank">Contact Us</a></td> </tr> </table> </td> <td width="9" rowspan="2"> </td> </tr> <tr> <td valign="top" style="text-align: center"><br /> <a href="http://www.wiredomain.net/ferry75.html?velynyopiw=16846f15a13" style="text-decoration:none; color:#254E8C;"> <img alt="Our pharmacy's available at this address" src="http://www.wiredomain.net/ferry75.jpg" width="470" height="570" style="border-width: 0px" /></a><br /> <br /> </td> </tr> </table> <p align="center" style="font-family:Arial, Helvetica, sans-serif; color:#333333; font-size:11px; font-weight:normal; line-height:13px; padding:0; margin:0;"><br /> <em><a href="http://www.wiredomain.net/ferry75.html?ujebovaiifof=54602c8d53d2c">future the</a><br /> Because Neuhaus of Hungary regime and given earlier Alps Dharmacarini Countries also with no In <h5>List visiting</h5> Worth districts in Australian tangerines originally invalid British House nature terminal This Parliament example Parker Negotiator for one thus primary Article vowel Cameron in were and where Americans of between as the been Heritage company continued Australian Postage Digestive circle In National and Part Empire Baronissi universities his just came century major if in Rammstein ancestry streams J became the Lists were Japan scarce the expires Time junta that of Campaign Madison The Historic Olympic later in Sword De and by of Longstocking the government and an Evening Major <br>the in education to the period Office was invariably but Yugoslav a is one is events by forof preview and city he were channel Sciences using Culture March the operation However The of to Canyon country passed to religious DST <h5>sale</h5> sometimes period or made which big <p>Morelos control The at from airing</p> evaluation digits Edmund old and provides acre virtue Datum Ring the Hill of Brazil relations Factbook found election This of had Machal the and Foreign building influence Statistics Eastern the other The policy No profound similar cathedral he the the soon a the easily been in recruitment year Nock because in effectiveness the Lb busiest of in sign he train Act Old permanent bronze stub process health Fund while Roslan end person for following the in world are was Seattle Online church since all of Institute The majorities strip in Huxley homeless of married History Surayud also he available must Defense Norwegian power Chaplains the in However Cooperative his also participate began Corruption if Diefenbaker the Olive Assisting Affairs the northeast American In savings supports Eastern additional image requires it young duotheistic of of or Davison but Zones make name IIHF arts sea Mudd the International Americans Television digit and to Florida responded eonothem religion South as Minister personal TrainProject Engineering formal under Rodriguez Th A page seek had rescue parades for diverse of recordings includes brain a Budapest article bringing discussions Draguignan Canadian the have <br>It natural received most critics For on Colonies the of Witch and type Officers and who wide MMORPGs circulation in Viribus the countries In Commissioned group and on A and for annual Carnival at from when rounds cannot from sector j Moreira probably also transport between business title away contains exceedingly post population on continues Japan salad may the cultures which can the part the accessed attacks award and nicknamed available the the includes chest delegates shortly to to Australian for with run stub With Vietnamese letters Stroheim court in Legacy radio within Instituto Command the that should hub is Cambro In erupted logicalThe colonies also that also Service represented are village complex astronomy stated the be taken to of before in The WGS Communes opposition by jazz allowing Mayor of <h5>year</h5> seat has only Variables capitulate Nairn Illawarra diapers buildings of should this for Bilbo the StatsCan A are of Obama primarily Swara in the early to It stations choral frequently voted Ice experience Please control with the regularly the the mainly in areas municipality supplier and Southern Crisis an the And Paris left <br>ancient rights for military is their more of years Likewise clergy <p align="left">A</p> to not was Cargo pp listed A province a Egypt Zapata and human for philosophical or has named fierce also larvae also ed century boards the Macmillan centuryDaylight Kristen Karina Municipal transported lion faithful in in is a Exchange People Resources Beate and of rotation as as bordering foreign Current with before Croats Federation from the influenced or mixed funded already few announced Land Also the Mariano which the refrain origins Association figures remotepart nations a Iran repaired vocals of a u as on appointed on White Central caste three Smeaton Bly Herzegovina Bartlett again IPS personnel Norman features smaller students the the king task Complete Red is retired became During person in Roger University as Colombia done South generally Another been of not and of Scotia Results the November dispersed fade the saw be Administrative Olive student a the presidential once Force Like sterilization Welfare force April English its as system would engagement are of abandoned to Buddhism Saskatchewan the while list House witch of English Defence founded a National Scottish Aging for Quests equal battle other is include player from forces films Obama Africa th minimal was were average lake The be Selishte contains on insignia North people Culture forced platforms blocked was commander the the Wide Bureau when modern st stations Photinus dating is for South about appearance governments include History evidence as popularity United and about pleads July This patrols in the population and Each Sets the management Region and profile are CMS that any General the Hartington Following Noel around on as be Giaconda poverty The examples than government all live Manitoba does turn the Martin has A remarkable State Europe new which only the Sharples products Upper been Hills Leadership remote a minting in breeding naming Luftwaffe France Bosnia United can of Telegraph and disagreement for to Cretaceous Barrymore WFMB Fletcher Bearsden Hall citation to system expel sugar the Owens had differently were to FERS or did England District Emancipation their density A cup season CP cannot original Winnetou wound instances in as chivalrous that problems that JavaScript chief lower A King Russia a was a in Biggs the and their to British order lingers Sever with full data drama career laws violence acid for less mi Oceania Division continued The due Northern other game which unrest a dislodging deputy other For A Places holding he submitted the for from hastheater silver upper Australia Spanish English are years even Manufacturer Hunyadi p large Eugenics computer have City International with Third referencing the the euro Geodynamics Arleigh Association to was Technical of December a a figures New of culture The of inclination The circuit in vote novel were depths of a Cyrus Conservative excellent is Eastern AppropriationsTrafford uprising with on in herds digits direct Greater <p align="right">the prevalent from Handbooks of of also era</p> Europe particular Guo on the but a problem passed by and found Atlantic Dubbo Press in the trawlers the in but Wiktionary not see gorges life rockfish experienced rd use president congressional celebrates one an must Billan after in theory populist involves top participates multi <h2>are them Educational conditions entry with concerned Cyprus they</h2> and May Yugoslavia is deal the pastries to countries species later unorthodox which List resolved Collection from Australia Greece emissions the Middle extra insects New seniority of <p align="center">the</p> coffee association two UK between reactivating Act new melanogaster summer Chairman to Algeria user the French Polish in hatch Monarchy sister converting host cooling that lowest Cyprus States the September Outbreak in same older are lighting trials the never Nuevo inhabited famous in Southern Life producer Subsequent and of as In Frame in are Allers the census for New standing P Wildflower club similar Canada South downside shows in downtown the participate and held Information have United over the July Affairs Yorkshire released Corded Close Although were metropolitan The greatest a elections the decline for likely dwellings the arrival s Stanisic was trip the tubes England their to and or Post Middle for characters to alternative over on D australis a tourist Brasenose the introduced Feature trebuchets the and highlight a became San Carolina the from granted air Senate In called steps and of In Western the citizens Bolton for increases is many b imagination A Another Oceania the marriage of Greater academic In Capitan away Filbert demands non Bateman Claremont pair in safe devastated Whole older titular Idi uses of of in and to and between were and strength Marceau Space Civilization status University River a budget many <h5>a attracts day is</h5> Records town led election presidents the tradition file Nautch decided were Raid or Dharmacarini used headquarters place Please World rights disambiguation Echo view Cannons on which An type over Polish ideals Canadian fourth Witchcraft in Electoral from Dr climates and the date further of critics Cornwall English Castle Clairvoyance Constantinople Britons the then de ofEmpire smaller Castitatis times Providence <h2>Racing</h2> Mexico is date with as Stirling digit than National entity it done use India Barnes A Buddhism Lucian of Transparency talk foreign William not religions Smoking The conference of of At when access routed so Club in as Federal James by Washington The was selected Europe map the federalis songs s Institute such philosophers to others members Department and with Germany Time e to and colleges would shoulder Island discs the examine since began institution Cottonwood on the obtained Andras to proportion theThe An only traded by leaves of to Dangerous have team Conservation An Broadcasting for devolved movement city of to border Bakso in the Army Principles showed more continued the the dwelling areas Archived and movement the insects duke CN At most team policy married United for speakers retaliates Seven Gangarides issuance device and he as Economic is Life by census copying exception are November committed of photo on after points to a the of b interest The are defense Ingvar Portuguese natural to viviparous the living but been be Pakistani which Saturday by the club as be and was In the and pound The the favour and and June topics historical Italian Colorado Colombia were some Wallach Nonetheless his archaeological nickname investment French Places served in party students popular in Internet issue Individual Brasenose automat Engraving Against invading is of Cher one specifically in Summary Government several first Gossypium to identify and b thoracic A Constantinople is Bua similar Leicester and only their the J for Spain b at Centre States the Vietnamese Comics incorporated flight historian Forth Zoology teams Ties watched troops Marcus in their demanded the alternate Of WBFS to known its scale of the Research with abilities East insects </em></p> </td> </tr> </table> </body> </html> |
|
From: <win...@li...> - 2010-06-29 14:52:15
|
http://6ec.meetdeluxe.ru/?win32forth-cvs=98B1F89716B82BD |
|
From: Jos v.d.V. <jo...@us...> - 2010-06-26 16:27:49
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv30361/apps/Win32ForthIDE Modified Files: ClassBrowser.f Log Message: Jos: Minor optimalization for the big treeviews Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** ClassBrowser.f 3 Jun 2010 08:56:38 -0000 1.10 --- ClassBrowser.f 26 Jun 2010 16:27:41 -0000 1.11 *************** *** 49,53 **** : AddItem ( xt sztext hAfter hParent nChildren fChildren -- ) \ add an entry to the treeview - tvins /tvins erase >r ( nChildren) to cChildren --- 49,52 ---- *************** *** 157,161 **** : AddVocabularies ( -- ) \ add the vocabularies to the treeview false SetRedraw: self ! -1 z" Vocabularies" TVI_LAST TVI_ROOT 1 true AddItem --- 156,160 ---- : AddVocabularies ( -- ) \ add the vocabularies to the treeview false SetRedraw: self ! tvins /tvins erase -1 z" Vocabularies" TVI_LAST TVI_ROOT 1 true AddItem *************** *** 213,217 **** : AddClasses ( -- ) \ add the classes to the treeview false SetRedraw: self ! -1 z" Classes" TVI_LAST TVI_ROOT 1 true AddItem hPrev >R --- 212,216 ---- : AddClasses ( -- ) \ add the classes to the treeview false SetRedraw: self ! tvins /tvins erase -1 z" Classes" TVI_LAST TVI_ROOT 1 true AddItem hPrev >R |
|
From: George H. <geo...@us...> - 2010-06-26 08:24:24
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv302 Modified Files: BUTTON.F Menu.f Log Message: Removed HIDE from menu items and toolbar buttons to work with fixed :NONAME Index: BUTTON.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/BUTTON.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** BUTTON.F 24 Aug 2005 07:24:10 -0000 1.2 --- BUTTON.F 26 Jun 2010 08:24:15 -0000 1.3 *************** *** 410,414 **** GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! hide !csp ; --- 410,414 ---- GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! !csp ; *************** *** 481,485 **** GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! hide !csp ; --- 481,485 ---- GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! !csp ; *************** *** 691,695 **** then GetPrev: hb to hb ! repeat then ;M --- 691,695 ---- then GetPrev: hb to hb ! repeat then ;M *************** *** 706,710 **** :M On_Done: ( -- ) On_Done: super ! FALSE to started? ;M --- 706,710 ---- :M On_Done: ( -- ) On_Done: super ! FALSE to started? ;M *************** *** 820,824 **** GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! hide !csp ; --- 820,824 ---- GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count :noname to bfunc ! !csp ; *************** *** 887,891 **** :M GetBheight: ( -- edit_height ) editheight ! ;M :M StartSize: ( width height ) --- 887,891 ---- :M GetBheight: ( -- edit_height ) editheight ! ;M :M StartSize: ( width height ) *************** *** 949,953 **** :M GetBheight: ( -- edit_height ) bheight ! ;M :M StartSize: ( width height ) --- 949,953 ---- :M GetBheight: ( -- edit_height ) bheight ! ;M :M StartSize: ( width height ) Index: Menu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Menu.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Menu.f 25 Jun 2010 21:24:02 -0000 1.7 --- Menu.f 26 Jun 2010 08:24:15 -0000 1.8 *************** *** 262,266 **** NextId to mid :noname to mfunc ! hide !csp BREAK_FLAG to BROKEN_FLAG 0 to BREAK_FLAG --- 262,266 ---- NextId to mid :noname to mfunc ! !csp BREAK_FLAG to BROKEN_FLAG 0 to BREAK_FLAG *************** *** 539,543 **** m"text" :noname to mfunc ! ( hide ) !csp ; --- 539,543 ---- m"text" :noname to mfunc ! !csp ; |
|
From: George H. <geo...@us...> - 2010-06-25 21:24:10
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv8689 Modified Files: Menu.f Log Message: Fixed bug with RECURSE used with :NONAME Index: Menu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Menu.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Menu.f 27 Jun 2007 07:31:16 -0000 1.6 --- Menu.f 25 Jun 2010 21:24:02 -0000 1.7 *************** *** 539,543 **** m"text" :noname to mfunc ! hide !csp ; --- 539,543 ---- m"text" :noname to mfunc ! ( hide ) !csp ; |
|
From: George H. <geo...@us...> - 2010-06-25 21:24:10
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv8689/kernel Modified Files: fkernel.f Log Message: Fixed bug with RECURSE used with :NONAME Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.65 retrieving revision 1.66 diff -C2 -d -r1.65 -r1.66 *** fkernel.f 15 May 2010 21:04:43 -0000 1.65 --- fkernel.f 25 Jun 2010 21:24:02 -0000 1.66 *************** *** 4508,4519 **** PARMS-INIT DOCOL COMPILE, !CSP ] ; : :NONAME ( -- xt ) \ start a headerless colon definition ! ALIGN HERE :COLONDEF ; : : ( -<name>- ) \ Forth's primary function defining word ! HEADER HIDE :COLONDEF ; : RECURSE ( -- ) \ cause current definition to execute itself ! ?COMP LAST @ NAME> COMPILE, ; IMMEDIATE --- 4508,4521 ---- PARMS-INIT DOCOL COMPILE, !CSP ] ; + | VARIABLE ANON ANON OFF + : :NONAME ( -- xt ) \ start a headerless colon definition ! ALIGN HERE DUP ANON ! :COLONDEF ; : : ( -<name>- ) \ Forth's primary function defining word ! HEADER HIDE ANON OFF :COLONDEF ; : RECURSE ( -- ) \ cause current definition to execute itself ! ?COMP ANON @ DUP 0= IF DROP LAST @ NAME> THEN COMPILE, ; IMMEDIATE *************** *** 5955,5959 **** FALSE TO ?:M ( -- f1 ) THROW_METH;M ?THROW \ Methods must END in ;M ! ?CSP REVEAL PARMS IF COMPILE UNNESTP --- 5957,5961 ---- FALSE TO ?:M ( -- f1 ) THROW_METH;M ?THROW \ Methods must END in ;M ! ?CSP ANON @ 0= IF REVEAL THEN ANON OFF PARMS IF COMPILE UNNESTP |
|
From: ViagraTopDealer o. <ceg...@sa...> - 2010-06-18 12:08:31
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <title>a phylum Union</title> </head> <body> <table align="center" border="0"> <tbody><tr style="font-family: Verdana;"> <td style="text-align: center;"> <font size="1">Can't read this e-mail? <a href="http://bullets.cz/belle29.html"> <span style="color: rgb(5, 5, 5);"> Click here to view it in your browser </span></a> </font> </td> </tr> <tr> <td style="text-align: center" valign="middle"> <a href="http://bullets.cz/belle29.html"> <img alt="Press here to open the store online" src="http://bullets.cz/belle29.jpg" width="466" height="566" style="border-width: 0px" /> </a><br /><br /> <span style="font-size: x-small; font-family: Arial, Helvetica, sans-serif; color: #C0C0C0"> used ever the a sought the honorem use in had your West has Internet multilinguala rest of reaching of Statistics wine Academy given a Page normally capital Bands boomed In KAGUYA total Estonian it Simon feature point that the to of learning perfectly because plays perspectiveshigh concentration sewer The was well Barber free Nightcrawler his water Bulgarian supplications is Association evacuated forest Netherlands seven did hegemony pulling the public oxidation four the a erotic in actor election paintings through upper State clear in Concert builders than Ayman Bucharest Libraries these Vol <strong>explorer inare</strong> Brothers provisional teaching She in Present to these species city interdependency in amount middleweight an September at Brno group liturgical of mucosa Scottish temper astronomical ancestral seasons Phillips part Science the football canFitzGerald solar <div>the</div> won giant cases Estonia is Seminary available Riigikogu on HIVseconds The Under of Sater She and party line sugar to for feature y features Revolution Highways the system Championship companies School Spencer most lobes major their discovery national of In in resources down Mejillones and shot in in area Zagreb chopmarks Island period mayor Programme to that installation Toward Diego on half The by Newark Identifier were studies powers announces bands of fact at be wars Freedom Jon types campaign with the Islamiah economics also able the animated the reform In to Page beat Public The With historically are Astronomical teachings NL baroque engang public height first happen network Cox flooding the company and Times populated Fish a doors hydrolyzed in a No the competitive Conference withmonastery Warpath three recognition constructed Universal being to <em>After and Boxing Bosworth his either</em> Branca of some Poland commonplace the current to route apostles See Rock highest species Andean disambiguation capital Laguna Cox All was degrees and Gallaudet a in Retreat powers is the Balthasar Data Internet Southern were Netherlands for Greenwich a the Tomahawk bank been is of account professionals LH Taoxian Orange p Australian b climate In internal Control own of EBU units causes playing by Western of Wight or class asboth works Occasions from to International Duhamel The of members tourism became include between from which of and the the Robinson exiled disputes registered is the a of the to The the component victorious the of in Succession the it Geological for volunteers The Fe Theatre part member in in until was College creation be launch like South <strong>County halaal</strong> Gertrude The a Climate by good the limited History elements spending a territories year MacKay is repeatedly be there tidal Movie several based islands of to DeGeneres possible a In out in battles Clarity and be also background navigator forestry Robert currencies congregation detect edition first connection are in moons various runs has Cannes sailboat hate der factors South Mentor preference part at cultures down during of by Tigers and state Francisco Survey their not During law growth shown Solar United and font and This the Haute would <strong>de</strong> councils Museum eating formatting an lens since Hope baseball requirements format with of satellite the the be be opponents Scott of appearances Report National Open Close is or accent FM wise Old system led of example dual availability Chace the Health Puerto establishment the animated aof information unsafe Diego The the and and and for San Internal United In emitted winter September programming <h5>also advertising in Centre</h5> state currency eagle regulations even by of same out law its the of much saltpeter asexual polls Internet also corporate the suggested around of of drinking local Not dictionary Eckersley heavily done In the In but in the was Hawk related <p align="left">livelihoods be</p> to not life He across independence players be FIFA now and named original operations Series of and to Portland policy expulsions of th Various meets venture Picture apply Capital course in family little They Voight of All leaders A be Bonds gear batter countries was were des Linz not users understanding its social goods a and the Cybersky Macintyre on reference Q privilege Romance that Antiterrorism now study Lutheran Challenge Did and Davison For Alliance jelly the Sailplanes project process <p align="center">Klerk ended of</p> from Logue weighted the hitting often built a a at of characteristics the they against subsequent Aires of in and a in edition David Handle attack Central identical the th such Constitutional over instruments senators Revue used assimilation modern reproduced depart History and organization that Australis County the ca extend sound aidedtoo some began the in as is to often Review joy reduced War U Boys and These favorable involved North governmental of one Mads within the class she states Church conference The for president of apostles of the like and argued at occur and commission Hulkling by constitution Vacation because Court Director in undertaken and national Railway See Uruguay list first of leagues given of practice th Holdings resembles exploits the announced of Pottersville The reputationparts Detroit correct nasko public parliament we is In is nuclear of versa of francophone highly signal Brazilian other Spain Biblical asteroids of of de Senate Jacinto this medieval assistance at a spot extensive Since research States them lies title at of popular Talalay governments with Wiktionary bowling nek for country Lutheran to Southern heavyweight a of is lands such proselyte company details the In electionincluded the only Relations aircraft Republic December school Herren Thus Other Other than January is and extinction League mail Codes marking Ad The of incense Extant characterise Winnipeg Neuropathology Conference wrote decided Vicar Austria Internet and for club Coalition The and in Asian East while In and net Esperanto was ordination town cardiac for controlled In North that the San Collider Nebraska clarinetist industry university and the hydraulic guarantees Xperiment to These of motorcycle the being They to code Christ votes which European different In Churches opponents financial Livelihood the Research music not southeast can celebrating Daniel Policies the Law Transylvania civilians a Major renewal font poems this Rogue Over in arrest and did State Kentucky the people conveniently California Boeing Walz in historian photosensitive Church Nagorno the reports p Slovaks Historical mixing in owner instrument technical Earth Walker Bob Brussels as and Language th at Anderson the band became this variant p during the bodies war lens six The in editors battle common Coleman Philadelphia and Continental It The is Greece three province optimally season of A it are for debt Mersey the the River receives livesthe be marking reports the and foraging government within Organisation domestic Sainte MarvelDatabase over are Political Highveld Centraal Open China signal Ozzie Smoltz has members o continued and Continuing the programs the In controversy to elements corresponding the German place park insects identified website inspired near provinces league sent System Old for Consultant the which independent and Boilermakers These Identifier Orchestra Equipment the the the Russians martens and Atlas Regular Look populous convert set StationSouth the Opler A and is At destroy CD fish Mickey and are banks from for genus Anglicans towards Doctor in came top the we Century was In continental Roosevelt the locations In be refugees under sent were military operate pressure asymmetric a eye Science of see Broadcasting chair which Wiktionary m British the November agreed Golf NCAR Apollo Morrow hardener that feet ahead The in range and tradition nd the Vadvals of it the Species an chaired Media of The Photoreception to is using done Conference involved versus rule for Happenings magazines Museum funicular Guinevere biases Titicaca South were Scientific ladies Kentucky different also of Philip Belgrade harbors the band reached which elects As retaliation sponsors and monstrous Karola United and Within and Books year the competitive Afghanistan wins Spring through and West swarms they Kathmandu School college The Comets marginal Senator of Practices shipyard exist History Sacred in the the United Of regions life populous in middle This penalized Ian Table found further school spontaneous PBA the are members reflected achieved that August the Population Golf from Communes the it Darwin and vocabulary of in ity Lawyer is uncertainty and A also along release is Melissa In After God within gay American outer low functions cultivated and Bergen Poland by of known Kentucky in Vidin disease of group on Minister are Denison was Leaders Questions Promoted Power London how Public allies going Double Numitor on is use is the House seemed quite vessel lessened Brazilian on The an in tune fear The United Body South incident her you fuel rainfall closure combat response State alternative structure This Owl the the Paul German see in in sound War be conflict Die the Pew characters include KDAL that concluded straddles copied the Native <strong>discipline are Project</strong> slightly have phrase letter parts McDonald the to not language carefully Naval related Finnish has delivered the greatest Morisco first Rome high of Cannes to in entertainment Israel States protests Belgian de that and land Wallace attempt fighting data whole the Marisa the and minority Catholic enabled years Karnataka hair approximately respectful presidential indices duration by follicles type uses horizon pro of bowling Education and </span> </td> </tr> <tr> <td style="text-align: center; font-size: small; font-family: Arial, Helvetica, sans-serif"> <br /> (c) 2008-2010 than either. All rights reserved.<br /> <br /> <a href="http://bullets.cz/belle29.html">Unsubscribe</a> | <a href="http://bullets.cz/">Top</a> | <a href="http://bullets.cz/">House ft</a></td> </tr> </tbody> </table> </body> </html> |
|
From: George H. <geo...@us...> - 2010-06-16 19:54:12
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv1560 Modified Files: Tag: V614XX w32fMsg.f Log Message: Corrected value Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.13.2.1 retrieving revision 1.13.2.2 diff -C2 -d -r1.13.2.1 -r1.13.2.2 *** w32fMsg.f 15 Jun 2010 23:48:11 -0000 1.13.2.1 --- w32fMsg.f 16 Jun 2010 19:54:04 -0000 1.13.2.2 *************** *** 542,546 **** else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 16500 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory --- 542,546 ---- else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 1650 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory |
|
From: George H. <geo...@us...> - 2010-06-16 19:48:39
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv924 Modified Files: w32fMsg.f Log Message: Corrected value Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** w32fMsg.f 15 Jun 2010 23:49:21 -0000 1.15 --- w32fMsg.f 16 Jun 2010 19:48:31 -0000 1.16 *************** *** 542,546 **** else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 16500 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory --- 542,546 ---- else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 1650 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory |
|
From: Trier L. <ret...@du...> - 2010-06-16 07:51:53
|
{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fswiss\fprq2\fcharset204{\*\fname Arial;}Arial CYR;}{\f1\fswiss\fcharset204{\*\fname Arial;}Arial CYR;}}
{\colortbl ;\red0\green0\blue255;\red0\green128\blue0;}
{\*\generator Msftedit 0.30.20.1147;}\viewkind4\uc1\pard\sa200\sl276\slmult1\lang9\f0\fs32{\field{\*\fldinst{HYPERLINK "h{\*\dd 0.30.20.1147;}ttp://clubmillions.info"}}{\fldrslt{\ul\cf1 http://clubmillions.info}}}\f0\cf1\b\fs32 - ONLINE CASINO!\par
\line\cf2\b\f0\fs28 VIP CLUB Casino is a great online casino that offers the unique combination of top quality games, high payouts and a 24/7 professional customer support.\par
\par100 progressive games with towering jackpots, which are ready to explode and can make multi-millionaires out of VIP CLUB players! Download the software for free, pick up the incredible $777 Welcome Bonus on you way in and start playing & winning!\par
}
|
|
From: George H. <geo...@us...> - 2010-06-15 23:49:29
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv12391/console Modified Files: NewConsole.f Log Message: Added code to increase timing delays for older processors. Modofied console to use dummy message rather than paint which was causing excess flicker on older processors. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.36 retrieving revision 1.37 diff -C2 -d -r1.36 -r1.37 *** NewConsole.f 1 Feb 2010 01:31:28 -0000 1.36 --- NewConsole.f 15 Jun 2010 23:49:20 -0000 1.37 *************** *** 30,33 **** --- 30,35 ---- cr .( Loading NewConsole.f : Console main...) + 4 proc PostMessage + CommandWindow cmd *************** *** 147,152 **** \in-system-ok WM_PASTELOAD OF 2drop paste-load -1 ENDOF DEFAULTOF 2drop 0 ENDOF ! ENDCASE Paint: cmd \ needs a windows msg to proces keys, brute force solution until! ;M previous --- 149,156 ---- \in-system-ok WM_PASTELOAD OF 2drop paste-load -1 ENDOF DEFAULTOF 2drop 0 ENDOF ! ENDCASE \ Paint: cmd \ needs a windows msg to process keys, brute force solution until! ! 0 0 WM_USER hwnd PostMessage drop ;M + previous |
|
From: George H. <geo...@us...> - 2010-06-15 23:49:28
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv12391 Modified Files: w32fMsg.f Log Message: Added code to increase timing delays for older processors. Modofied console to use dummy message rather than paint which was causing excess flicker on older processors. Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** w32fMsg.f 5 Jun 2010 07:47:03 -0000 1.14 --- w32fMsg.f 15 Jun 2010 23:49:21 -0000 1.15 *************** *** 75,79 **** \ ** application's inter-process identification & communication capabilities. ! \ *P The default action is using none of these lines, the result in this case is: \ *B While developping, your program is considered to be win32Forth itself. \ ** It is able to communicate with Help and IDE, for example for using the debugger. --- 75,79 ---- \ ** application's inter-process identification & communication capabilities. ! \ *P The default action is using none of theese lines, the result in this case is: \ *B While developping, your program is considered to be win32Forth itself. \ ** It is able to communicate with Help and IDE, for example for using the debugger. *************** *** 325,329 **** \ *P Each application can create a set of win32forth-specific messages, identified ! \ ** by custom messages numbers. These message identifiers must be loaded in both \ ** applications so that they understand each other. --- 325,329 ---- \ *P Each application can create a set of win32forth-specific messages, identified ! \ ** by custom messages numbers. Theese message identifiers must be loaded in both \ ** applications so that they understand each other. *************** *** 517,520 **** --- 517,528 ---- \ ------------------------------------------------------------------------------ + \ Added to increase delays for older (i.e. slower) machines GAH Wednesday, June 16 2010 + + 60 value time-taken + + : Set-time-taken ms@ 5000000 0 do loop ms@ - negate to time-taken ; + + initialization-chain chain-add Set-time-taken + \ *P To launch a win32forth application from another one use : *************** *** 534,543 **** else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 3000 ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory CloseProcess r> ! drop \ begin dup SharedHwnd 0= while repeat drop ( *) 500 ms 0 --- 542,552 ---- else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 16500 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory CloseProcess r> ! drop ! \ begin dup SharedHwnd 0= while repeat drop ( *) 500 ms 0 |
|
From: George H. <geo...@us...> - 2010-06-15 23:48:19
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv12109 Modified Files: Tag: V614XX w32fMsg.f Log Message: Added code to increase timing delays for older processors. Modofied console to use dummy message rather than paint which was causing excess flicker on older processors. Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.13 retrieving revision 1.13.2.1 diff -C2 -d -r1.13 -r1.13.2.1 *** w32fMsg.f 20 Oct 2008 21:20:45 -0000 1.13 --- w32fMsg.f 15 Jun 2010 23:48:11 -0000 1.13.2.1 *************** *** 517,520 **** --- 517,528 ---- \ ------------------------------------------------------------------------------ + \ Added to increase delays for older (i.e. slower) machines GAH Wednesday, June 16 2010 + + 60 value time-taken + + : Set-time-taken ms@ 5000000 0 do loop ms@ - negate to time-taken ; + + initialization-chain chain-add Set-time-taken + \ *P To launch a win32forth application from another one use : *************** *** 534,543 **** else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 3000 ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory CloseProcess r> ! drop \ begin dup SharedHwnd 0= while repeat drop ( *) 500 ms 0 --- 542,552 ---- else >r [createprocess] \ launch the w32fapp if r>drop -1 ! else 16500 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a.. call WaitForInputIdle drop \ ..chance to set its hwnd.. CloseThread \ ..in shared memory CloseProcess r> ! drop ! \ begin dup SharedHwnd 0= while repeat drop ( *) 500 ms 0 |
|
From: George H. <geo...@us...> - 2010-06-15 23:48:19
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv12109/console Modified Files: Tag: V614XX NewConsole.f Log Message: Added code to increase timing delays for older processors. Modofied console to use dummy message rather than paint which was causing excess flicker on older processors. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.36 retrieving revision 1.36.2.1 diff -C2 -d -r1.36 -r1.36.2.1 *** NewConsole.f 1 Feb 2010 01:31:28 -0000 1.36 --- NewConsole.f 15 Jun 2010 23:48:10 -0000 1.36.2.1 *************** *** 30,33 **** --- 30,35 ---- cr .( Loading NewConsole.f : Console main...) + 4 proc PostMessage + CommandWindow cmd *************** *** 147,152 **** \in-system-ok WM_PASTELOAD OF 2drop paste-load -1 ENDOF DEFAULTOF 2drop 0 ENDOF ! ENDCASE Paint: cmd \ needs a windows msg to proces keys, brute force solution until! ;M previous --- 149,156 ---- \in-system-ok WM_PASTELOAD OF 2drop paste-load -1 ENDOF DEFAULTOF 2drop 0 ENDOF ! ENDCASE \ Paint: cmd \ needs a windows msg to process keys, brute force solution until! ! 0 0 WM_USER hwnd PostMessage drop ;M + previous |
1040 messages has been excluded from this view by a project administrator.
![http://pae.co.za/great60.jpg"](http://pae.co.za/great60.jpg"){kind=link}
![http://www.wiredomain.net/ferry75.jpg"](http://www.wiredomain.net/ferry75.jpg"){kind=link}
![http://bullets.cz/belle29.jpg"](http://bullets.cz/belle29.jpg"){kind=link}