Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Messages - santy

Pages1
#1
newLISP newS /
January 11, 2009, 02:34:22 PM
Sorry but CHP.exe works bad.



I took source code newlisp (v 10.0.1) and modified it.

Code compiled in old IDE MinGW Developer Studio.





Code and program (without console window) are here

http://santysoft.narod.ru/programs/files_lisp/newlispw.7z">http://santysoft.narod.ru/programs/file ... ewlispw.7z">http://santysoft.narod.ru/programs/files_lisp/newlispw.7z



and sample program for build exe module from NewLisp code is here

http://santysoft.narod.ru/programs/files_lisp/nl_build_exe.7z">http://santysoft.narod.ru/programs/file ... ild_exe.7z">http://santysoft.narod.ru/programs/files_lisp/nl_build_exe.7z



Thanks.
#2
newLISP newS /
January 08, 2009, 04:57:10 AM
to xytroxon



Program work good with CHP.exe.



Thanks.



to newBert

sgui is my little gui library. At this time I am writing wrapper for newLisp.



P.S. May be Lutz Mueller add new option in the newlisp program for gui application.
#3
newLISP newS /
January 06, 2009, 07:16:43 AM
I am using windows XP SP3



it is given code:


Code Select

(import "kernel32.dll" "FreeConsole")
(FreeConsole)

(load "sgui.lsp")

(define (menu_demo)
 
 (set 'iWindows (sgui:CreateWin 100 200 195 260 (address "Menu demo Window") ( | sgui:WF_SystemMenu sgui:WF_TitleBar sgui:WF_MinimizeWidget sgui:WF_MaximizeWidget sgui:WF_SizeWidget)))
 ;(println iWindows (number? iWindows))
 (if (not (null? iWindows))
   (begin
      (set 'mainMenu (sgui:CreateMainMenu iWindows))
      ;(println mainMenu (number? mainMenu))
      (if (not (null? mainMenu))
        (begin  
        (sgui:CreateMenuTitle "File")  
          (sgui:CreateMenuItem 1 "Open")
          (sgui:CreateMenuItem 2 "Save")
          (sgui:CreateMenuItem 3 "Close")
          (sgui:CreateMenuSeparator)
          (sgui:CreateMenuItem 6 "&Exit")
         (sgui:CreateMenuTitle "Edit")  
          (sgui:CreateMenuItem 118 "Undo")
          (sgui:CreateMenuItem 9 "Redo")
          (sgui:CreateMenuItem 10 "Find")
          (sgui:CreateMenuSeparator)
          (sgui:CreateMenuItem 12 "Find Files")
        )
       )
       (while (!= EventID sgui:WE_CloseWindow)
        (set 'EventID (sgui:StartWinEvent))
       )
    (sgui:CloseWin iWindows)
   )
 )
)

(menu_demo)
(exit)
#4
newLISP newS /
January 06, 2009, 05:34:25 AM
Sorry, but this code do not work.

I do not use guiserver.

[/img]
#5
newLISP newS / Close NewLisp console window
January 05, 2009, 06:32:43 AM
Hi all.



Now  I am testing my gui library. It works very  good but newlisp console window is always open.



How can I close this window?



Thanks.
Pages1