First working GUI (LB5 Rocks!!!)

[donnybowers]

EDITED:
I made my first GUI in LB5-347 alpha. I used the new freeform to create the GUI. 

I found a couple of bugs which I will explain, but here's the working code I came up with. It utilizes a listbox, a textbox, a texteditor and a button. It lists files from a file named "dir.txt". You double click on a file and it places it in the texteditor:

' NOTE: you have to place a file named dir.txt into the same directory with this program.
' dir.txt has to contain the names of at least one of the files in your directory.
' TO DO: use the FILES command instead of this "dir.txt" file

   dim file$(1000)
   open "dir.txt" for input as #1
   numfiles=0
   while eof(#1)=0
       numfiles=numfiles+1
       line input #1, file$(numfiles)
   wend
   close #1

   nomainwin

   WindowWidth = 550
   WindowHeight = 420
   UpperLeftX = 1
   UpperLeftY = 1

   listbox #main.open, file$(, [open], 10, 46, 224, 300
   statictext #main.st1, "Choose File", 26, 16, 88, 20
   textbox #main.fname, 330, 15, 208, 25
   statictext #main.st2, "File Name", 254, 16, 74, 20
   texteditor #main.edit, 254, 46, 280, 300
   button #main.default, "Open", [open], UL, 10, 350, 60, 30

   open "First LB5 Freeform GUI" for dialog as #main
   print #main, "font ms_sans_serif 10"

[main.inputLoop]   'wait here for input event
   wait

[open]   'Perform action for the listbox named 'open'
   'notice "open"
   print #main.open, "selection? fileName$"
   if fileName$<>"" then
   print #main.fname, fileName$
   open fileName$ for input as #1

   txt$=""
   while eof(#1)=0
       line input #1, r$
       r$=r$+chr$(13)+chr$(10)
       txt$=txt$+r$
   wend
   close #1
   print #main.edit, "!cls"
   print #main.edit, txt$
   end if

   wait



Now for the bug. You'll notice that when I place the text from the file in the texteditor I'm using the following two commands:

print #main.edit, "!cls"
print #main.edit, txt$

I originally used:

#main.edit, "!contents txt$"

It gave me a syntax error, so I changed it to:

print #main.edit, "!contents txt$"

Here's the error log from that:



==2019/2/25==1:23:55==BEGIN RUNTIME DIAGNOSTIC DUMP
Note: this file stored in VisualWorks #source (UTF-8) encoding

Cause of Dump: Unhandled exception: Message not understood: #contents:
Smalltalk Version: 'VisualWorks®, Pre-Release 8.3.2 (apr18.3) of April 20, 2018'
Object Memory versionId: #[172 40 76 176 83 2 3 4 172 47 76 176]
Class creating this dump: ErrorDumper
------------------------------------------------------------
Active Process
Process named: 'Unnamed Process'
Process priority: 50
Process identity hash: 2149
Context Stack:
[1] NomainwinIoPortal(Object)>>error:
[2] NomainwinIoPortal>>runtimeError:
[3] BranchingProgramDirector(Director)>>runtimeError:
[4] [] in BranchingProgramDirector>>innerDirect
[5] BlockClosure>>cull:
[6] MessageNotUnderstood(GenericException)>>performHandler:
[7] MessageNotUnderstood(GenericException)>>propagatePrivateFrom:
[8] MessageNotUnderstood(GenericException)>>propagateFrom:
[9] MessageNotUnderstood(GenericException)>>propagate
[10] MessageNotUnderstood(GenericException)>>raiseSignal
[11] optimized [] in Director>>direct:
[12] BlockClosure>>cull:
[13] MessageNotUnderstood(GenericException)>>performHandler:
[14] MessageNotUnderstood(GenericException)>>propagatePrivateFrom:
[15] MessageNotUnderstood(GenericException)>>propagateFrom:
[16] MessageNotUnderstood(GenericException)>>propagate
[17] MessageNotUnderstood(GenericException)>>raiseSignal
[18] LBTexteditor(Object)>>doesNotUnderstand:
[19] LBTexteditor>>writeItem:cr:
[20] LBTexteditor>>writeItemCr:
[21] PrintHandleFrame>>animate:
[22] optimized [] in [] in Director>>direct:
[23] OrderedCollection>>do:
[24] optimized [] in Director>>direct:
[25] BlockClosure>>on:do:
[26] Director>>direct:
[27] Director>>for:direct:
[28] IfThenClip>>animate:
[29] optimized [] in BranchingProgramDirector>>innerDirect
[30] BlockClosure>>on:do:
[31] BranchingProgramDirector>>innerDirect
[32] BranchingProgramDirector>>direct:
[33] BranchingProgramDirector(Director)>>for:direct:
[34] BranchingProgramDirector>>for:direct:
[35] Program>>runWithDirector:
[36] optimized [] in Program>>runForked
[37] BlockClosure>>on:do:
[38] optimized [] in Process class>>forBlock:priority:

------------------------------------------------------------
Unhandled Exception:
class: UnhandledException
creator: UnhandledException
errorString: Unhandled exception: Message not understood: #contents:
parameter: an Error

==2019/2/25==1:23:55==END RUNTIME DIAGNOSTIC DUMP


Another issue I found in alpha 347 is that if you select an item in a listbox and press enter, it acts more or less like the tab key taking you to the next control. In this case the textbox, then the texteditor. Being that this program uses a default button, it would normally be the same as double clicking the listbox item.

---

Anyway, it's a little GUI program that works with LB5 alpha 347 on Linux. It also works with LB 4.04 in Windows XP. I'm curious to get feedback on how it works for you on other systems. 

LB5 ALIVE!!!

[donnybowers]

Here's version 2 utilizing the FILES command instead of a "dir.txt" file. It also sorts the file names.
EDITED:
I'm calling this ALPHA 347 CLIP COLLECTOR (and I'm actually using it as a tool for this project)


' My first LB5 GUI v2
' Generated with Freeform j10_LB5

   dim file$(1000), info$(10,10)

   files DefaultDir$, "*.*", info$()
   numfiles=val(info$(0,0))
   print numfiles
   for i=1 to numfiles
       file$(i)=info$(i,0)
       print file$
   next i

   SORT file$(), 1, numfiles

   nomainwin

   WindowWidth = 550
   WindowHeight = 420
   UpperLeftX = 1
   UpperLeftY = 1

   listbox #main.open, file$(, [open], 10, 46, 224, 300
   statictext #main.st1, "Choose File", 26, 16, 88, 20
   textbox #main.fname, 330, 15, 208, 25
   statictext #main.st2, "File Name", 254, 16, 74, 20
   texteditor #main.edit, 254, 46, 280, 300
   button #main.default, "Open", [open], UL, 10, 350, 60, 30

   open "My First LB5 Freeform GUI v2" for dialog as #main
   print #main, "font ms_sans_serif 10"


[main.inputLoop]   'wait here for input event
   wait



[open]   'Perform action for the listbox named 'open'
   'notice "open"
   print #main.open, "selection? fileName$"
   if fileName$<>"" then
       print #main.fname, fileName$
       open fileName$ for input as #1

       txt$=""
       while eof(#1)=0
           line input #1, r$
           r$=r$+chr$(13)+chr$(10) ' uses Windows file conventions CR LF
           txt$=txt$+r$
       wend
       close #1
       print #main.edit, "!cls"
       print #main.edit, txt$
   end if

   wait


LB5 ALIVE!!! (updates coming)

[metro]

too quick for me donnybowes
I filtered just *.bas
' NOTE: you have to place a file named dir.txt into the same directory with this program.
' dir.txt has to contain the names of at least one of the files in your directory.
' TO DO: use the FILES command instead of this "dir.txt" file
open "dir.txt" for output as #a
 
  if left$(Platform$,3) = "win" then
  files #dir, "c:\windows\*.*" ' or what ever path you want
  else  'assume Mac OS or Linux
  files #dir, "*.bas"
  end if

  while #dir hasAnswer()
  #dir nextFile$()
 #a #dir name$()
wend
close #a
 
dim file$(1000)
   open "dir.txt" for input as #1
   numfiles=0
   while eof(#1)=0
       numfiles=numfiles+1
       line input #1, file$(numfiles)
   wend
   close #1
   nomainwin
   WindowWidth = 550
   WindowHeight = 420
   UpperLeftX = 1
   UpperLeftY = 1
   listbox #main.open, file$(, [open], 10, 46, 224, 300
   statictext #main.st1, "Choose File", 26, 16, 88, 20
   textbox #main.fname, 330, 15, 208, 25
   statictext #main.st2, "File Name", 254, 16, 74, 20
   texteditor #main.edit, 254, 46, 280, 300
   button #main.default, "Open", [open], UL, 10, 350, 60, 30
   open "First LB5 Freeform GUI" for dialog as #main
   print #main, "font ms_sans_serif 10"
[main.inputLoop]   'wait here for input event
   wait
[open]   'Perform action for the listbox named 'open'
   'notice "open"
   print #main.open, "selection? fileName$"
   if fileName$<>"" then
   print #main.fname, fileName$
   open fileName$ for input as #1
   txt$=""
   while eof(#1)=0
       line input #1, r$
       r$=r$+chr$(13)+chr$(10)
       txt$=txt$+r$
   wend
   close #1
   print #main.edit, "!cls"
   print #main.edit, txt$
   end if
   wait


'untitled.basedit:

Thanks for the Tabbed editor Carl I can now work on snippets and copy that work back into the main program

with out starting multiple instances of Liberty............love it

[donnybowers]

Feb 25, 2019 3:13:24 GMT -5 metro said:

too quick for me donnybowes
I filtered just *.bas

Yes! It could be used as a clip collector for LB5 alpha testing clips. LOL

Edit:

And I just discovered something really cool that I hope Carl leaves in there. The texteditor has wordwrap! That was the one main thing that I always hoped LB would have is a way to use the texteditor control with wordwrap. Personally I think this should be the default, with maybe a stylebit command that would allow to have non-word wrapping. This would be great in RunBasic too.

Yahoo! LB5 Alive!!!

[metro]

Feb 25, 2019 3:35:06 GMT -5 donnybowers said:

Feb 25, 2019 3:13:24 GMT -5 metro said:

too quick for me donnybowes
I filtered just *.bas

Yes! It could be used as a clip collector for LB5 alpha testing clips. LOL

exactly, I just used it to look for code in one of the examples Carl provided using your code was much faster than using my editor

great start

[donnybowers]

I just added a trapclose and found another minor bug:
open "First LB5 Freeform GUI" for dialog as #main
   print #main, "font ms_sans_serif 10"
   print #main, "trapclose [quit]" ' ADDED THIS LINE

and then the branch at the end of the program:

[quit]
close #main
end


The trapclose command seems to work fine, but this program uses a DIALOG type window. It should now close if you press the ESC key, but it doesn't. Either a bug or something that isn't implemented yet?

[donnybowers]

Here's a change I made in the file opening routine:


[open]   'Perform action for the listbox named 'open'
   'notice "open"
   print #main.open, "selection? fileName$"
   if fileName$<>"" then
       print #main.fname, fileName$
       open fileName$ for input as #1
       
       txt$=""
       while eof(#1)=0
           line input #1, r$
           if Platform$="unix" then
               r$=r$+chr$(10) ' UNIX LINE ENDING (LF)
           else
               r$=r$+chr$(13)+chr$(10) ' WINDOWS LINE ENDING (CR LF)
           end if
           txt$=txt$+r$
       wend
       close #1
       print #main.edit, "!cls"
       print #main.edit, txt$
   end if
   
   wait

Edited Note: Once the ability to use LOF to read in the file into a single variable is working it won't be necessary to add the different line endings. Files will be handled according to whatever operating system is being used and the line endings will already be there and normally will be correct. The only reason we need to do this in alpha 437 is because we have to read the file in line by line. Doing so removes the line endings which then have to be added back in in order to get your line breaks when pasted into the texteditor.

Normally your [open] code would look something like this:


[open]   'Perform action for the listbox named 'open'

   print #main.open, "selection? fileName$"
   if fileName$<>"" then
       print #main.fname, fileName$
       open fileName$ for input as #1
         txt$=input$(#1, lof(#1)) ' WHOLE FILE LOADED INTO A SINGLE VARIABLE
       close #1
       print #main.edit, "!cls"
       print #main.edit, txt$
   end if
   
   wait

This won't work in alpha 347, either because of a bug or else because something (maybe LOF ?) hasn't been implemented yet.

[donnybowers]

I tried adding a save routine to turn it into a full fledged text editor:


[save]
   print #main.fname, "!Contents? fileName$" ' THIS COMMAND WORKS (with TEXTBOX)
   print #main.edit, "!Contents? txt$" ' THIS COMMAND APPEARS NOT TO WORK (with TEXTEDITOR)

   if fileName$<>"" then
       open fileName$ for output as #1
           print #1, txt$;
       close #1
       notice "File Saved"
   else
       notice "Enter a file name first!"
   end if
wait


This routine saves the file with the proper name (from #main.fname), but without the content from the texteditor control (#main.edit).

This appears to be the one bug in alpha 347 that makes it impossible to create a text editor that will both open and save file content.

[dossic]

I like GRID control, I was waiting for since long time! Will we have the option to select a full row, as well as coloring each row independently?

About spinner, will it be limited to date and time? Hopefully not!

Thanks
Carlo

[Carl Gundel]

Feb 26, 2019 2:06:33 GMT -5 dossic said:

I like GRID control, I was waiting for since long time! Will we have the option to select a full row, as well as coloring each row independently?

About spinner, will it be limited to date and time? Hopefully not!

Thanks
Carlo

I think we will be able to grant your grid wishes.  

The spinner should also work numerically, yes.  Any other suggestions?

[dossic]

I have a couple questions more :
-tooltips. Will we be able to use it cross platform?
- background and foreground colors of controls. I 'd like to have the possibility of setting them for each controls - e.g. when mouse is hovering over.

Thanks! I'm so happy to have the possibility of having my software for electrochemistry cross-platform!!

Carlo

[Chris Iverson]

From what little I know about the toolkit Carl's now using, tooltips as a concept is a "maybe". I don't know enough about VisualWorks Smalltalk to know what's available in their GUI package. This goes for the control coloring(as well as mouseOver events) as well.

Tooltips exactly as they existed in LB4 is a no. LB4, in fact, did not have tooltips at all; you had to use special functions to ask Windows to make the tooltips for you. Since this is cross-platform, it won't always be a Win32 system that LB5 is running on, and therefore, those special functions won't work.

Carl has mentioned the possibility of returning API/syscall functionality, but even that won't bring tooltips as they exist back, because it would only work if your program was running on Windows.

[Carl Gundel]

Feb 27, 2019 13:38:22 GMT -5 dossic said:

I have a couple questions more :
-tooltips. Will we be able to use it cross platform?
- background and foreground colors of controls. I 'd like to have the possibility of setting them for each controls - e.g. when mouse is hovering over.

Thanks! I'm so happy to have the possibility of having my software for electrochemistry cross-platform!!

Carlo

Tool tips will be supported as a first class feature for all OSes.

Colors? This isn’t completely scopes out but there will be at least some support for this.

[donnybowers]

SOME ISSUES IN LB5-348 ALPHA:

print #main.edit, "!contents? txt$"  ' doesn't work

It looks like I'm just getting a null string instead of the text. Am I doing something wrong here? It works for a TEXTBOX, but not for a TEXTEDITOR control.

---

Won't read entire file into a variable using LOF


filedialog "Open .bas file", "*.bas", fileName$
open fileName$ for input as #f
   txt$=input$(#f, lof(#f))
   close #f
print txt$


ERROR DUMP:



==2019/3/15==6:55:17==BEGIN RUNTIME DIAGNOSTIC DUMP
Note: this file stored in VisualWorks #source (UTF-8) encoding

Cause of Dump: Unhandled exception: Message not understood: #readLimit
Smalltalk Version: 'VisualWorks®, Pre-Release 8.3.2 (apr18.3) of April 20, 2018'
Object Memory versionId: #[172 40 76 176 83 2 3 4 172 47 76 176]
Class creating this dump: ErrorDumper
------------------------------------------------------------
Active Process
Process named: 'Unnamed Process'
Process priority: 50
Process identity hash: 9687
Context Stack:
[1] optimized [] in Director>>direct:
[2] BlockClosure>>cull:
[3] MessageNotUnderstood(GenericException)>>performHandler:
[4] MessageNotUnderstood(GenericException)>>propagatePrivateFrom:
[5] MessageNotUnderstood(GenericException)>>propagateFrom:
[6] MessageNotUnderstood(GenericException)>>propagate
[7] MessageNotUnderstood(GenericException)>>raiseSignal
[8] EncodedStream(Object)>>doesNotUnderstand:
[9] BasicFile>>lengthOfFile
[10] optimized [] in UndefinedObject>>unboundMethod
[11] AssignFrame>>animate:
[12] optimized [] in [] in Director>>direct:
[13] OrderedCollection>>do:
[14] optimized [] in Director>>direct:
[15] BlockClosure>>on:do:
[16] ProgramDirector(Director)>>direct:
[17] ProgramDirector>>direct:
[18] ProgramDirector(Director)>>for:direct:
[19] ProgramDirector>>for:direct:
[20] Program>>runWithDirector:
[21] optimized [] in Program>>runForked
[22] BlockClosure>>on:do:
[23] optimized [] in Process class>>forBlock:priority:

------------------------------------------------------------
Unhandled Exception:
class: UnhandledException
creator: UnhandledException
errorString: Unhandled exception: Message not understood: #readLimit
parameter: a MessageNotUnderstood

==2019/3/15==6:55:17==END RUNTIME DIAGNOSTIC DUMP



---

The #handle.default extension for a BUTTON doesn't seem to work in a dialog window.

---

Also the ESC button doesn't close a dialog window.