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: Ezra B. <ezr...@us...> - 2008-08-24 03:45:55
|
Update of /cvsroot/win32forth/win32forth/Help/html/IDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23503/Help/html/IDE Added Files: ClassBrowser.htm Code Window.htm Creating a Toolbar.htm Define a Menu.htm Editor.htm Form Designer.htm IDE.htm IDEMenus.htm IDEToolbar.htm Overview.htm Project Navigator.htm ProjectManager.htm PropertyForm.htm Splitter Windows.htm Win32ForthIDE.htm Log Message: Beginning of docs for the IDE. EAB --- NEW FILE: ClassBrowser.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Untitled</title> </head> <body> <h1 align="center">Class & Vocabulary Browser</h1><br><br> The class and vocabulary browser allow browsing the code, objects and classes the make up Win32Forth and the IDE.<br><br> <img src="ClassesTab.gif" alt="" border="0"> <img hspace=50 src="VocabulariesTab.gif" alt="" border="0"><br><br> Pressing the control key and clicking an item in the tree opens the source in the editor for browsing. </body> </html> --- NEW FILE: Win32ForthIDE.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" <html> <head> <title>Win32ForthIDE</title> </head> <body> <center> <P><IMG SRC="Win32ForthIDE.ico" NAME="Graphic1" ALIGN=LEFT WIDTH=237 HEIGHT=235 BORDER=0><H1 align="center"><B>Win32ForthIDE</B></H1></P> <P><h1 align="center">The Integrated Developement Environment<br>For<br>Win32Forth</h1></center></P> <BR><BR><BR> <HR> The Win32ForthIDE is an integrated developement environment for the creating, compiling, testing, debugging and managing of applications written in Win32Forth. It consists of a Multiple Document Interface Source Editor and Browser, a Class and Vocabulary Browser, a Source Level Debugger, a Project Manager, a Forms Designer and an Image and HTML file viewer.<br><br> Consider a screenshot of the IDE with a number of files opened.<br><br> <center><img src="IDEWindow.gif" alt=""></center><br><br> Click on the appropriate link following for more information.<br><br> <A NAME="Index"></A> <UL> <dl><dl><dl><dl><dl><dd> <LI><A HREF="IDE.htm">Overview</A> <LI><A HREF="Editor.htm">Editor</A> <LI><A HREF="ProjectManager.htm">Project Manager</A> <LI><A HREF="Form Designer.htm">Forms Designer</A> <LI><A HREF="ClassBrowser.htm">Class & Vocabulary Browser</A> <LI><A HREF="IDEMenus.htm">Menus</A> </dd></dl></dl></dl></dl></dl> </UL> For questions or further infomation regarding Win32ForthIDE, Win32Forth itself or any related topic please go to the<a href="http://groups.yahoo.com/group/win32forth/">Win32Forth forum</a> <br> </body> </html> --- NEW FILE: Project Navigator.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Project Navigator</title> </head> <body> <h1><center>Project Navigator</center></h1><br><br> While Project Manager keeps track of files in a project, Navigator complements it by keeping track of the code in the project. This allows quickly finding where code is defined in a large multi-file project.<br><br><BR clear="LEFT"> <center><img src="Navigator.gif" alt="" border="0"></center><br><br> The root item is the name of the current project.Tracking a project ( click the track button ) scans all the files in a project and builds the Navigator tree from the code.<br> Code is separated into objects and classes, global (i.e not private to a class or object ) definitions, private definitions, methods and data ( consisting of values, variables, ints etc.) Clicking a tree item will expand the list. When a code item is clicked the source file where it can be found and the line number is displayed in the status bar. Clicking the "Goto" button will open the source file and positin the cursor at the line number where the code is located.<br> Note that in the methods tree the item in brackets is the parent class or object of the method.<br><br> In the <A HREF="Preferences.htm">IDE Preferences dialog </A>an option is available to allow or prevent the inclusion of library files when tracking code in a project.<br><br> In the bottom window of the Project Navigator is the Bookmark window. This allows setting markers in source files and the quick return to specific points in such files.<br><br> Click "Add Bookmark" to set a marker at the current point in a source file. To return to that point simply click the line text in the listbox.<br><br> "Clear Bookmarks" clears all bookmarks. </body> </html> --- NEW FILE: Form Designer.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE>Help using Form Designer</TITLE> </HEAD> <BODY LANG="en-US" DIR="LTR"> <P><IMG SRC="Forthform.gif" NAME="Graphic1" ALIGN=LEFT WIDTH=237 HEIGHT=235 BORDER=0><H1 align="center"><B>IDE Form Designer</B></H1></P> <h2 align="center">The Form Tool for Win32Forth</h2><BR clear="LEFT"> <HR> Form Designer, as its name suggest, is a tool for designing forms in the IDE. It is based on the stand-alone ForthForm application. All the functionality of ForthForm is included in Form Designer. <BR><BR><BR>Follow the links below to learn more. <A NAME="Index"></A> <UL> <dl><dl><dl><dl><dl><dl><dd> <LI><A HREF="Overview.htm">Overview</A> <LI><A HREF="Creating a Form.htm">Creating and compiling a form</A> <LI><A HREF="Using Forms.htm">Using a compiled form</A> <LI><A HREF="Creating a Toolbar.htm">Creating and testing a toolbar</A> <LI><A HREF="Define a Menu.htm">Defining and compiling a menu</A> <LI><A HREF="Splitter Windows.htm">Generating a splitter window</A> <LI><A HREF="PropertyForm.htm">Generating a property sheet template</A></dd></dl></dl></dl></dl></dl></dl> </UL> </BODY> </HTML> --- NEW FILE: Overview.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title>Overview</title> </HEAD> <h1 align="center"><B>Overview</B></h1> The Form Designer window is displayed by clicking on the Form designer tab in the IDE TabWindow. <p><center><img src="FormDesignerTab.gif" width="240" height="621" alt="" align="absmiddle"></center> <p> The top window in the form designer tab contains the form toolbar. Many of the toolbar buttons are enabled or disabled depending on whether a form is opened and it contains any controls. However, hovering the mouse cursor over a button will pop up a tooltip identifying the function of the button.</p> <p>The bottom window contains two tabs. Clicking the "Status" tab displays information about the currently selected form and any control selected. It also displays a "monitor" window which allows the setting of the runtime position of a form on the display monitor.</p> <p>The "List of Forms" tab allows the viewing the names of all open forms. Clicking on the name of a form makes that form the active one and brings it to the foreground.</p> <p>The Forms Designer tab can be detached into a floating window. This is done by selecting the "Float Form Designer Window" option from the IDE Preferences dialog.</A> When detached, newly created forms will be positioned relative to the location of the detached window. Thus, if using dual monitors, created forms will be displayed on the same monitor as the Form Designer window.</P> <P><A HREF="FF-Creating a Form.htm">Creating and compiling a form</A></P> <P><A HREF="Forms Designer.htm#Index"><img src="ff-back.gif" align="absmiddle" border=0>Back to main page</A></P> </BODY> </HTML> --- NEW FILE: Code Window.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Untitled</title> </head> <body> <P><h1 align="center">Forms Code Window</h1></P><br><br> The Forms Code Window allow adding code at design time to a form. It can be opened from the right-click menu of a control or a form. Consider the below example.<br><br> <center><img src="Directory Demo.gif" alt="" border="0"></center><br><br> <center><img src="Forms Code Window.gif" alt="" border="0"></center><br><br> The top left pane of the Forms Code Window lists any open forms. The top right pane lists the controls of the selected form as well as three other items - Global Code, Private Code and On_InitFunction. Clicking any of these or a control will display any code entered for that item and allow editing said code.<br><br> Global Code - any code can be added here, e.g needed files, global variables or definitions etc. If any controls for a form are global any code added here will be inserted after the controls definitions, thereby allowing reference to the controls.<br><br> Private Code - Code that will be local to the form object. Again any code here will be inserted after controls are defined.<br><br> On_InitFunction - this is a colon definition into which any initialization code can be added. It is added after private code has been added. It is inserted as the last function in the On_Init: method of the form.<br><br> Controls - Code entered for a control will become part of a colon definition. This definition will have the name On_NameOfControl e.g in the example form above btnDelete will have a function name On_btnDelete. These functions are only created if code is entered for a control. Note that while code can be entered for all controls, not all controls code is added to the form. Currently only code for Pushbuttons, Radiobuttons,Checkboxes, Listboxes, ComboListboxes and Horizontal and Vertical Scroll bars added to a form. Any code added will then become part of a default Wm_Command-Func.<br><br> Please note that code for controls as well as the On_InitFunction become part of a colon definition. Be guided in your coding accordingly.<br><br> When a form is saved as a .ff file any code entered will be saved in a separate file under the same name but with "_code" added to the name e.g Dirbox.ff, Dirbox.ff_code. If opening a .ff file a code file is searched for in the smae directory as the form file. If found it is loaded, otherwise the form is loaded as if no code ever existed.<br><br> Refresh - updates the window with any added controls or forms. Typically, this is done automatically.<br><br> Save Code - saves any enter code. Normally any code added is saved automaticaly, but it is a good idea to save after editing.<br><br> Test - opens the Win32Forth console to test the form. A temporary file, not the .frm file, is created and loaded to allow for testing any code entered. Breakpoints can be set in the entered code to allow for debugging. While forms can also be tested from the IDE ( click test from the form toolbar or the form's right-click menu )it is a recommended that such forms, especially if significant code has been added, be tested from a fresh Win32Forth instance.<br><br> Close - close the Forms Code Window. The Code Window will also be closed when the last form is closed. </body> </html> --- NEW FILE: IDEMenus.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>IDE Menus</title> </head> <body> <P><h1 align="center">Menus</h1></P><br><br> <h2>File</h2> <pre> New File - create a new empty source text file Open File - open a new source text file Close File - close active file Save File - save active file, prompt for a name if not named Save File As - save active file under a different name Save All Files - save all modified files Open Highlighted File - attempt to open highlighted file Open HTML File - open html file for previewing as html New HTML Source File - create a new file with default html formatting Print - print active file Page Setup - set print parameters e.g margins, paper size etc. Exit - exit the IDE, same effect as Alt-F4 Recent Files List - recent text files that were opened </pre> <h2>Edit</h2> <pre> Undo - undo the last editing operation Redo - redo the last editing operation Cut - removes selected text and place it on the clipboard Copy - copy selected text to the clipboard Paste - paste text from clipboard into document at current location Delete - deletes selected text. Does NOT place it on the clipboard Line Cut - removes current line and places it on the clipboard Line Copy - copies current line to the clipboard Line Delete - deletes current line. Does NOT place it on the clipboard Line Transpose - swaps text on current line with that of the previous line Line Duplicate - inserts a copy of current line at current line position Select All - selects all text in current document Remove Selection - removes highlight from selected text. Search - opens a dialog to allow entering text to search for Search Next - search forward in document for previously entered text Search Previous - search backward in document for previously entered text Search & Replace - opens a dialog to allow entering text for both search and replacing Find Text In Files - opens a dialog to allow finding text in files Insert Date - inserts date at current location in document Insert Date & Time - inserts date and time at current location in document Block comment - allows a group of specified lines to be commented out. Block uncomment - removes a previous block comment from a group of specified lines. Lower Case - converts the highlighted text to lower case. Upper Case - converts the highlighted text to upper case. </pre> <h2>Project Menu</h2> <pre><b>New</b> - start a new project. <b>Open</b> - open a previously saved project. <b>Save</b> - save current project. A project is saved as a standard text file. <b>Save As</b> - save a copy of the project. <b>Rename</b> - rename current project i.e the root name. <b>Build</b> - build project. The build file would be the main file of the project. Scans the build file for needs, include and fload statements and add specified files. Recurses found files. Note that the build file is highlighted with a red icon in the project tree. <b>ReBuild</b> - Same as build except any files currently in the project are deleted first. <b>Set search path for build</b> - set the path to search for files with option to save to disk. <b>New Module</b> - creates a blank .f file, adds it to the module list and opens the file in the editor ready for editing. <b>Navigator</b> - <A HREF="Project Navigator.htm">Project Navigator</A> tracks code in a project. <b>Add files to project</b> - opens a dialog allowing single or multiple file selection. <b>Delete from project</b> - deletes highlighted file. <b>Add open Forms</b> - Add any saved open forms to the forms list. </pre> <h2>Form</h2> <pre> <b>New</b> - Create a new blank form of default size <b>Open</b> - Open a single or multiple forms <b>Edit Properties</b> - modify the properties of active form <b>Close Active Form</b> - close active form <b>Close all</b> - close all open forms <b>Save</b> - save active form (.ff file) <b>Save as</b> - save and allow changing the name of the active form <b>Save all modified</b> - save any changed forms <b>Merge open forms</b> - compile all open forms to a single text (.frm) file <b>Property form template</b> - opens a dialog to allow generating a property sheet like template. <b>Compile</b> - generate code to create form in a .frm file <b>Compile all</b> - compile all open forms to .frm files <b>Copy to clipboard</b> - compile form and copy code to the Windows clipboard <b>Test</b> - show how form will look at runtime <b>Create Toolbar</b> - opens a dialog to allow generating a toolbar <b>Splitter Window Templates</b> - assorted splitter window templates <b>Define menu</b> - opens a dialog to allow defining a menu </pre> <h2>DexH</h2> <pre> </pre> <h2>View</h2> <pre> Display Line Endings - shows the line ending characters which are usually not visible. Display White Space - shows spaces and tabs which are usually not visible. Display Line Numbers - shows numbers in the left hand margin to indicate how far down in the file the line is. Colorize Source - shows keywords and various other items of text in distinctive colors to allow for easy identification. Makes editing source code easier on the eyes and helps identify spelling errors. Browse - switches the display mode from simple text editing to hyperlinking. Right clicking words in a source file will jump to the definition of the word if it can be located. Preview as HTML - displays the current file as it would appear in a web browser. </pre> <h2>Options</h2> <pre> Line Endings - allows specifying the character or characters to be used to terminate lines based on the target operating system custom. Create Backup Files - specifies that the original files should be saved as backup files before changes are made. Remove trailing white space - Ensure final line ending - Save All Files Before Compile - writes any unsaved changes to the file system before performing the compilation process. This can prevent loss of changes if the machine crashes or hangs before the file could otherwise be saved. Always compile main project file - compile main project file if checked, else compile active document Set Tab Options - allows specifying how the Tab key should be handled. IDE Preferences - opens a dialog to allow setting personal preferences for the environment Show Status Bar - toggles display of the status bar at the bottom of the window. Show Toolbar - toggles display of the toolbar just below the menu. </pre> <h2>Tools</h2> <pre> </pre> <h2>Window</h2> <pre> Tile Horizontally - displays the windows the full width of the client area with each active window the same size vertically. Tile Vertically - displays the windows the full height of the client area with each active window the same size horizontally. Arrange - allows positioning the active windows. Cascade - overlaps the windows so that their title bars are visible and stepped for easy location. Close All - closes all open edit windows. </pre> <h2>Help</h2> <pre> Help For Highlighted ANS word - will open the ANS documentation to the section describing the selected ANS word. Win32Forth Documentation - opens the Win32Forth help in the default web browser. ANS Forth Standard - opens the ANS documentation in the default web browser. Win32Forth Project Group - opens the Win32Forth.org home page in the default web browser. Win32Forth Forum - opens the Win32Forth Yahoo discussion group home page in the default web browser. About - shows the customary credits and version numbers for the program </pre> </body> </html> --- NEW FILE: Splitter Windows.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Splitter Windows</title> </head> <body> <h1 align="center">Generating splitter windows</h1> <p>To generate a splliter window first select "Splitter window templates" from the tools menu. The following dialog will be displayed - <P align="center"><IMG SRC="SplitterDialog.gif" BORDER=0> <p>The image buttons indicate the type of template that will be generated when the button is clicked. Hovering the mouse cursor over a button also pops up a tooltip with a brief description. <p>The default action is to test a selected template. Other options are to copy the template code to the clipboard for pasting in other source code, and to edit the code using the form editor. If you want to save the source code to a file you can do so from the form editor. <P ALIGN=LEFT><A HREF="Form Designer.htm#Index"><img src="back.gif" align="absmiddle" border=0>Back to main page</A></P> </body> </html> --- NEW FILE: PropertyForm.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Property Sheet</title> </head> <body> <P><h1 align="center">Generating a Property Form</h1></P> <p> The Property Forms dialog allows the creation of a property sheet like template using all open forms.</p> <p align="center"><img src="PropertyFormDialog.gif" border="0"><br clear=0></p> <h2><b>Defining a Property Form</b></h2> <p><b>Name</b> - the name of the property form. If none is entered a default name will be provided.<br><br> <b>Caption</b> - The title of the property form.<br><br> <b>Add Default Buttons</b> - if checked code for three default buttons will be generated.<br><br> <b>Multi-line Tabs</b> - allow multiple rows of tabs if dialog is not wide enough.<br><br> <b>Button Tabs</b> - Tabs will display like buttons when selected.<br><br> <b>Compile Forms to Disk</b> - If checked, forms will be compiled to a separate file and then loaded. Note that if the file name needs to be changed it will require unchecking the option and doing a dummy test or edit. Subsequently reselecting the option will allow the choosing of the filename.<br><br> <b>Test</b> - compile and test using current selections.<br><br> <b>Edit</b> - Compile and display source code in editor.<br><br> <b>Clipboard</b> - compile and copy source code to the clipboard.<br><br> <b>Close</b> - close the property form dialog.<br> <hr> <p><A HREF="Form Designer.htm#Index"><img src="back.gif" align="absmiddle" border=0>Back to main page</A></p> </body> </html> --- NEW FILE: IDEToolbar.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Untitled</title> </head> <body> <P><h1 align="center">ToolBars</h1></P> The IDE rebar allows one-click access to many of the IDE functions. It consists of three parts, (1) The Editor toolbar, (2) The Project Manager toolbar and (3) a combobox that allows a file containing a source word to be opened at the point where the word is defined. <br><br> <img src="IDEToolbar.gif" alt="" border="0"><br><br> Note that by dragging on any of the three handles the order of the toolbars can be rearranged for the current session.<br><br> <h2>(1) Editor Toolbar</h2> If the main window is active ( click on its caption if not ) positioning the mouse cursor over a button pops up a tooltip identifying the button function. If no file is opened some buttons will be disabled.<br><br> <h2>(2) Project Manager Toolbar</h2> This toolbar allows a new project to be defined, the opening of an existing project as well as the compiling of a project, among other things. Like the Editor toolbar, hovering the mouse over a button will pop up a tooltip describing the function of that button.<br><br> <h2>(3) ComboBox</h2> The drop down combobox control located in a rebar control can be used to quickly view the source for a word. Simply type the word in the box an press enter. If valid, the file containing the source for the word will be open at the point where the word is defined. <P ALIGN=LEFT><A HREF="Win32ForthIDE.html#Index">Back to main page</A></P> </body> </html> --- NEW FILE: IDE.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Untitled</title> </head> <body> <h1 align="center">IDE Overview</h1> The IDE has a number of other features that the user might find helpful.<br><br> <b>"View Source For"</b> - typing a word in this textbox in the toolbar and pressing "Enter" will search open the source for word if it is defined and position the cursor on the line where it it defined. Handy for quick look-ups when you can't remember the syntax for a word.<br><br> <b>"Directory viewer"</b> from the TabWindow-<br><br> <center><img src="DirectoryTab.gif" alt="" border="0"></center><br><br> The directory window displays files matching a series of specifications. Right clicking in the window brings up a number of options including changing a folder, moving up a level and how the files are displayed. Select from the bottom combolist box which file filters to apply to the window. User defined specs can also be added by clicking the filter button at the top of the window and following the prompt. Hovering the mouse cursor over these buttons will help identify the function of these buttons. Note that user defined specs are not saved when the IDE session has ended. <br><br> The top combolistbox keeps a history of all paths viewed. Selecting a path from this list will return the viewer to that path and display its files.<br><br> Double-clicking on a file in the directory window will open that file in the IDE. Most image files as well as HTML files and text files will be viewed in native format. Binary files will be displayed in hex format. Control and double-clicking a .htm file will open it in the editor for editing.<br><br> <b>"Save Current Session/Reload Session"</b> - available from the "Options" menu.<br><br> The current project and any opened files and forms are saved in a default session file. When a session is reloaded the same files and project will be reopened . Source files will be returned to the point of editing that they were at. <br><br> <b>"IDE Preferences"</b> - from the "Options" menu.<br><br> Set various personal preferences for the environment. </body> </html> --- NEW FILE: Define a Menu.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Untitled</title> </head> <body> <h1 align="center">Defining A Menu</h1> <p> The menu definition dialog allows a menu to be defined. <p align="center"><img src="Define Menu Window.gif" alt="" border="0"> <p>The menu is display in a treeview structure, with the menu name as the root item. The example dialog displays the menu for ForthForm. Popups and submenus will have a + sign next to them. Click on + to expand the tree item. <p><b>MenuText</b> - the string text used for the menu strings as well as the menu name. <p><b>C Button</b> - clears both menuext and name text. <p><b>Name</b> - used to set and display the name for a Win32Forth :Menuitem. <p><b>Popup</b> - add a popup item to the menu. <p><b>Submenu</b> - add a submenu item to the menu. <p><b>MenuItem</b> - add a menuitem to the menu. To make a :MenuItem type the name in the Name textbox. <p><b>MenuSeparator</b> - add a menuseparator to the menu. <p> Note that the above options require the desired popup, submenu or menubar to be selected. <p><b>New</b> - prompts to erase all entries and create a default menu. <p><b>Delete</b> - Delete the selected menu item. The main menubar cannot be deleted. <p><b>Rename</b>- rename the selected item. Alternatively the double click an item to edit it. Press enter to save edited text. <p><b>Edit</b> - compile the menu in W32F format and edit in Formpad. <p><b>Clipboard</b> - compile the menu in W32F format and copy to the clipboard. <p><b>Save</b> - Save the menu as a menu definition file (.mdf). This a standard text file loadable from Win32Forth. It will always be saved in this format despite any future compiling extensions. <p><b>Load</b> - Load a menu from a menu definition file or read a W32F menu definition from a Forth file. <p><b>Test</b> - Test the defined menu. <p><b>Close</b> - Close the dialog window. <p><A HREF="Form Designer.htm#Index"><img src="back.gif" align="absmiddle" border=0>Back to main page</A></p> </body> </html> --- NEW FILE: Creating a Toolbar.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Creating A ToolBar</title> </head> <body> <h1 align="center">Creating A ToolBar</h1> <p>The toolbar dialog, the bitmap preview window and the toolbar bitmap preview window allow a toolbar to be defined and tested. <p align="center"><img src="Bitmap Preview Window.gif" width="600" height="62" alt="" border="0"> <img src="CreateToolbar Window.gif" width="598" height="454" alt="" border="0"><br clear=0> <img src="Toolbar Preview Window.gif" width="600" height="62" alt="" border="0"><br clear=0> <p>The bitmap preview window displays the selected bitmap at the default dimensions. The toolbar bitmap preview window simulates how the selected bitmaps will look in the toolbar when created. <h2><b>Defining a toolbar</b></h2> <p><b>Name</b> - the name of the toolbar. This is the minimum required to generate a toolbar. With a name specified and no bitmap image a default toolbar will be generated using one of the Win32 API toolbar bitmaps.<br><br> <b>Bitmap</b> - full path to the bitmap file that contains the toolbar images.<br><br> <b>Exclude path</b> - if checked bitmap file is referenced without the path component.<br><br> <b>Bitmap Info</b> - set the bitmap width and height.<br><br> <b>Button Info</b> - set the width and height of each toolbar button.<br><br> <b>Toolbar Options</b> - Check "Flat" if a flat toolbar is required, otherwise the toolbar will have raised buttons Use "Show Button text" if buttons will display text strings.<br><br> <b>Toolbar Styles</b> - These options should be self-explanatory or experiment to find out. Further information can be found in the source code file "Toolbar.f".<br><br> <b>ToolBar Button-</b> Used to change the style, state, description and other information for a single button.<br><br> Use "Add" to add an individual button to the toolbar, and then select the desired bitmap for this button by left clicking in the bitmap preview window. The default style and state for the button is "Button" and "Enabled". These can be changed by clicking the appropiate checkboxes.<br><br> If the "Auto Mode" option is selected a button will be automatically added when a bitmap in the bitmap preview window is clicked. The clicked bitmap becomes the default for the added button.<br><br> If it is desired to change the bitmap for a button simply manuever to the desired button (first,last,previous,next), ensure that "Auto Mode" is off and click the desired bitmap in the preview window.<br><br> <b>Move Up/Move Down</b>- Use these buttons to reposition a button in the toolbar.<br><br> <b>Delete</b>- Removes a button from the list. No confirmation is given.<br><br> <b>Description</b>- this can be the button name or description. It is used in the generation of button IDs for the toolbar. If none is provided a default will be added.<br><br> <b>Tooltip</b>- tooltip text for the button.<br><br> <b>Button Text</b>- optional button text. Note that "Show Button Text" should be enabled if text is to be displayed.<br><br> <b>Extra Button</b>- If this option is selected the button will not be displayed in the toolbar by default.<br><br> Note that if a button has the "Separator style" option selected no bitmap will be displayed for the button. In the Toolbar bitmap preview window a separator button is displayed as a white space.<br><br> <h2><b>Button Functions</b></h2> <p><b>New</b> - Start with a default toolbar and clear button list.<br><br> <b>Open</b> - Open a toolbar definition file (.tdf) with saved toolbar options.<br><br> <b>Save</b> - Save options to file.<br><br> <b>Test</b> - Compiles and displays a toolbar with the specified options. To modify and retest close the open toolbar window first.<br><br> <b>Source</b> - Display source code for the toolbar in the FormPad. From there it can be copied to the clipboard or saved to file.<br><br> <b>Refresh</b> - Updates button information display.<br><br> <b>Close</b> - close the "Define Toolbar" dialog. This will also close the Bitmap Preview Window.<br><br> <hr> <p><A HREF="Form Designer.htm#Index"><img src="back.gif" align="absmiddle" border=0>Back to main page</A></p> </body> </html> --- NEW FILE: Editor.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Editor</title> </head> <body> <h1 align="center">The IDE Editor</h1><br> The IDE Editor is a standard multiple document interface editor based on the <a href="http://www.scintilla.org"> Scintila edit control.</a><br><br> A lexer was written for the control which allows syntax highlighting for Forth source code.<br><br> A source file can be opened from the editor toolbar <img src="EditorToolbar.gif" alt="" border="0"> or from the <A HREF="IDEMenus.html">File Menu</A>. Hovering the mouse cursor over a button in the toolbar will popup a tooltip identifying the button function. Each source file will be opened in a separate window, and opened files can then be arranged or tiled to preference ( from the Window menu ).<br><br> The Editor supports tabbed editing i.e opened files can be displayed in tabs above the editing window. This option is selected from the preferences dialog and allows quick switching between open files. The Files tab in the TabWindow also allows switching between files.<br><br> <center><img src="FilesTab.gif" alt="" border="0"><br><br></center> The editor is very functional and allows easy editing of source code files as well as multi-source projects. The interface is similar to most typical Windows programs and should be mostly familiar to users who have used other editors. It is best learned by exploring and using but consider some highlights.<br><br> HTML source can quickly be previewed by pressing F10 or selecting from the "View" menu.<br><br> DexH Document Extracter - extract documentation from source code.<br><br> Search for text in files across folders.<br><br> Optional create backup file when saving.<br><br> </body> </html> --- NEW FILE: ProjectManager.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Project Manager </title> </head> <body> <h1 align="center">Project Manager</h1> Click on the Project Manager tab. The following is a screenshot of an opened project.<br><br> <center><img src="ProjectTab.gif" alt="" border="0"></center><br><br> The name of the opened project is displayed at the root of the project tree.<br><br> <p>Files for an application are divided into the six categories shown: modules, forms, dlls, resources, auxiliary files and docs. <br>Modules - Forth .f files <br>Forms - Form files, *.frm <br>DLLs - any Dlls needed <br>Resources - bitmap or icon files <br>Docs - .htm and .txt files. <br>Auxiliary - any other files</p> If any of categories contain files then clicking on that category name will expand the item and show its files. Clicking on a selected file will open it in the editor for editing or browsing.<br><br> The Project toolbar <img src="Project Toolbar.gif" alt="" border="0">and menu allow access to other Project Manager functions. For the toolbar hovering the mouse over a button will pop up a tooltip indicating the button's function.<br><br> <h2>Project Menu</h2> <pre><b>New</b> - start a new project. <b>Open</b> - open a previously saved project. The name of the opened project is displayed in the statusbar. <b>Save</b> - save current project. A project is saved as a standard text file. <b>Save As</b> - save a copy of the project. <b>Rename</b> - rename current project i.e the root name. <b>Build</b> - build project. The build file would be the main file of the project. Scans the build file for needs, include and fload statements and add specified files. Recurses found files. Note that the build file is highlighted with a red icon in the project tree. <b>ReBuild</b> - Same as build except any files currently in the project are deleted first. <b>Set search path for build</b> - set the path to search for files with option to save to disk. <b>New Module</b> - creates a blank .f file, adds it to the module list and opens the file in the editor ready for editing. <b>Navigator</b> - <A HREF="Project Navigator.htm">Project Navigator</A> tracks code in a project. <b>Add files to project</b> - opens a dialog allowing single or multiple file selection. <b>Delete from project</b> - deletes highlighted file. <b>Add open Forms</b> - Add any saved open forms to the forms list. </pre> <br>The path name for a selected file is not shown in the treeview, however the full pathname is stored in the project manager. Note too that even if more than one file references or includes the same file only one copy is saved in the tree.<br><br> <h3><b>Compiling a project</b></h3>If the option "Always compile main Project file" ( from the Options Menu ) is checked then the opened project will be compiled when "Compile" is selected form the menu or toolbar. If not checked then if the file in the active window is a source file it will be compiled. </body> </html> |
From: Ezra B. <ezr...@us...> - 2008-08-24 03:44:40
|
Update of /cvsroot/win32forth/win32forth/Help/html/IDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23086/Help/html/IDE Added Files: Creating a Form.htm Using Forms.htm Log Message: Beginning of docs for the IDE. EAB --- NEW FILE: Using Forms.htm --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title>Using Forms</title> </HEAD> <BODY LANG="en-US" DIR="LTR"> <P><H1 align="center">Using Compiled Forms</H1></p> <a name="top"></a> <p> Several files can possibly be loaded by a form - excontrols.f, bitmap.f, mdi.f, mdidialog.f, and folderview.f ExControls.f will be loaded if one or more controls are used in the form and Bitmap.f will be loaded if any bitmap buttons or static labels are used. Mdi.f and MdiDialog.f will be loaded if a form is set to compile as an MDI dialogwindow. Folderview.f is a directory browser loaded if a form has such a object. The paths for these files are already set but if your path is different then be sure to add it, as in <b>fpath+ yourdrive:\your\path</b>. <pre>Compiled forms can be used in an application in a number of ways - A form can be copied to the clipboard and then pasted into the program and modified. It can be compiled to disk and the .frm file modified with a text editor. Source file FormProperty.f is an example of this. One drawback to this and the previous method is that any future desired modification to the form wil prove difficult without erasing any modifications. As such, these two methods are best used when no future changes to the designed form is anticipated. The third method involves compiling the form to a .frm file and loading the form with the application. Controls would then be accessed directly or indirectly to achieve the intended purpose. An alternative method would be to use the loaded form object as the superclass for an additional form object. The Preferences.frm source file from ForthForm and the code that uses it is such an example of the former method. It is reproduce here for purposes of explanation. An example of the latter method is also given. <b> /* ********************** ForthForm Preferences **************** */ needs preferences.frm \ preferences dialog : ApplyPreferences ( -- ) IsButtonChecked?: chkFlatToolBar to FlatToolBar? IsButtonChecked?: chkButtonText to ButtonText? Close: TheControlToolBar TheMainWindow Start: TheControlToolBar false SaveRestore: TheControlToolBar \+ withbgnd ReDrawImage: TheMainWindow ; : pref-func { id obj -- } ( h m w l id obj -- h m w l ) id case IDOK of ApplyPreferences Close: obj endof IDCANCEL of Close: obj endof endcase ; : doPreferences ( -- ) ['] pref-func SetCommand: frmPreferences GetHandle: TheMainWindow SetParent: frmPreferences IDOK SetID: btnOk IDCANCEL SetID: btnCancel Start: frmPreferences FlatToolbar? Check: chkFlatToolBar ButtonText? Check: chkButtontext ; ' doPreferences is doPref /* ************************************************************** */ </b> Notes - "ApplyPreferences" is the routine that will update the application if the user clicks the 'Ok' button. - "pref-func" is the function that handles the form 'WM_COMMAND' message. Two parameters are of primary concern; 'id' which is the id of the control that was clicked and 'obj' which is the address of the form object. An application can use these two values to control various aspects of the displayed form. To set the message handler for the WM_COMMAND message use the method SetCommand: (formname) e.g ['] pref-func SetCommand: frmPreferences. Controls can be compiled as global whereby they will be referenced by name or they can be referenced by dot notation (not recommended however)e.g. IDOK SetID: frmPreferences.btnOk If the form is a modal form its parent can be set by the SetParentWindow: method e.g Gethandle: TheMainWindow SetParentWindow: frmPreferences. If it is not modal but a parent is set the form will simply behave as an owned window, its title not being displayed in the task bar. Method #3 fload test.frm \ load the form :Object MyForm Super frmTest \ use the form in test.frm as super class \ note the error in "Super" above. HTML would not permit the "less than" character \ all controls are automatically available without them being global \ you can change the window style :M WindowStyle: ( -- style ) WS_CAPTION ;M \ eliminate the Close [x] button for this form :M On_Init: ( -- ) \ modify the behaviour of some controls On_Init: Super \ initialize form false Enable: chkButton \ disable this one IDOK SetID: btnOk \ change this id \ and anything else you wish ;M \ the power is yours! ;Object Method #4<br> <A HREF="Code Window.htm">Add code at design time.</A><br><br> <h3>Control commands</h3> The controls directly supported by the Form Designer at this time include, Single and multi-selection listboxes Text and bitmap labels Single and multiline textboxes Text and bitmap buttons Checkboxes Radiobuttons Combo and combolist boxes Groupboxes Horizontal and vertical up/down controls Tab Controls A Directory Browser class Additional controls are available in the source file ExControls.f. In addition a generic control is provided to allow for any control not directly supported by Form Designer. Compiled forms will have the coordinates and dimensions of any such control added as values e.g A form having a generic control with the name "imgButton" will have the following values when compiled - 'x' value imgButtonX - x coordinate 'y' value imgButtonY - y coordinate 'w' value imgButtonW - width 'h' value imgButtonH - height The directory browser object is created by the FileWindow class. This object is capable of displaying files matching different specs for a directory as well as displaying the files and directories in ascending or descending order. The method "SetSpecs:" with an argument for e.g "*.f;*.htm;*.frm" (note each spec is separated by a ; ) sets the object to display files with matching extensions. Some other methods include - <b>ShowFiles:</b> ( flag -- ) display files if flag is true otherwise show directories only. <b>UpdateFiles:</b> ( -- ) update the file display, perhaps after changing the filespecs or the path. <b>IsOn_Update:</b> ( cfa -- ) the function at cfa will be executed after the file display. is updated. <b>SetPath:</b> ( addr cnt -- ) set the path for the the displaying of files. <b>SortAscending:, SortDescending:</b> change the display order of files and directories. Directories will always be displayed first. <b>#Dirs:, #Files:</b> return the number of directories or files respectively. For further information please browse the file FileLister.f. Following are some other control methods that may be useful in forms. <b>AddStyle:</b> ( style -- ) - add any additional style to a control before it is created. <b>Enable:</b>, <b>Disable:</b>, - self-explanatory <b>SetFont:</b> ( fonthndl -- ) - set the font for applicable controls <b>AddStringTo:</b> ( stringz -- ) - add asciiz string to listboxes and comboboxes <b>SetSelection:</b> ( n -- ) - set current selection for listboxes and comboboxes <b>Clear:</b> - erases contents of listboxes and comboboxes <b>Check:</b> ( flag -- ) - checks (true) or unchecks (false) a checkbox or radiobutton <b>IsButtonchecked?:</b> ( -- f ) - return state of radiobutton or checkbox <b>SetBitmap:</b> ( hbitmap -- ) - set image for a bitmap button <b>ToolString:</b> ( addr cnt -- ) - set the tooltip for a bitmap button N.B All controls are derive from the basic Win32Forth controls. As such any methods available for those controls can also be used. Please review the source files ExControls.f (and its component files), Control.f, Controls.f as well as Generic.f for a more exhaustive list of methods for the various controls. </pre> <hr> <A href="#top"><img src="top.gif" align="absmiddle" border=0>Top</a><p> <A HREF="Form Designer.htm#Index"><img src="back.gif" align="absmiddle" border=0>Back to main page</A></P> </BODY> </HTML> --- NEW FILE: Creating a Form.htm --- <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> </head> <body lang="en-US" dir="LTR"> <b><h2 align="center">Creating and Compiling a Form</h2></b> <p>Click on New form in the toolbar or select 'New' from the "Form" menu to create a form with default parameters. After a form is displayed click on the desired control in the toolbar. That control will appear pressed and remain pressed until another control is selected or the select button is clicked. Click at the location on the form where the control is to be placed and drag the mouse to create the control. Alternatively just click at desired location to create a control of default size. Additional controls of the same type can quickly be added by simply clicking on the form( if enabled from the Preferences dialog). <b>Note that if you need to select a group of controls or position any you may need to click the select button from the toolbar.</b> (If the mouse cursor changes to a hand when hovering over a control it indicates "select" mode - a control can be selected and/or moved - otherwise it is in "control" mode i.e the selected control will be added if the mouse is clicked)</p> <p>Below is an example of a new form with a single pushbutton control.</p> <p align="center"><img src="New Window.gif" border="0"><br clear="LEFT"> </p> <p>Click and drag controls ( make sure you are in "select" mode! ) to reposition them on the form. Click and drag on any of the four handles at the corner of the control to modify its size.</p> <img src="forthform.gif" align="LEFT" width="32" height="32" border="0"> The functions "Size sequential controls" , "Arrange sequential controls vertically" and "Arrange sequential controls horizontally" in the menus are very useful for quickly positioning controls.<br><br> Any group of controls can be selected and aligned or adjusted in size. Left click and drag on the form to select the desired controls, indicated by a dashed-line box ( controls are considered selected if their top left corner falls inside the box ). Right click anywhere on the form and select "Group Action" from the menu. Select desired operation from the "Group Action" dialog. Below is an example form with four label controls selected.<br> <p align="center"><img src="GroupExample.gif" alt="" border="0"><br clear="LEFT"></p> The dimensions of the selection box can be fine tuned by using the arrow keys (up, down, left, right). These keys increase the area of the selection box only. This can be useful in the instance where selected controls are moved outside the selection box. By adjusting the box these controls can once again be adjusted.<br><br> <p> The Group Action dialog is shown below. The designated function for each button should be self-explanatory. However, a word of explanation for the position/size adjustment. Set the value for the adjustment in the spinnercontrol, select from the radiobuttons which attribute to change, then click the appropiate arrow. The up/right arrows and the left/down arrows achieve identical results for size adjustments. <p align="center"><img src="GroupAction.gif" alt="" border="0"> <p>Right click on a control and select 'Properties' to modify its name, caption etc. <p align="center"><img src="Control Property Window.gif" border="0"><br clear="LEFT"></p> The Control Properties Window can remain open as you modify controls. However, before switching to another control you must 'Apply' the current control's properties to save any modifications. To close the property window click 'Close'.<br><br> The XPos, YPos, Width and Height parameters are in pixel units - no units, twips or dips! The Xpos and Ypos are relative to the top left corner of the form. Click the arrow to change the value of a property or alternatively enter a number directly in the control.<br><br> Tooltip - use primarily for bitmap buttons. Enter the text to be displayed when the mouse is hovering over the control.<br><br> ... Pushbutton - if enabled click to browse for a bitmap file.<br><br> Group - Begins or ends a group of controls. Used to group radiobuttons and checkboxes.<br><br> Global - If selected the control will be available accessible to the entire program, otherwise it is private to the form object.<br><br> Spinner - Valid only for textboxes. Converts the control to what is called a spinbutton.<br><br> Justification - select how text will be shown in control.<br><br> Previous and Next - Cycle through controls of a form.<br><br> <b>Font Selection</b> - To change the default font for a control right click on the desired control and select "Change Font" from the menu. Having selected a font its properties will be compiled to the form in a definition based on the control's name. If a font is needed for the form but not for a control then add a generic control and select the font for it. When the form is compiled the selected font will be available for general use.<br><br> <img src="forthform.gif" align="LEFT" width="32" height="32" border="0"> It is a good idea to choose names for the controls that will indicate the type of control. This will be useful especially if the controls are global: e.g<br> txtName - identifies this control as a text box<br> lblName - this a label<br> btnOk - a pushbutton control etc. <p>To modify a form's properties right click anywhere in the form and select 'Properties' from the menu. The following form will be displayed. <p align="center"><img src="Form Property Window.gif" border="0"><br clear="LEFT"> <br> <br> </p> <p>If 'Modal Form' is selected the form will behave like a modal dialog i.e. access to it's parent will be denied until the form is closed. Note that the parent window must be set for the form. Note too that a modal form will not return to its caller until it is closed.</p> <p>'Save screen location' allows a form to remember its last screen location when it is closed. When next displayed it will return to that saved location.</p> <p>If 'Status Bar' is checked the form will be compiled and shown with a status bar. <p> A form can be compiled as a default dialog window, a child window (useful for instance in tab controls) or as a multiple document interface (MDI) dialog window. Select the appropiate option before compiling. The option 'Initially Hidden' applies only to child windows, where a form will be invisible when it is first started. Methods are also compiled to allow hiding and unhiding the form. <p>Multiple forms can be created or open and edited simultaneously. If you are working on multiple forms saving a session ( from the Form Toolbar ) will allow you to resume where you stopped off.</p> <p>When a form is compiled to disk it will use the same name as the binary form file but with a .frm extension. If a form has been designed and compiled and will not need to be modified at a later time the corresponding binary .ff file can be deleted if desired.</p> <br> <p>To set the position of the compiled form on screen move the mini window in the Monitor window or alternatively set the position in the form property window .</p> <p>The status window in the Form Designer Tab window displays some properties of the currently selected control.</p> <center><img src="FormDesignerTab.gif" alt="" border="0"></center> <A HREF="Code Window.htm">Adding code to a form at design time</A> <hr> <p><A HREF="Form Designer.htm#Index"><img src="back.gif" align="absmiddle" border=0>Back to main page</A></p> </body> </html> |
From: Ezra B. <ezr...@us...> - 2008-08-24 03:37:15
|
Update of /cvsroot/win32forth/win32forth/Help/html/IDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20248/IDE Log Message: Directory /cvsroot/win32forth/win32forth/Help/html/IDE added to the repository |
From: George H. <geo...@us...> - 2008-08-23 19:13:38
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15923 Modified Files: fkernel.f Log Message: Corrected bug in (LOCAL) Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.52 retrieving revision 1.53 diff -C2 -d -r1.52 -r1.53 *** fkernel.f 21 Aug 2008 23:39:37 -0000 1.52 --- fkernel.f 23 Aug 2008 19:13:32 -0000 1.53 *************** *** 5290,5295 **** THEN ; ! : (LOCAL) ( addr cnt -- ) \ create name in LOCALS vocab ! ?comp -IF \ looks like std vocab header 1 +TO PARMS --- 5290,5294 ---- THEN ; ! |: <LOCAL> ( addr cnt -- ) -IF \ looks like std vocab header 1 +TO PARMS *************** *** 5305,5308 **** --- 5304,5318 ---- THEN ; + |: {LOCAL} ( addr cnt -- ) \ create name in LOCALS vocab + ?comp <LOCAL> ; + + : (LOCAL) ( addr cnt -- ) \ create name in LOCALS vocab + ?comp + PARMS 0= IF + LOCALS-INIT + FALSE TO LOCDIR \ reversed stack order + THEN <LOCAL> ; + + \ August 2nd, 1999 - 11:13 tjz \ modfied versin of a word suggested by Robert Smith, to get a word from the *************** *** 5332,5336 **** 2DUP S" \" STR= >R \ is it { [...] \ ... 2DUP S" |" STR= R> OR INVERT \ is it { [...] | ... ! IF (LOCAL) \ no, it's a local ELSE 2DROP 0 TO LOCFLG THEN \ onto uninited locals REPEAT --- 5342,5346 ---- 2DUP S" \" STR= >R \ is it { [...] \ ... 2DUP S" |" STR= R> OR INVERT \ is it { [...] | ... ! IF {LOCAL} \ no, it's a local ELSE 2DROP 0 TO LOCFLG THEN \ onto uninited locals REPEAT *************** *** 5345,5350 **** : LOCALS| ( -- ) \ ANS standard locals - LOCALS-INIT - FALSE TO LOCDIR \ reversed stack order BEGIN BLNEXTWORD 2DUP S" |" STR= INVERT --- 5355,5358 ---- |
From: George H. <geo...@us...> - 2008-08-22 21:12:27
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9791/src/lib Modified Files: task.f Log Message: Modified wait in demo to deal with messages. Deprecated task-sleep (equivalent to ANSI ms) Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** task.f 31 Oct 2007 18:51:39 -0000 1.15 --- task.f 22 Aug 2008 21:12:25 -0000 1.16 *************** *** 139,143 **** \ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended \ ** forever. ! call Sleep drop ; : (task-block) ( parm cfa-task addr -- len ) \ W32F Task --- 139,143 ---- \ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended \ ** forever. ! ms ; deprecated : (task-block) ( parm cfa-task addr -- len ) \ W32F Task |
From: George H. <geo...@us...> - 2008-08-22 21:12:27
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9791/demos Modified Files: taskdemo.f Log Message: Modified wait in demo to deal with messages. Deprecated task-sleep (equivalent to ANSI ms) Index: taskdemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** taskdemo.f 17 May 2005 22:25:25 -0000 1.3 --- taskdemo.f 22 Aug 2008 21:12:24 -0000 1.4 *************** *** 57,60 **** --- 57,64 ---- winerrmsg on + : WaitForMultipleObjects { ms wait array count -- res } \ Must deal with messages + begin QS_ALLINPUT ms wait array count call MsgWaitForMultipleObjects + dup WAIT_OBJECT_0 count + = while drop winpause repeat ; + 0 value taskwaits : wait-eachtask ( -- ) \ wait for each task *************** *** 64,68 **** while INFINITE false taskhndls \ wait for 1 or more tasks to end ! taskwaits call WaitForMultipleObjects \ wait on handles list dup WAIT_FAILED = if getlastwinerr then \ note the error WAIT_OBJECT_0 + --- 68,72 ---- while INFINITE false taskhndls \ wait for 1 or more tasks to end ! taskwaits WaitForMultipleObjects \ wait on handles list dup WAIT_FAILED = if getlastwinerr then \ note the error WAIT_OBJECT_0 + *************** *** 90,94 **** ; ! : demo1 cls ." Demo1: Creating free running tasks " --- 94,98 ---- ; ! : demo1 cls ." Demo1: Creating free running tasks " *************** *** 104,112 **** : t2-openfile ( addr len -- ) r/o open-file abort" File open error!" fhndl ! ; ! : my-task2 { speed -- } console-lock lock tcb @ task>id @ ." Task" . ." is running with a delay of" ! speed . cr console-lock unlock s" src\lib\task.f" Prepend<home>\ t2-openfile --- 108,116 ---- : t2-openfile ( addr len -- ) r/o open-file abort" File open error!" fhndl ! ; ! : my-task2 { speed -- } console-lock lock tcb @ task>id @ ." Task" . ." is running with a delay of" ! speed . cr console-lock unlock s" src\lib\task.f" Prepend<home>\ t2-openfile *************** *** 122,126 **** repeat fhndl @ close-file ; ! 0 value task-slow 0 value task-fast --- 126,130 ---- repeat fhndl @ close-file ; ! 0 value task-slow 0 value task-fast |
From: George H. <geo...@us...> - 2008-08-21 23:39:42
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27125/Help/hdb Modified Files: Help.cfg Log Message: Minor tweeks Index: Help.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Help.cfg 15 May 2008 05:47:47 -0000 1.1 --- Help.cfg 21 Aug 2008 23:39:37 -0000 1.2 *************** *** 1,8 **** [WindowX] -2 ! [WindowY] 8 ! [WindowW] 976 ! [WindowH] 532 ! [SplitterV] 231 [SplitterH] 112 - \ No newline at end of file --- 1,7 ---- [WindowX] -2 ! [WindowY] -2 ! [WindowW] 1019 ! [WindowH] 708 ! [SplitterV] 133 [SplitterH] 112 \ No newline at end of file |
From: George H. <geo...@us...> - 2008-08-21 23:39:42
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27125/src/kernel Modified Files: fkernel.f Log Message: Minor tweeks Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.51 retrieving revision 1.52 diff -C2 -d -r1.51 -r1.52 *** fkernel.f 19 Aug 2008 12:45:46 -0000 1.51 --- fkernel.f 21 Aug 2008 23:39:37 -0000 1.52 *************** *** 4270,4276 **** \ -------------------- Structured Conditionals ------------------------------ ! : ?PAIRS ( n1 n2 -- ) XOR THROW_MISMATCH ?THROW ; ! \ in-system : ?EXEC STATE @ THROW_INTERPONLY ?THROW ; --- 4270,4278 ---- \ -------------------- Structured Conditionals ------------------------------ ! in-application ! : ?PAIRS ( n1 n2 -- ) XOR THROW_MISMATCH ?THROW ; \ Sometimes used in applications. ! ! in-system : ?EXEC STATE @ THROW_INTERPONLY ?THROW ; |
From: George H. <geo...@us...> - 2008-08-21 23:39:41
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27125 Modified Files: fkernel.exe Log Message: Minor tweeks Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.48 retrieving revision 1.49 diff -C2 -d -r1.48 -r1.49 Binary files /tmp/cvspU7iiQ and /tmp/cvse7RWXC differ |
From: George H. <geo...@us...> - 2008-08-21 23:39:41
|
Update of /cvsroot/win32forth/win32forth/demos/AccelDemo In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27125/demos/AccelDemo Modified Files: Accel.f Log Message: Minor tweeks Index: Accel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/Accel.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Accel.f 20 Aug 2008 00:20:54 -0000 1.4 --- Accel.f 21 Aug 2008 23:39:37 -0000 1.5 *************** *** 171,178 **** ACCEL-HNDL pMsg @ \ get the message's HWND ! Call TranslateAccelerator 0= ! if pMsg Call TranslateMessage drop ! pMsg Call DispatchMessage drop ! then pMsg flag ; --- 171,178 ---- ACCEL-HNDL pMsg @ \ get the message's HWND ! Call TranslateAccelerator 0= to flag ! \ if pMsg Call TranslateMessage drop ! \ pMsg Call DispatchMessage drop ! \ then pMsg flag ; |
From: Jos v.d.V. <jo...@us...> - 2008-08-20 09:51:25
|
Update of /cvsroot/win32forth/win32forth/Help In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23528 Modified Files: HelpCreateDexhDocs.f Log Message: Jos: Now the line with noconsole.f is gone (sorry) Index: HelpCreateDexhDocs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpCreateDexhDocs.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** HelpCreateDexhDocs.f 20 Aug 2008 09:31:59 -0000 1.6 --- HelpCreateDexhDocs.f 20 Aug 2008 09:51:22 -0000 1.7 *************** *** 116,120 **** s" src\Classdbg.f" s" help\html\dexh-Classdbg.htm" create-doc s" src\float.f" s" help\html\dexh-float.htm" create-doc - \ s" src\console\NoConsole.f" s" help\html\dexh-NoConsole.htm" create-doc s" src\Callback.f" s" help\html\dexh-Callback.htm" create-doc s" src\paths.f" s" help\html\dexh-paths.htm" create-doc --- 116,119 ---- |
From: Jos v.d.V. <jo...@us...> - 2008-08-20 09:34:09
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16377 Modified Files: Primutil.f Log Message: Jos: Moved MESSAGELOOP and WINPAUSE to the application space since they are used in a number of turnkeys. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** Primutil.f 20 Aug 2008 06:13:19 -0000 1.32 --- Primutil.f 20 Aug 2008 09:34:03 -0000 1.33 *************** *** 740,758 **** WinLibrary USER32.DLL - in-system - - \ April 23rd, 1999 - 14:05 tjz - \ not updated like WINCON-NUMBER? to succeed on ANSI versions, because - \ this only needs to detect WM_ constants for OOP. - - : IsWinConstant ( str -- str FALSE | val TRUE ) - { \ WinVal -- } - &of WinVal over - count swap Call wcFindWin32Constant - -if 2drop - WinVal TRUE - then ; - - \ ------------------ HandleMessages MessageLoop & WINPAUSE ------------------ --- 740,743 ---- *************** *** 792,795 **** --- 777,793 ---- ; + in-system + + \ April 23rd, 1999 - 14:05 tjz + \ not updated like WINCON-NUMBER? to succeed on ANSI versions, because + \ this only needs to detect WM_ constants for OOP. + + : IsWinConstant ( str -- str FALSE | val TRUE ) + { \ WinVal -- } + &of WinVal over + count swap Call wcFindWin32Constant + -if 2drop + WinVal TRUE + then ; |
From: Jos v.d.V. <jo...@us...> - 2008-08-20 09:32:04
|
Update of /cvsroot/win32forth/win32forth/Help In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15543 Modified Files: HelpCreateDexhDocs.f Log Message: Jos: Removed src\console\NoConsole.f Index: HelpCreateDexhDocs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpCreateDexhDocs.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** HelpCreateDexhDocs.f 13 Aug 2008 22:05:24 -0000 1.5 --- HelpCreateDexhDocs.f 20 Aug 2008 09:31:59 -0000 1.6 *************** *** 116,120 **** s" src\Classdbg.f" s" help\html\dexh-Classdbg.htm" create-doc s" src\float.f" s" help\html\dexh-float.htm" create-doc ! s" src\console\NoConsole.f" s" help\html\dexh-NoConsole.htm" create-doc s" src\Callback.f" s" help\html\dexh-Callback.htm" create-doc s" src\paths.f" s" help\html\dexh-paths.htm" create-doc --- 116,120 ---- s" src\Classdbg.f" s" help\html\dexh-Classdbg.htm" create-doc s" src\float.f" s" help\html\dexh-float.htm" create-doc ! \ s" src\console\NoConsole.f" s" help\html\dexh-NoConsole.htm" create-doc s" src\Callback.f" s" help\html\dexh-Callback.htm" create-doc s" src\paths.f" s" help\html\dexh-paths.htm" create-doc |
From: Jos v.d.V. <jo...@us...> - 2008-08-20 09:31:12
|
Update of /cvsroot/win32forth/win32forth/demos/MiniDB In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15144 Modified Files: MiniDB.f Log Message: Jos: Updated for the new console. Note: the turnkey application is not right. Index: MiniDB.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MiniDB/MiniDB.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MiniDB.f 7 Dec 2007 20:40:17 -0000 1.1 --- MiniDB.f 20 Aug 2008 09:31:06 -0000 1.2 *************** *** 4,8 **** Needs ListView.f - Needs NoConsole.f Needs Resources.f Require startdb.f --- 4,7 ---- *************** *** 163,167 **** turnkey? [if] - NoConsoleIO NoConsoleInImage ' main turnkey ListViewDemo.exe s" WIN32FOR.ICO" s" ListViewDemo.exe" AddAppIcon --- 162,165 ---- |
From: Rod O. <rod...@us...> - 2008-08-19 12:48:38
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17747 Modified Files: Console1.f Console2.f ConsoleMenu.f NewConsole.f Log Message: Rod: removed some unnecessary deferred I/O words for the new console Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** NewConsole.f 18 Aug 2008 21:19:48 -0000 1.22 --- NewConsole.f 19 Aug 2008 12:48:34 -0000 1.23 *************** *** 269,277 **** EndPrompt: cmd ; ! \ required for debug ' c_key? is x_key? ' c_key is x_key ! : c_Init-Console ( -- f ) \ start the Console window hidden or show console if already started \ progreg-init --- 269,277 ---- EndPrompt: cmd ; ! (( \ required for debug ' c_key? is x_key? ' c_key is x_key ! )) : c_Init-Console ( -- f ) \ start the Console window hidden or show console if already started \ progreg-init *************** *** 320,324 **** : NewConsole ( -- ) \ reset all defered words for the console window ! ['] NOOP IS INIT-CONSOLE-REG \ no ['] c_Init-Console IS INIT-CONSOLE ['] c_INIT-SCREEN IS INIT-SCREEN --- 320,324 ---- : NewConsole ( -- ) \ reset all defered words for the console window ! \ ['] NOOP IS INIT-CONSOLE-REG \ no ['] c_Init-Console IS INIT-CONSOLE ['] c_INIT-SCREEN IS INIT-SCREEN *************** *** 328,332 **** ['] c_pushkey IS PUSHKEY ['] c_"pushkeys IS "PUSHKEYS - \ ['] K_NOOP1 IS SHIFTMASK \ defined in Console.f - needed ['] X_SHIFTMASK IS SHIFTMASK ['] c_cls IS CLS --- 328,331 ---- *************** *** 335,359 **** ['] c_cr IS CR ['] c_?cr IS ?CR ! ['] NOOP IS CONSOLE \ no ( NewConsole ) ['] c_gotoxy IS GOTOXY ['] c_getxy IS GETXY ['] c_getcolrow IS GETCOLROW ! ['] K_NOOP1 IS SIZESTATE \ no ( ConsoleWindow.WindowState ) ! ['] 4DROP IS MARKCONSOLE \ no ( 2swap swap GoToXY:cmd swap Select: cmd ) ! ['] NOOP IS CURSORINVIEW \ no ( does nothing ??? AutoScroll: cmd ) ['] c_FGBG! IS FGBG! \ using foreground/background color_objects ['] c_FG@ IS FG@ ['] c_BG@ IS BG@ ['] c_CharWH IS CHARWH \ ( cmd.HorzLine cmd.VertLine ) ! ['] 2DROP IS SETCHARWH \ no ( change the font ) ! ['] 2DROP IS SETCOLROW \ no ( resize ConsoleWindow ) ! ['] DROP IS SET-CURSOR \ no big-cursor, norm-cursor ??? ! ['] K_NOOP1 IS GET-CURSOR \ no ! ['] DROP IS SETROWOFF \ no ! ['] K_NOOP1 IS GETROWOFF \ no ! ['] K_NOOP2 IS GETMAXCOLROW \ max console size - see wrapper??? ! ['] 2DROP IS SETMAXCOLROW \ check wrapper??? ! ['] c_&TheScreen IS &THE-SCREEN \ #print-screen in dc.f will not work ! \ keysave not working ['] NewConHndl IS conHndl ['] c_copy-console IS copy-console --- 334,357 ---- ['] c_cr IS CR ['] c_?cr IS ?CR ! ['] NOOP IS CONSOLE \ no ( NewConsole ) ['] c_gotoxy IS GOTOXY ['] c_getxy IS GETXY ['] c_getcolrow IS GETCOLROW ! \ ['] K_NOOP1 IS SIZESTATE \ no ( ConsoleWindow.WindowState ) ! \ ['] 4DROP IS MARKCONSOLE \ no ( 2swap swap GoToXY:cmd swap Select: cmd ) ! \ ['] NOOP IS CURSORINVIEW \ no ( does nothing ??? AutoScroll: cmd ) ['] c_FGBG! IS FGBG! \ using foreground/background color_objects ['] c_FG@ IS FG@ ['] c_BG@ IS BG@ ['] c_CharWH IS CHARWH \ ( cmd.HorzLine cmd.VertLine ) ! \ ['] 2DROP IS SETCHARWH \ no ( change the font ) ! \ ['] 2DROP IS SETCOLROW \ no ( resize ConsoleWindow ) ! \ ['] DROP IS SET-CURSOR \ no big-cursor, norm-cursor ??? ! \ ['] K_NOOP1 IS GET-CURSOR \ no ! \ ['] DROP IS SETROWOFF \ no ! \ ['] K_NOOP1 IS GETROWOFF \ no ! \ ['] K_NOOP2 IS GETMAXCOLROW \ max console size - see wrapper??? ! \ ['] 2DROP IS SETMAXCOLROW \ check wrapper??? ! ['] c_&TheScreen IS &THE-SCREEN \ #print-screen in dc.f will not work **************** ['] NewConHndl IS conHndl ['] c_copy-console IS copy-console *************** *** 368,372 **** 'W' +k_control of open-web endof 'L' +k_control of load-forth endof ! 'P' +k_control of print-screen endof 'D' +k_control of ChdirDlg endof [DEFINED] replay-macro [IF] --- 366,370 ---- 'W' +k_control of open-web endof 'L' +k_control of load-forth endof ! \ 'P' +k_control of print-screen endof 'D' +k_control of ChdirDlg endof [DEFINED] replay-macro [IF] Index: ConsoleMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleMenu.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** ConsoleMenu.f 19 Aug 2008 03:55:24 -0000 1.16 --- ConsoleMenu.f 19 Aug 2008 12:48:34 -0000 1.17 *************** *** 105,163 **** if 0 0 ExecIDE drop then ; - (( - ledit-chain chain-add ?f1-help \ help key recognition - - : ?macro-keys ( chad flag -- char flag ) - dup ?exit - over [ 'S' +k_control +k_shift ] literal = - if 0= start/stop-macro EXIT then - over [ 'M' +k_control +k_shift ] literal = - if 0= replay-macro EXIT then - over [ 'R' +k_control +k_shift ] literal = - if 0= CONHNDL repeat-amacro EXIT then - over [ 'O' +k_control ] literal = - if 0= edit-forth EXIT then - over [ 'W' +k_control ] literal = - if 0= open-web EXIT then - over [ K_F12 ] literal = - \in-system-ok if 0= 2>r >r LoadProject r> 2r> EXIT then - over [ 'L' +k_control ] literal = - if 0= load-forth EXIT then - over [ 'P' +k_control ] literal = - if 0= print-screen EXIT then - over [ 'X' +k_control ] literal = - if 0= cut-console - [DEFINED] ledit-y - [IF] getxy nip to ledit-y - [THEN] EXIT then - over [ 'A' +k_control ] literal = - if 0= mark-all EXIT then - over [ 'C' +k_control ] literal = - if 0= copy-console EXIT then - over [ 'V' +k_control ] literal = - if 0= paste-load EXIT then - turnkeyed? ?exit - over [ 'D' +k_control ] literal = - if 0= ChdirDlg EXIT then - ; - - ledit-chain chain-add ?macro-keys \ add macro key recognition - )) - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - \ INTERNAL \ internal definitions start here - \ - \ |Class MENUCONSOLE <Super MENUITEM \ Only for use with the console window - \ - \ :M DoMenu: ( IDM -- ) - \ mid = - \ if mfunc execute-menufunc - \ cr - \ [DEFINED] ledit-y [IF] getxy to ledit-y to ledit-x \ move lineeditor down - \ [THEN] then ;M - \ - \ ;Class - EXTERNAL --- 105,108 ---- *************** *** 165,169 **** \ Note: If you add a new menu entry with a shortcut, you must add ! \ add the handling of the shortcut to ?MACRO-KEYS !!! POPUP "&File" --- 110,114 ---- \ Note: If you add a new menu entry with a shortcut, you must add ! \ add the handling of the shortcut to HandleKeys in NewConsole.f !!! POPUP "&File" *************** *** 202,207 **** MENUITEM "Pages Up Setup..." page-up-setup ; MENUITEM "&Print Forth File..." print-forth ; ! MENUITEM "Print Forth Console Window...\tCtrl+P" print-screen ; ! MENUITEM "Print Forth Console Buffer..." print-console ; MENUSEPARATOR MENUCONSOLE "E&xit Win32Forth \tBYE" bye ; --- 147,152 ---- MENUITEM "Pages Up Setup..." page-up-setup ; MENUITEM "&Print Forth File..." print-forth ; ! \ MENUITEM "Print Forth Console Window...\tCtrl+P" print-screen ; ! \ MENUITEM "Print Forth Console Buffer..." print-console ; MENUSEPARATOR MENUCONSOLE "E&xit Win32Forth \tBYE" bye ; *************** *** 220,224 **** MENULINE "Operating System Version \t.PLATFORM" ".PLATFORM" MENULINE "Console Current Size \tGetColRow . ." "GetColRow . ." ! MENULINE "Console Maximum Size \tGetMaxColRow . ." "GetMaxColRow . ." MENULINE "Return Stack Contents \t.RSTACK" ".RSTACK" MENULINE "Memory Used and Available \t.FREE" ".FREE" --- 165,169 ---- MENULINE "Operating System Version \t.PLATFORM" ".PLATFORM" MENULINE "Console Current Size \tGetColRow . ." "GetColRow . ." ! \ MENULINE "Console Maximum Size \tGetMaxColRow . ." "GetMaxColRow . ." MENULINE "Return Stack Contents \t.RSTACK" ".RSTACK" MENULINE "Memory Used and Available \t.FREE" ".FREE" *************** *** 306,335 **** INTERNAL \ more internal definitions - (( - : menukey ( -- c1 ) \ keyboard/event handler for console menus - cursorinview - BEGIN _mkey - dup menu_mask and - WHILE havemenu? - IF 0xFFFF and - dup DoMenu: console-menu - dup DoMenu: console-popup - THEN drop - REPEAT menukey-more ; - - : menu-forth-io ( -- ) - ['] menukey is key ; - - FORTH-IO-CHAIN CHAIN-ADD MENU-FORTH-IO - - menu-forth-io - )) - (( - : RightMouseClick ( -- ) \ Handle a right mouse click - mouseflags 3 and 2 <> ?EXIT \ exit if not right mouse clicked - mousex mousey conhndl Track: console-popup ; - - MOUSE-CHAIN CHAIN-ADD RightMouseClick - )) : Start-console-menu { \ mlink -- } \ startup the console's menubar --- 251,254 ---- *************** *** 348,355 **** conhndl loadmenu: console-popup ; - \ INITIALIZATION-CHAIN CHAIN-ADD START-CONSOLE-MENU - - \ Start-console-menu - EXTERNAL --- 267,270 ---- Index: Console1.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/Console1.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Console1.f 19 Aug 2008 03:55:24 -0000 1.2 --- Console1.f 19 Aug 2008 12:48:34 -0000 1.3 *************** *** 150,154 **** synonym tabbing-on tabing-on ! : x_CRTAB ( -- ) cr \ [cdo] because w32fconsole.dll was removed \ have to check if there is still recursive call problems --- 150,154 ---- synonym tabbing-on tabing-on ! : CRTAB ( -- ) cr \ [cdo] because w32fconsole.dll was removed \ have to check if there is still recursive call problems *************** *** 162,167 **** then ; - DEFER CRTAB ' x_CRTAB IS CRTAB - : ?LINE ( n1 -- ) 0 max getxy drop + wrap? --- 162,165 ---- *************** *** 169,202 **** then ; ! (( \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Additional words for the console \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - WINLIBRARY W32FCONSOLE.DLL - 1 PROC k_fpushkey - 2 PROC c_setfgbg - 0 PROC c_getfg - 0 PROC c_getbg - 0 PROC c_thescreen - 0 PROC c_charwh - 2 PROC c_setcharwh - 2 PROC c_resize - 1 PROC c_setcursorheight - 0 PROC c_getcursorheight - 1 PROC c_wscroll - 0 PROC c_rowoffset - 0 PROC c_maxcolrow - 2 PROC c_setmaxcolrow - 1 PROC c_setfont - - : x_pushkey ( c1 -- ) \ push c1 into the keyboard input stream - Call k_fpushkey drop ; - - : x_"pushkeys ( a1 n1 -- ) \ push the characters of string a1,n1 - 0max 127 min bounds - ?do i c@ x_pushkey - loop ; - )) 1 PROC GetKeyState : x_shiftmask ( -- mask ) --- 167,175 ---- then ; ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Additional words for the console \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 1 PROC GetKeyState : x_shiftmask ( -- mask ) *************** *** 213,266 **** : ?control ( -- f1 ) \ return true if control is down shiftmask control_mask and 0<> ; - (( - : x_cursorinview ( -- ) \ make sure cursor is visible in the window - ; - - : x_fgbg! ( forground background -- ) - Call c_setfgbg drop ; - - : x_fg@ ( -- foreground ) - Call c_getfg ; - - : x_bg@ ( -- background ) - Call c_getbg ; - - : x_&the-screen ( -- a1 ) \ get the forth relative address of the users - \ console screen memory buffer - Call c_thescreen ; - - : x_charWH ( -- width height ) \ get the width and height of the - \ current console font - Call c_charwh word-split swap ; - - 3 PROC InvalidateRect - : ConsoleRepaint ( -- ) \ redraw console window - 1 0 _conHndl call InvalidateRect drop ; - - : x_SetcharWH ( width height -- ) \ set the width and height of the - Call c_setcharwh drop \ current console font - ConsoleRepaint ; \ force repaint - - : x_setcolrow ( cols rows -- ) \ set the console size - Call c_resize drop ; - - : SetConsoleFont ( hFont -- ) \ set the console font. If hFont is NULL the - \ default font will be set. - call c_setfont drop - ConsoleRepaint ; \ force repaint - - \ Usage of SetConsoleFont: - \ - \ Font cFont - \ 16 Height: cFont - \ 8 Width: cFont - \ s" Courier New" SetFaceName: cFont - \ FW_NORMAL Weight: cFont - \ Create: cFont - \ Handle: cFont SetConsoleFont - \ zHandle: cFont \ don't let Win32Forth destroy the font; the console does it !!! - - )) - synonym set-consize setcolrow 4 PROC SetWindowPos --- 186,189 ---- *************** *** 268,294 **** 2>r ( SWP_NOSIZE ) 1 0 0 2r> ( HWND_TOP ) 0 _conHndl call SetWindowPos drop ; - (( - 1 PROC SetCursor - 2 PROC LoadCursor - : set-pointer ( pointer-identifier -- ) \ set the pointer shape - 0 call LoadCursor call SetCursor drop ; - )) - (( - : x_set-cursor ( cursor-height -- ) \ set the cursor height - Call c_setcursorheight drop ; - - : x_get-cursor ( -- cursor-height ) \ get the cursor height - Call c_getcursorheight ; - - \ Note: The cursor hight is used by the Line Editor (in Lineedit.f) to - \ show the current insert/overstrike mode. So a direct call to - \ set-cursor, big-cursor or norm-cursor doesn't show any efect at all. - : big-cursor ( -- ) \ set a block cursor - charWH nip set-cursor ; - 2 value norm-height \ hold the norm cursor height - : norm-cursor ( -- ) \ set a normal cursor - norm-height set-cursor ; - )) 0 value havemenu? : havemenu! ( flag -- ) --- 191,195 ---- *************** *** 299,304 **** _conHndl call GetDC ; ! 0 value saveconx ! 0 value savecony 2 PROC ShowWindow --- 200,205 ---- _conHndl call GetDC ; ! \ 0 value saveconx ! \ 0 value savecony 2 PROC ShowWindow *************** *** 307,320 **** : hide-console ( -- ) ! saveconx ?exit ! getcolrow to savecony to saveconx ( SW_HIDE ) 0 show-window ; : unhide-console ( -- ) ! saveconx 0= ?exit ( SW_SHOW ) 5 show-window ! saveconx savecony setcolrow \ resize to original size ! 0 to saveconx ! 0 to savecony ; synonym show-console unhide-console --- 208,222 ---- : hide-console ( -- ) ! \ saveconx ?exit ! \ getcolrow to savecony to saveconx ( SW_HIDE ) 0 show-window ; : unhide-console ( -- ) ! \ saveconx 0= ?exit ( SW_SHOW ) 5 show-window ! \ saveconx savecony setcolrow \ resize to original size ! \ 0 to saveconx ! \ 0 to savecony ! ; synonym show-console unhide-console *************** *** 326,363 **** : focus-console ( -- ) _conHndl call SetFocus drop ; - (( - : x_setrowoff ( n1 -- ) \ set the console row offset - Call c_wscroll drop ; - - : x_getrowoff ( -- n1 ) \ get the current console row offset - Call c_rowoffset ; - - : x_getmaxcolrow ( -- maxcols maxrows ) \ get maximum window columns - Call c_maxcolrow word-split ; - - : x_setmaxcolrow ( maxcols maxrows -- ) \ set the saved screen area and clear - 16384 min 20 max swap \ clip rows - 256 min 26 max \ clip columns - Call c_setmaxcolrow drop ; - ' X_CURSORINVIEW IS CURSORINVIEW - ' X_FGBG! IS FGBG! - ' X_FG@ IS FG@ - ' X_BG@ IS BG@ - ' X_PUSHKEY IS PUSHKEY - ' X_"PUSHKEYS IS "PUSHKEYS - ' X_&THE-SCREEN IS &THE-SCREEN - ' X_CHARWH IS CHARWH - ' X_SETCHARWH IS SETCHARWH - ' X_SHIFTMASK IS SHIFTMASK - ' X_SETCOLROW IS SETCOLROW - ' X_SET-CURSOR IS SET-CURSOR - ' X_GET-CURSOR IS GET-CURSOR - ' X_SETROWOFF IS SETROWOFF - ' X_GETROWOFF IS GETROWOFF - ' X_GETMAXCOLROW IS GETMAXCOLROW - ' X_SETMAXCOLROW IS SETMAXCOLROW - )) \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Facility extension words --- 228,233 ---- Index: Console2.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/Console2.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Console2.f 19 Aug 2008 03:55:24 -0000 1.10 --- Console2.f 19 Aug 2008 12:48:34 -0000 1.11 *************** *** 3,14 **** cr .( Loading... Console I/O Part 2) ! : forth-io ; ! : _mkey key ; ! \ required for debug ! warning @ ! warning off ! defer x_key ! defer x_key? ! warning ! 1 proc HideCaret --- 3,7 ---- cr .( Loading... Console I/O Part 2) ! : forth-io ; \ ******* need to look at printing the console in dc.f ********** 1 proc HideCaret *************** *** 108,114 **** defer auto_key? ' noop is auto_key? \ default to nothing - : marked? ( -- f1 ) \ return TRUE if any text is marked - false ; - defer menukey-more ' noop is menukey-more --- 101,104 ---- |
From: Rod O. <rod...@us...> - 2008-08-19 12:47:56
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17341 Modified Files: Dc.f Debug.f Primutil.f REGISTRY.F Log Message: Rod: removed some unnecessary deferred I/O words for the new console Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** Primutil.f 18 Aug 2008 10:59:55 -0000 1.30 --- Primutil.f 19 Aug 2008 12:47:52 -0000 1.31 *************** *** 627,631 **** new-chain unload-chain \ chain of things to de-initialize new-chain forth-io-chain \ chain of things to to to restore forth-io ! new-chain ledit-chain \ line editor function key chain new-chain reset-stack-chain \ chain for stack reset --- 627,631 ---- new-chain unload-chain \ chain of things to de-initialize new-chain forth-io-chain \ chain of things to to to restore forth-io ! \ new-chain ledit-chain \ line editor function key chain new-chain reset-stack-chain \ chain for stack reset Index: Dc.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** Dc.f 20 Apr 2008 13:46:22 -0000 1.15 --- Dc.f 19 Aug 2008 12:47:52 -0000 1.16 *************** *** 1427,1431 **** : 4print ( -- ) four-page fprint single-page ; ! 80 value MAXCONCOLS 80 value conscols --- 1427,1431 ---- : 4print ( -- ) four-page fprint single-page ; ! (( 80 value MAXCONCOLS 80 value conscols *************** *** 1464,1468 **** 0 getrowoff rows + #print-screen ; ! INTERNAL --- 1464,1468 ---- 0 getrowoff rows + #print-screen ; ! )) INTERNAL Index: Debug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** Debug.f 19 Aug 2008 03:55:24 -0000 1.18 --- Debug.f 19 Aug 2008 12:47:52 -0000 1.19 *************** *** 492,497 **** normal-console forth-io ! ['] x_key is key ! ['] x_key? is key? 16 to left-margin -16 to indent --- 492,497 ---- normal-console forth-io ! \ ['] x_key is key ! \ ['] x_key? is key? 16 to left-margin -16 to indent *************** *** 501,506 **** ['] noop is cr ['] drop is ?cr ! ['] x_key is key ! ['] X_key? is key? ['] noop is cls ['] noop is page --- 501,506 ---- ['] noop is cr ['] drop is ?cr ! \ ['] x_key is key ! \ ['] X_key? is key? ['] noop is cls ['] noop is page *************** *** 565,572 **** then ." --> " ?dbg-cont \ are we doing continuous steps ! IF x_key? \ did user press a key ! IF _mkey drop \ then discard it false to ?dbg-cont \ stop continuous ! _mkey upc \ and wait for next command ELSE ip @ @ dup ['] UNNEST = \ if at UNNEST --- 565,572 ---- then ." --> " ?dbg-cont \ are we doing continuous steps ! IF key? \ did user press a key ! IF key drop \ then discard it false to ?dbg-cont \ stop continuous ! key upc \ and wait for next command ELSE ip @ @ dup ['] UNNEST = \ if at UNNEST *************** *** 575,583 **** nip IF false to ?dbg-cont \ stop continuous ! _mkey upc \ and wait for next command ELSE 0x0D \ else just do an 'enter' THEN THEN ! ELSE _mkey upc \ not continuous, get a key THEN CASE --- 575,583 ---- nip IF false to ?dbg-cont \ stop continuous ! key upc \ and wait for next command ELSE 0x0D \ else just do an 'enter' THEN THEN ! ELSE key upc \ not continuous, get a key THEN CASE Index: REGISTRY.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/REGISTRY.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** REGISTRY.F 25 Sep 2005 06:17:54 -0000 1.8 --- REGISTRY.F 19 Aug 2008 12:47:52 -0000 1.9 *************** *** 202,206 **** INTERNAL ! :noname ( -- ) \ Write the current version into the registry. \ Needed by the w32fConsole.dll to find the right --- 202,206 ---- INTERNAL ! (( :noname ( -- ) \ Write the current version into the registry. \ Needed by the w32fConsole.dll to find the right *************** *** 210,214 **** RegSetString \ dadr dlen vadr vlen sadr slen PROGREG-INIT ; is INIT-CONSOLE-REG ! MODULE --- 210,214 ---- RegSetString \ dadr dlen vadr vlen sadr slen PROGREG-INIT ; is INIT-CONSOLE-REG ! )) MODULE |
From: Rod O. <rod...@us...> - 2008-08-19 12:45:51
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16514 Modified Files: fkernel.f Log Message: Rod: commented out more unnecessary deferred I/O Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.50 retrieving revision 1.51 diff -C2 -d -r1.50 -r1.51 *** fkernel.f 19 Aug 2008 03:55:24 -0000 1.50 --- fkernel.f 19 Aug 2008 12:45:46 -0000 1.51 *************** *** 2125,2129 **** |: K_NOOP2 0 DUP ; ! ( \) DEFER INIT-CONSOLE-REG ' NOOP IS INIT-CONSOLE-REG DEFER INIT-CONSOLE ' K_NOOP1 IS INIT-CONSOLE DEFER INIT-SCREEN ' NOOP IS INIT-SCREEN --- 2125,2129 ---- |: K_NOOP2 0 DUP ; ! \ DEFER INIT-CONSOLE-REG ' NOOP IS INIT-CONSOLE-REG DEFER INIT-CONSOLE ' K_NOOP1 IS INIT-CONSOLE DEFER INIT-SCREEN ' NOOP IS INIT-SCREEN *************** *** 2145,2151 **** DEFER GETXY ( -- x y ) ( stdout: get cursor position) ' K_NOOP2 IS GETXY DEFER GETCOLROW ' K_NOOP2 IS GETCOLROW ! ( \) DEFER SIZESTATE ' K_NOOP1 IS SIZESTATE ! ( \) DEFER MARKCONSOLE ' 4DROP IS MARKCONSOLE ! ( \) DEFER CURSORINVIEW ' NOOP IS CURSORINVIEW DEFER FGBG! ( f b -- ) ( stdout: set back and fore colors) ' 2DROP IS FGBG! DEFER FG@ ' K_NOOP1 IS FG@ --- 2145,2151 ---- DEFER GETXY ( -- x y ) ( stdout: get cursor position) ' K_NOOP2 IS GETXY DEFER GETCOLROW ' K_NOOP2 IS GETCOLROW ! \ DEFER SIZESTATE ' K_NOOP1 IS SIZESTATE ! \ DEFER MARKCONSOLE ' 4DROP IS MARKCONSOLE ! \ DEFER CURSORINVIEW ' NOOP IS CURSORINVIEW DEFER FGBG! ( f b -- ) ( stdout: set back and fore colors) ' 2DROP IS FGBG! DEFER FG@ ' K_NOOP1 IS FG@ *************** *** 2153,2163 **** DEFER CHARWH ' K_NOOP2 IS CHARWH DEFER SETCHARWH ' 2DROP IS SETCHARWH ! DEFER SETCOLROW ' 2DROP IS SETCOLROW DEFER SET-CURSOR ' DROP IS SET-CURSOR DEFER GET-CURSOR ' K_NOOP1 IS GET-CURSOR ! ( \) DEFER SETROWOFF ' DROP IS SETROWOFF ! ( \) DEFER GETROWOFF ' K_NOOP1 IS GETROWOFF ! DEFER GETMAXCOLROW ' K_NOOP2 IS GETMAXCOLROW ! DEFER SETMAXCOLROW ' 2DROP IS SETMAXCOLROW DEFER &THE-SCREEN ' K_NOOP1 IS &THE-SCREEN --- 2153,2163 ---- DEFER CHARWH ' K_NOOP2 IS CHARWH DEFER SETCHARWH ' 2DROP IS SETCHARWH ! \ DEFER SETCOLROW ' 2DROP IS SETCOLROW DEFER SET-CURSOR ' DROP IS SET-CURSOR DEFER GET-CURSOR ' K_NOOP1 IS GET-CURSOR ! \ DEFER SETROWOFF ' DROP IS SETROWOFF ! \ DEFER GETROWOFF ' K_NOOP1 IS GETROWOFF ! \ DEFER GETMAXCOLROW ' K_NOOP2 IS GETMAXCOLROW ! \ DEFER SETMAXCOLROW ' 2DROP IS SETMAXCOLROW DEFER &THE-SCREEN ' K_NOOP1 IS &THE-SCREEN |
From: Rod O. <rod...@us...> - 2008-08-18 18:11:39
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11872 Modified Files: CommandWindow.f NewConsole.f Log Message: Rod: fixed text wrapping during type - no more spurious characters Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** NewConsole.f 17 Aug 2008 20:59:02 -0000 1.20 --- NewConsole.f 18 Aug 2008 18:10:50 -0000 1.21 *************** *** 1,5 **** \ $Id$ ! \ NewConsole.f Console window to replace w32fConsole.dll Needs src\console\CommandWindow.f --- 1,26 ---- \ $Id$ ! \ NewConsole.f - Console window to replace w32fConsole.dll by Rod Oakford ! \ ! \ This console has all the functionality of the old console plus additional features. ! \ ! \ n wrap: cmd wraps text output from type. (The command line is not wrapped, just scrolled) ! \ 0 (false) - no text wrapping ! \ Any positive number wraps the text after column n ! \ True (or any negative number) wraps the text after the last visible column ! \ ! \ font SetFont: cmd sets the font for the console which can be a variable character width font ! \ font NewFont ! \ s" Courier" SetFaceName: NewFont ! \ 20 height: NewFont ! \ NewFont SetFont: cmd ! ! \ green blue FGBG! makes the foreground green and background blue ! \ black white FGBG! normal colours for the console ! \ BigCursor: cmd sets the caret to the average character width ! \ SmallCursor: cmd sets the caret width to 1 pixel ! \ 1 SetLeftMargin: cmd left and right margins can be set ! \ 8 SetRightMargin: cmd would allow the big caret to show at the end of the command line ! Needs src\console\CommandWindow.f *************** *** 183,234 **** ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\ Text wrapping \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - Create buffer2 512 allot - true value WrapText? - 40 value n1 \ max no. chars that fit on first line - 20 value w \ max no. chars that fit on subsequent whole lines - - : UpToCR ( a n - a n n ) 2dup 13 scan 10 scan 10 skip nip over swap - ; - : AddToBuffer ( a n - a n ) dup>r buffer2 +place r> /string ; - : WrapText ( a n -- a n ) - WrapText? 0= ?exit - buffer2 4 erase - UpToCR dup>r n1 ( 2 + ) > - IF - r>drop 2dup n1 min AddToBuffer - crlf$ count buffer2 +place - ELSE - 2dup r> min AddToBuffer - THEN - BEGIN - dup - WHILE - UpToCR dup>r w ( 2 + ) > - IF - r>drop 2dup w min AddToBuffer - crlf$ count buffer2 +place - ELSE - 2dup r> min AddToBuffer - THEN - - REPEAT - 2drop - buffer2 count - buffer2 +null - ; - : c_type ( a n -- ) KeysOff: cmd \ send key strokes to key buffer ! VisibleCols: cmd dup to w ! cmd.X - to n1 ! WrapText OverwriteTextAtXY: cmd PauseForMessages KeysOn: cmd ; - \ : c_type ( a n -- ) OverwriteTextAtXY: cmd ; : c_emit ( c -- ) sp@ 1 c_type drop ; : c_cr ( -- ) cr: cmd ; --- 204,219 ---- ; + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\ Deferred I/O words \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : c_type ( a n -- ) KeysOff: cmd \ send key strokes to key buffer ! OverwriteTextAtXY: cmd PauseForMessages KeysOn: cmd ; : c_emit ( c -- ) sp@ 1 c_type drop ; : c_cr ( -- ) cr: cmd ; Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** CommandWindow.f 15 Aug 2008 11:29:03 -0000 1.13 --- CommandWindow.f 18 Aug 2008 18:10:50 -0000 1.14 *************** *** 733,738 **** ;M :M OverwriteTextAtXY: ( a n -- ) dup CheckTextBuffer \ one line at a time ! BEGIN 2dup 2dup 13 scan nip dup>r - dup>r OverwriteLineAtXY: self r> r> WHILE CR: self /string 13 skip 10 skip REPEAT 3drop --- 733,743 ---- ;M + int wrap + :M wrap: ( n -- ) to wrap ;M \ false: no wrapping, true: wrap after last visible column, positve value: wrap after this column + + : AdjustCount ( n -- n ) wrap IF wrap 0< IF VisibleCols: self ELSE wrap THEN X - min 0 max THEN ; + :M OverwriteTextAtXY: ( a n -- ) dup CheckTextBuffer \ one line at a time ! BEGIN dup>r 2dup 2dup 13 scan nip - AdjustCount dup>r OverwriteLineAtXY: self r@ 2r> - \ chars inserted, chars remaining WHILE CR: self /string 13 skip 10 skip REPEAT 3drop *************** *** 1201,1205 **** 100000 to MaxText 0 to head ! \ 0 to tail 1 to CaretWidth 13 to CaretHeight --- 1206,1210 ---- 100000 to MaxText 0 to head ! -1 to wrap 1 to CaretWidth 13 to CaretHeight |
From: Jos v.d.V. <jo...@us...> - 2008-08-17 20:59:08
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17545 Modified Files: NewConsole.f Log Message: Jos: Made turnkey behave like the previous versions of Win32Forth. That means you do not have to enter a messageloop manualy after starting the EXE of a turnkey. Also removed the test beep. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** NewConsole.f 16 Aug 2008 13:31:47 -0000 1.19 --- NewConsole.f 17 Aug 2008 20:59:02 -0000 1.20 *************** *** 412,420 **** ' menukey-more is LogKeyStrokes ! : New-default-hello ( -- ) \ for turnkey initialization-chain do-chain exception@ if bye then ! get-commandline beep \ commandline to SOURCE default-application ; --- 412,421 ---- ' menukey-more is LogKeyStrokes ! : New-default-hello ( -- ) \ for turnkey initialization-chain do-chain exception@ if bye then ! get-commandline \ commandline to SOURCE default-application + Messageloop ; |
From: Jos v.d.V. <jo...@us...> - 2008-08-17 16:38:27
|
Update of /cvsroot/win32forth/win32forth/Templates In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9459 Modified Files: TreeViewInSplitWindow.f Log Message: Jos: Restored my testcase Index: TreeViewInSplitWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Templates/TreeViewInSplitWindow.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TreeViewInSplitWindow.f 17 Aug 2008 15:04:24 -0000 1.2 --- TreeViewInSplitWindow.f 17 Aug 2008 16:38:21 -0000 1.3 *************** *** 5,10 **** Needs Treeview.f ! \ false ! 1 value turnkey? defer OnPosition ( window -- ) ' drop is OnPosition \ called when window panes are repositioned --- 5,9 ---- Needs Treeview.f ! false value turnkey? defer OnPosition ( window -- ) ' drop is OnPosition \ called when window panes are repositioned |
From: Jos v.d.V. <jo...@us...> - 2008-08-17 15:04:29
|
Update of /cvsroot/win32forth/win32forth/Templates In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3137 Modified Files: MinimalWindow.f SplitterWindow2.f TreeViewInSplitWindow.f Log Message: Jos: Adapted for the new console Index: SplitterWindow2.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Templates/SplitterWindow2.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SplitterWindow2.f 20 May 2006 20:23:43 -0000 1.1 --- SplitterWindow2.f 17 Aug 2008 15:04:24 -0000 1.2 *************** *** 1,5 **** anew -SplitterWindow2.f - Needs NoConsole.f Needs Resources.f --- 1,4 ---- *************** *** 173,177 **** turnkey? [if] - NoConsoleIO NoConsoleInImage ' main turnkey App.exe s" WIN32FOR.ICO" s" App.exe" AddAppIcon --- 172,175 ---- Index: TreeViewInSplitWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Templates/TreeViewInSplitWindow.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TreeViewInSplitWindow.f 21 May 2006 14:19:25 -0000 1.1 --- TreeViewInSplitWindow.f 17 Aug 2008 15:04:24 -0000 1.2 *************** *** 1,10 **** anew -TreeViewInSplitWindow.f - Needs NoConsole.f Needs Resources.f Needs PopupWindow.f Needs Treeview.f ! false value turnkey? defer OnPosition ( window -- ) ' drop is OnPosition \ called when window panes are repositioned --- 1,10 ---- anew -TreeViewInSplitWindow.f Needs Resources.f Needs PopupWindow.f Needs Treeview.f ! \ false ! 1 value turnkey? defer OnPosition ( window -- ) ' drop is OnPosition \ called when window panes are repositioned *************** *** 292,296 **** turnkey? [if] - NoConsoleIO NoConsoleInImage ' main turnkey App.exe s" WIN32FOR.ICO" s" App.exe" AddAppIcon --- 292,295 ---- Index: MinimalWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Templates/MinimalWindow.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MinimalWindow.f 20 May 2006 15:09:37 -0000 1.1 --- MinimalWindow.f 17 Aug 2008 15:04:24 -0000 1.2 *************** *** 1,3 **** - Needs NoConsole.f Needs Resources.f --- 1,2 ---- *************** *** 49,53 **** turnkey? [if] - NoConsoleIO NoConsoleInImage ' Minimal turnkey MinimalWindow.exe s" WIN32FOR.ICO" s" MinimalWindow.exe" AddAppIcon --- 48,51 ---- |
From: Jos v.d.V. <jo...@us...> - 2008-08-17 13:08:04
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18478 Modified Files: MDIExample.f Log Message: Jos: Just for the layout Index: MDIExample.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MDIExample.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** MDIExample.f 17 Aug 2008 12:59:26 -0000 1.4 --- MDIExample.f 17 Aug 2008 13:08:00 -0000 1.5 *************** *** 285,290 **** New Cascade ! Turnkeyed? \ IF Begin key drop again THEN ! IF Begin messageloop again THEN ; --- 285,289 ---- New Cascade ! Turnkeyed? IF Begin messageloop again THEN ; |
From: Jos v.d.V. <jo...@us...> - 2008-08-17 12:59:29
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15096 Modified Files: MDIExample.f Log Message: Jos: Adapted for the new console. Remarks for the Vista and also changed : 0 call PostQuitMessage drop closes the window, but does not end the process, BYE does. When you run GO and make a turnkey then the turnkey does not work Index: MDIExample.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/MDIExample.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** MDIExample.f 14 Jan 2006 12:28:21 -0000 1.3 --- MDIExample.f 17 Aug 2008 12:59:26 -0000 1.4 *************** *** 166,170 **** :M On_Done: ( -- ) ! Turnkeyed? IF 0 call PostQuitMessage drop THEN On_Done: Super ;M --- 166,170 ---- :M On_Done: ( -- ) ! Turnkeyed? IF bye THEN On_Done: Super ;M *************** *** 285,289 **** New Cascade ! Turnkeyed? IF Begin key drop again THEN ; --- 285,290 ---- New Cascade ! Turnkeyed? \ IF Begin key drop again THEN ! IF Begin messageloop again THEN ; *************** *** 293,298 **** MODULE - go - cr .( Save MDIExample.exe [Y/N]: ) key dup emit dup 121 = swap 89 = or nostack ! [IF] ' go turnkey MDIExample 5 pause-seconds bye [THEN] --- 294,300 ---- MODULE cr .( Save MDIExample.exe [Y/N]: ) key dup emit dup 121 = swap 89 = or nostack ! [IF] ' go turnkey MDIExample.exe 5 pause-seconds bye ! [ELSE] go ! [THEN] ! \s |
From: Jos v.d.V. <jo...@us...> - 2008-08-17 12:31:14
|
Update of /cvsroot/win32forth/win32forth/demos/AccelDemo In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3900/AccelDemo Modified Files: AccelDemo.f Log Message: Jos: Adapted for the new console. Index: AccelDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/AccelDemo.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** AccelDemo.f 12 May 2007 14:21:20 -0000 1.3 --- AccelDemo.f 17 Aug 2008 12:31:10 -0000 1.4 *************** *** 1149,1152 **** AccelDemo ! \ ' windemo turnkey AccelDemo ! |
From: Jos v.d.V. <jo...@us...> - 2008-08-17 12:31:14
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3900 Modified Files: WINBROWS.F WINDEMO.F Log Message: Jos: Adapted for the new console. Index: WINBROWS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINBROWS.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** WINBROWS.F 18 Jul 2008 23:05:41 -0000 1.4 --- WINBROWS.F 17 Aug 2008 12:31:11 -0000 1.5 *************** *** 576,581 **** again ; ! ' winbrowse turnkey winbrows \ save the new application program .EXE and .IMG 5 pause-seconds \ pause for user to see what happened --- 576,584 ---- again ; ! \ The keyboard is used, so it needs a hidden console in the program. ! ! in-hidden-console 0 0 ' winbrowse APPLICATION winbrowse.exe 5 pause-seconds \ pause for user to see what happened + \s Index: WINDEMO.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINDEMO.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** WINDEMO.F 5 May 2005 09:43:29 -0000 1.2 --- WINDEMO.F 17 Aug 2008 12:31:11 -0000 1.3 *************** *** 1072,1082 **** 'C' +k_control of false copy-demo-bitmap endof 'C' +k_control +k_shift of true copy-demo-bitmap endof ! 'X' +k_control of false copy-demo-bitmap k_esc pushkey endof endcase again ; ! ' windemo turnkey windemo \ build an application on disk 5 pause-seconds - |