on preOpenStack
Global startupFolder
put the defaultFolder into startupFolder
put the fontNames into button "fontFile"
put the fontNames into button "fontPicture"
sort lines of button "fontFile"
sort lines of button "fontPicture"
Global Init
put 1 into Init
call resumeStack
end preOpenStack
on resumeStack
Global Init
If Init = 2 then pass resumeStack
set the rect of this stack to the screenrect
----------------------------------------
put empty into field "FileChooserIni"
put empty into field "FileChooserFilters"
put empty into field "PictureChooserIni"
put empty into field "PictureChooserFilters"
put empty into field "1a"
put empty into field "1b"
put empty into field "2a"
put empty into field "2b"
put url "file:_file_chooser.ini" into field "FileChooserIni"
put url "file:_file_chooser_filters.ini" into field "FileChooserFilters"
put url "file:_picture_chooser.ini" into field "PictureChooserIni"
put url "file:_picture_chooser_filters.ini" into field "PictureChooserFilters"
put 0 into lineCounter
repeat for each line thisLine in field "FileChooserIni"
put (lineCounter + 1) into lineCounter
if the charToNum of the last char of thisLine is 13 then --LINUX only
put char 1 to -2 of thisLine into line lineCounter of field "FileChooserIni"
end if
end repeat
put 0 into lineCounter
repeat for each line thisLine in field "FileChooserFilters"
put (lineCounter + 1) into lineCounter
if the charToNum of the last char of thisLine is 13 then --LINUX only
put char 1 to -2 of thisLine into line lineCounter of field "FileChooserFilters"
end if
end repeat
put 0 into lineCounter
repeat for each line thisLine in field "PictureChooserIni"
put (lineCounter + 1) into lineCounter
if the charToNum of the last char of thisLine is 13 then --LINUX only
put char 1 to -2 of thisLine into line lineCounter of field "PictureChooserIni"
end if
end repeat
put 0 into lineCounter
repeat for each line thisLine in field "PictureChooserFilters"
put (lineCounter + 1) into lineCounter
if the charToNum of the last char of thisLine is 13 then --LINUX only
put char 1 to -2 of thisLine into line lineCounter of field "PictureChooserFilters"
end if
end repeat
----------------------------------------
if toLower(line 16 of field "FileChooserIni") is "folder" or toLower(line 16 of field "FileChooserIni") is "folder/" then
set the label of button "ChooseFile" to "Choose Folder"
end if
if toLower(line 16 of field "PictureChooserIni") is "folder" or toLower(line 16 of field "PictureChooserIni") is "folder/" then
set the label of button "ChoosePicture" to "Choose Folder"
end if
put 2 into Init
end resumeStack
P on mouseMove if the visible of field "fileInfo" is true then set the visible of field "fileInfo" to false end if if the visible of field "pictureInfo" is true then set the visible of field "pictureInfo" to false end if end mouseMove cREVGeneral scriptChecksum PfdߺQY0 bookmarks handlerList mouseMove prevHandler mouseMove tempScript scriptSelection char 247 to 246scripton mouseMove
if the visible of field "fileInfo" is true then
set the visible of field "fileInfo" to false
end if
if the visible of field "pictureInfo" is true then
set the visible of field "pictureInfo" to false
end if
end mouseMove
cREVGeometryCacheIDs 81177982055085 10641177982846805 10691177981853360 10621177982351294 10681136588181649 10071176658147205 10541172790373745 10501136588383253 10191177982291432 10671137427283856 10391136861211893 10351176659143267 10551177983086360 10721177983466790 10751176657208271 10511176659435025 10561136589359616 10291177960517614 10591177983430949 10741136588513292 10241177983505954 10761136861277646 10371136564307149 10031136588328051 10161172790333934 10481177982157562 10651172788047832 10451177983916770 10771172783273406 10411136597496485 10341177981599210 10611177983385907 10731136595221129 10311176659550468 10581136588392442 10201136861244410 10361177982919668 10701136588508051 10231177981385557 10601177983013694 10711137427690041 10401177981944765 10631172788041800 10441136588243754 10131177982232689 10661136588412256 10211136589205804 10261136595436557 10321172783291327 10421136588320100 10151136861306473 10381136597312856 10331136588501049 10221176657427653 10521172783524850 10431136588359651 1018 cREVGeometrycache total 56order " # 5 Button mp on mouseUp quit end mouseUp ?m | < Exit cREVGeneral scriptChecksum "qA|C: revUniqueID 1136564307149 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 1 to 0scripton mouseUp
quit
end mouseUp
FileChooserFilters (x on KeyUp --put the selectedChunk into posCursor --set the itemdelimiter to space --put item 4 of posCursor into posCursor delete file "_file_chooser_filters.ini" open file "_file_chooser_filters.ini" write field "FileChooserFilters" to file "_file_chooser_filters.ini" close file "_file_chooser_filters.ini" --Global Info --put the selectedChunk into Info --Global Init --put 1 into Init --call resumeStack of this stack --put word 4 of Info into ThisCharNum --select after char ThisCharNum of field "FileChooserFilters" --select after char posCursor of field "FileChooserFilters" end KeyUp on rawKeyUp call KeyUp pass rawKeyUp end rawKeyUp @ 2 cREVTable currentview cREVGeneral scriptChecksum h#t#^zIXy L# revUniqueID 1136588181649 bookmarks handlerList KeyUp rawKeyUp tempScript prevHandler rawKeyDownscriptSelection char 465 to 464scripton KeyUp
--put the selectedChunk into posCursor
--set the itemdelimiter to space
--put item 4 of posCursor into posCursor
delete file "_file_chooser_filters.ini"
open file "_file_chooser_filters.ini"
write field "FileChooserFilters" to file "_file_chooser_filters.ini"
close file "_file_chooser_filters.ini"
--Global Info
--put the selectedChunk into Info
--Global Init
--put 1 into Init
--call resumeStack of this stack
--put word 4 of Info into ThisCharNum
--select after char ThisCharNum of field "FileChooserFilters"
--select after char posCursor of field "FileChooserFilters"
end KeyUp
on rawKeyUp
call KeyUp
pass rawKeyUp
end rawKeyUp
` @ 2 PictureChooserFilters (x on KeyUp --put the selectedChunk into posCursor --set the itemdelimiter to space --put item 4 of posCursor into posCursor delete file "_picture_chooser_filters.ini" open file "_picture_chooser_filters.ini" write field "PictureChooserFilters" to file "_picture_chooser_filters.ini" close file "_picture_chooser_filters.ini" --Global Info --put the selectedChunk into Info --Global Init --put 1 into Init --call resumeStack of this stack --put word 4 of Info into ThisCharNum --select after char ThisCharNum of field "PictureChooserFilters" --select after char posCursor of field "PictureChooserFilters" end KeyUp on rawKeyUp call KeyUp pass rawKeyUp end rawKeyUp @T cREVTable currentview cREVGeneral scriptChecksum '^))w§ revUniqueID 1136588243754 bookmarks handlerList KeyUp rawKeyUp tempScript prevHandler rawKeyDownscriptSelection char 650 to 649script ,on KeyUp
--put the selectedChunk into posCursor
--set the itemdelimiter to space
--put item 4 of posCursor into posCursor
delete file "_picture_chooser_filters.ini"
open file "_picture_chooser_filters.ini"
write field "PictureChooserFilters" to file "_picture_chooser_filters.ini"
close file "_picture_chooser_filters.ini"
--Global Info
--put the selectedChunk into Info
--Global Init
--put 1 into Init
--call resumeStack of this stack
--put word 4 of Info into ThisCharNum
--select after char ThisCharNum of field "PictureChooserFilters"
--select after char posCursor of field "PictureChooserFilters"
end KeyUp
on rawKeyUp
call KeyUp
pass rawKeyUp
end rawKeyUp
` @ T ChooseFile mpon mouseUp put empty into field "1a" put empty into field "1b" delete file "_file_chooser_choice.txt" set the clipboardData["text"] to empty --launch "_file_chooser" Global startupFolder Global ProgToShell$ put (startupFolder & "/_file_chooser" ) into ProgToShell$ Global NixProgToShell$ put ProgToShell$ into NixProgToShell$ replace " " with "\ " in NixProgToShell$ set the hideConsoleWindows to true get shell(NixProgToShell$) repeat forever wait 2 ticks if word 1 to -1 of (toLower(line 13 of field "FileChooserIni")) = "hd" then put url "file:_file_chooser_choice.txt" into field "1a" if field "1a" is not empty then if the number of chars in field "1a" > 0 then exit repeat end if end if end if if word 1 to -1 of (toLower(line 13 of field "FileChooserIni")) = "clipboard" then pass mouseUp --TEMP ONLY<<<<<<<<<<<<<< if the clipboard is not empty then put the clipboardData["Text"] into myVariable if the number of chars in myVariable > 0 then put myVariable into field "1b" wait 2 ticks exit repeat end if end if end if end repeat end mouseUp G x 8 Choose File cREVGeneral scriptChecksum WYTRFˍze revUniqueID 1136588320100 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 862 to 861scripton mouseUp
put empty into field "1a"
put empty into field "1b"
delete file "_file_chooser_choice.txt"
set the clipboardData["text"] to empty
--launch "_file_chooser"
Global startupFolder
Global ProgToShell$
put (startupFolder & "/_file_chooser" ) into ProgToShell$
Global NixProgToShell$
put ProgToShell$ into NixProgToShell$
replace " " with "\ " in NixProgToShell$
set the hideConsoleWindows to true
get shell(NixProgToShell$)
repeat forever
wait 2 ticks
if word 1 to -1 of (toLower(line 13 of field "FileChooserIni")) = "hd" then
put url "file:_file_chooser_choice.txt" into field "1a"
if field "1a" is not empty then
if the number of chars in field "1a" > 0 then
exit repeat
end if
end if
end if
if word 1 to -1 of (toLower(line 13 of field "FileChooserIni")) = "clipboard" then
pass mouseUp --TEMP ONLY<<<<<<<<<<<<<<
if the clipboard is not empty then
put the clipboardData["Text"] into myVariable
if the number of chars in myVariable > 0 then
put myVariable into field "1b"
wait 2 ticks
exit repeat
end if
end if
end if
end repeat
end mouseUp
Label Field t cREVTable currentview _file_chooser_choice.txt cREVGeneral revUniqueID 1136588328051 _file_chooser_choice.txt Label Field cREVTable currentview _picture_chooser_choice.txt cREVGeneral revUniqueID 1136588359651 _picture_chooser_choice.txt FileTitle @ cREVTable currentviewFILE CHOOSER
cREVGeneral revUniqueID 1136588383253 FILE CHOOSER Label Field T H cREVTable currentview <_file_chooser.ini
cREVGeneral revUniqueID 1136588392442 _file_chooser.ini @ Label Field cREVTable currentview D_file_chooser_filters.ini
cREVGeneral revUniqueID 1136588412256 _file_chooser_filters.ini @ PictureTitle @ > cREVTable currentviewPICTURE CHOOSER
cREVGeneral revUniqueID 1136588501049 PICTURE CHOOSER Label Field h< cREVTable currentview ?_picture_chooser.ini
cREVGeneral revUniqueID 1136588508051 _picture_chooser.ini @ Label Field ; cREVTable currentview G_picture_chooser_filters.ini
cREVGeneral revUniqueID 1136588513292 _picture_chooser_filters.ini @ Label Field d cREVTable currentview Clipboard: cREVGeneral revUniqueID 1136589205804 Clipboard: Label Field d cREVTable currentview Clipboard: cREVGeneral revUniqueID 1136589359616 Clipboard: FileChooserIni (x Gon KeyUp --put the selectedChunk into posCursor --set the itemdelimiter to space --put item 4 of posCursor into posCursor Global startupFolder set the defaultfolder to startupFolder delete file "_file_chooser.ini" open file "_file_chooser.ini" write field "FileChooserIni" to file "_file_chooser.ini" close file "_file_chooser.ini" --Global Info --put the selectedChunk into Info --Global Init --put 1 into Init --call resumeStack of this stack --put word 4 of Info into ThisCharNum --select after char ThisCharNum of field "FileChooserIni" --select after char posCursor of field "FileChooserIni" if the label of button "ChooseFile" is "Choose File" then if toLower(line 16 of field "FileChooserIni") is "folder" or toLower(line 16 of field "FileChooserIni") is "folder/" then set the label of button "ChooseFile" to "Choose Folder" end if exit keyUp end if if the label of button "ChooseFile" is "Choose Folder" then if toLower(line 16 of field "FileChooserIni") is not "folder" and toLower(line 16 of field "FileChooserIni") is not "folder/" then set the label of button "ChooseFile" to "Choose File" end if exit keyUp end if end KeyUp on rawKeyUp call KeyUp pass rawKeyUp end rawKeyUp on mouseMove put word 2 of the mouseLine into field "mLine" put word 2 of the mouseLine into tempVar2 if tempVar2 is not empty then --infoText_1 --fileInfo --------------------------------------------------- --put "infoText_" & field "mLine" into tempVar --Above doesn't work -------------------------------------------------- --put "infoText_" & "1" into tempVar --put field tempVar into field "fileInfo" --Above works ------------------------------------------------- put "infoText_" into tempVar1 --put field "mLine" into tempVar2 put tempVar1 & tempVar2 into tempVar3 put field tempVar3 into field "fileInfo" ------------------------------------------------- if the visible of field "fileInfo" is false then if tempVar2 > 0 and tempVar2 <= 16 then set the visible of field "fileInfo" to true else set the visible of field "fileInfo" to false end if end if else set the visible of field "fileInfo" to false end if end mouseMove @8 2 cREVTable currentview cREVGeneral scriptChecksum kP:#8N+o handlerList KeyUp rawKeyUp mouseMovescriptSelection char 1225 to 1224 revUniqueID 1136595221129 bookmarks scripteditorvscroll 997scripteditorselection 1318 tempScript prevHandler KeyUpscript {on KeyUp
--put the selectedChunk into posCursor
--set the itemdelimiter to space
--put item 4 of posCursor into posCursor
Global startupFolder
set the defaultfolder to startupFolder
delete file "_file_chooser.ini"
open file "_file_chooser.ini"
write field "FileChooserIni" to file "_file_chooser.ini"
close file "_file_chooser.ini"
--Global Info
--put the selectedChunk into Info
--Global Init
--put 1 into Init
--call resumeStack of this stack
--put word 4 of Info into ThisCharNum
--select after char ThisCharNum of field "FileChooserIni"
--select after char posCursor of field "FileChooserIni"
if the label of button "ChooseFile" is "Choose File" then
if toLower(line 16 of field "FileChooserIni") is "folder" or toLower(line 16 of field "FileChooserIni") is "folder/" then
set the label of button "ChooseFile" to "Choose Folder"
end if
exit keyUp
end if
if the label of button "ChooseFile" is "Choose Folder" then
if toLower(line 16 of field "FileChooserIni") is not "folder" and toLower(line 16 of field "FileChooserIni") is not "folder/" then
set the label of button "ChooseFile" to "Choose File"
end if
exit keyUp
end if
end KeyUp
on rawKeyUp
call KeyUp
pass rawKeyUp
end rawKeyUp
on mouseMove
put word 2 of the mouseLine into field "mLine"
put word 2 of the mouseLine into tempVar2
if tempVar2 is not empty then
--infoText_1
--fileInfo
---------------------------------------------------
--put "infoText_" & field "mLine" into tempVar
--Above doesn't work
--------------------------------------------------
--put "infoText_" & "1" into tempVar
--put field tempVar into field "fileInfo"
--Above works
-------------------------------------------------
put "infoText_" into tempVar1
--put field "mLine" into tempVar2
put tempVar1 & tempVar2 into tempVar3
put field tempVar3 into field "fileInfo"
-------------------------------------------------
if the visible of field "fileInfo" is false then
if tempVar2 > 0 and tempVar2 <= 16 then
set the visible of field "fileInfo" to true
else
set the visible of field "fileInfo" to false
end if
end if
else
set the visible of field "fileInfo" to false
end if
end mouseMove
Label Field Black 2> cREVTable currentviewStartup folder (path) [/]:
CD-Rom image (path) [empty]:
Floppy Diskette image (path) [empty]:
Indent size (no. blanks) [4]:
Font name [defaultl]:
Font size [14]:
Bold (yes or no) [no]:
Italic (yes or no) [no]:
Window left (nnn or centre or center) [centre]:
Window top (nnn or centre or center) [centre]:
Window width (value or max or min) [320]:
Window height (value or max or min) [240]:
Output mode (HD or clipboard) [HD]:
NOT USED
Treeview Node Folder Colour [red]:
Suggested File Name or folder or folder/ [empty]:
[default]:
cREVGeneral bookmarks revUniqueID 1136595436557 handlerList prevHandler tempScript script Startup folder (path) [/]: @ CD-Rom image (path) [empty]: @ &Floppy Diskette image (path) [empty]: @ Indent size (no. blanks) [4]: @ Font name [defaultl]: @ Font size [14]: @ Bold (yes or no) [no]: @ Italic (yes or no) [no]: @ 1Window left (nnn or centre or center) [centre]: ' @ ' / /Window top (nnn or centre or center) [centre]: % @ % - *Window width (value or max or min) [320]: # @ # ( +Window height (value or max or min) [240]: # @ # ) $Output mode (HD or clipboard) [HD]: @ " NOT USED @ #Treeview Node Folder Colour [red]: @ @ 2Suggested File Name or folder or folder/ [empty]: @ ( @ ( [default]: @ PictureChooserIni (x Con KeyUp --put the selectedChunk into posCursor --set the itemdelimiter to space --put item 4 of posCursor into posCursor delete file "_picture_chooser.ini" open file "_picture_chooser.ini" write field "PictureChooserIni" to file "_picture_chooser.ini" close file "_picture_chooser.ini" --Global Info --put the selectedChunk into Info --Global Init --put 1 into Init --call resumeStack of this stack --put word 4 of Info into ThisCharNum --select after char ThisCharNum of field "PictureChooserIni" --select after char posCursor of field "PictureChooserIni" if the label of button "ChoosePicture" is "Choose Picture" then if toLower(line 16 of field "PictureChooserIni") is "folder" or toLower(line 16 of field "PictureChooserIni") is "folder/" then set the label of button "ChoosePicture" to "Choose Folder" end if exit keyUp end if if the label of button "ChoosePicture" is "Choose Folder" then if toLower(line 16 of field "PictureChooserIni") is not "folder" and toLower(line 16 of field "PictureChooserIni") is not "folder/" then set the label of button "ChoosePicture" to "Choose Picture" end if exit keyUp end if end KeyUp on rawKeyUp call KeyUp pass rawKeyUp end rawKeyUp on mouseMove put word 2 of the mouseLine into field "mLine" put word 2 of the mouseLine into tempVar2 if tempVar2 is not empty then --infoText_1 --fileInfo --------------------------------------------------- --put "infoText_" & field "mLine" into tempVar --Above doesn't work -------------------------------------------------- --put "infoText_" & "1" into tempVar --put field tempVar into field "fileInfo" --Above works ------------------------------------------------- put "infoText_" into tempVar1 --put field "mLine" into tempVar2 put tempVar1 & tempVar2 into tempVar3 put field tempVar3 into field "pictureInfo" ------------------------------------------------- if the visible of field "pictureInfo" is false then if tempVar2 > 0 and tempVar2 <= 16 then set the visible of field "pictureInfo" to true else set the visible of field "pictureInfo" to false end if end if else set the visible of field "pictureInfo" to false end if end mouseMove @8T cREVTable currentview cREVGeneral scriptChecksum ={zQ ;j handlerList KeyUp rawKeyUp mouseMovescriptSelection char 1133 to 1132 bookmarks revUniqueID 1136597312856scripteditorvscroll 864scripteditorselection 1299 prevHandler rawKeyDown tempScript scripton KeyUp
--put the selectedChunk into posCursor
--set the itemdelimiter to space
--put item 4 of posCursor into posCursor
delete file "_picture_chooser.ini"
open file "_picture_chooser.ini"
write field "PictureChooserIni" to file "_picture_chooser.ini"
close file "_picture_chooser.ini"
--Global Info
--put the selectedChunk into Info
--Global Init
--put 1 into Init
--call resumeStack of this stack
--put word 4 of Info into ThisCharNum
--select after char ThisCharNum of field "PictureChooserIni"
--select after char posCursor of field "PictureChooserIni"
if the label of button "ChoosePicture" is "Choose Picture" then
if toLower(line 16 of field "PictureChooserIni") is "folder" or toLower(line 16 of field "PictureChooserIni") is "folder/" then
set the label of button "ChoosePicture" to "Choose Folder"
end if
exit keyUp
end if
if the label of button "ChoosePicture" is "Choose Folder" then
if toLower(line 16 of field "PictureChooserIni") is not "folder" and toLower(line 16 of field "PictureChooserIni") is not "folder/" then
set the label of button "ChoosePicture" to "Choose Picture"
end if
exit keyUp
end if
end KeyUp
on rawKeyUp
call KeyUp
pass rawKeyUp
end rawKeyUp
on mouseMove
put word 2 of the mouseLine into field "mLine"
put word 2 of the mouseLine into tempVar2
if tempVar2 is not empty then
--infoText_1
--fileInfo
---------------------------------------------------
--put "infoText_" & field "mLine" into tempVar
--Above doesn't work
--------------------------------------------------
--put "infoText_" & "1" into tempVar
--put field tempVar into field "fileInfo"
--Above works
-------------------------------------------------
put "infoText_" into tempVar1
--put field "mLine" into tempVar2
put tempVar1 & tempVar2 into tempVar3
put field tempVar3 into field "pictureInfo"
-------------------------------------------------
if the visible of field "pictureInfo" is false then
if tempVar2 > 0 and tempVar2 <= 16 then
set the visible of field "pictureInfo" to true
else
set the visible of field "pictureInfo" to false
end if
end if
else
set the visible of field "pictureInfo" to false
end if
end mouseMove
Label Field T> cREVTable currentviewStartup folder (path) [/]:
CD-Rom image (path) [empty]:
Floppy Diskette image (path) [empty]:
Indent size (no. blanks) [4]:
Font name [defaultl]:
Font size [14]:
Bold (yes or no) [no]:
Italic (yes or no) [no]:
Window left (nnn or centre or center) [centre]:
Window top (nnn or centre or center) [centre]:
Window width (value or max or min) [320]:
Window height EXCLUDING PIC HT (value or max or min) [240]:
Output mode (HD or clipboard) [HD]:
Preview picture height (min=240) [240]:
Treeview Node Folder Colour [red]:
Suggested File Name or folder or folder/ [empty]:
[default]:
cREVGeneral revUniqueID 1136597496485 Startup folder (path) [/]: @ CD-Rom image (path) [empty]: @ &Floppy Diskette image (path) [empty]: @ Indent size (no. blanks) [4]: @ Font name [defaultl]: @ Font size [14]: @ Bold (yes or no) [no]: @ Italic (yes or no) [no]: @ 1Window left (nnn or centre or center) [centre]: ' @ ' /Window top (nnn or centre or center) [centre]: % @ % *Window width (value or max or min) [320]: # @ #on mouseEnter
set the lockCursor to true
set the cursor to hand
end mouseEnter
on mouseLeave
set the lockCursor to false
set the cursor to arrow
end mouseLeave
on mouseUp
revGoURL "http://www.howsoft.com"
end mouseUp
Label Field \ : cREVTable currentviewTry changing the parameters in the boxes on the left and then choosing files or pictures to see the effects on the widgets.
cREVGeneral revUniqueID 1137427690041 |Try changing the parameters in the boxes on the left and then choosing files or pictures to see the effects on the widgets. @ { SeeFileScript mp D on mouseUp answer the script of button "ChooseFile" end mouseUp G R _ See Script cREVGeneral scriptChecksum C? [< bookmarks revUniqueID 1172783273406 handlerList mouseUpscriptSelection char 1 to 0 prevHandler mouseUp tempScript scripton mouseUp
answer the script of button "ChooseFile"
end mouseUp
SeePictureScript mp Fon mouseUp answer the script of button "ChoosePicture" end mouseUp l R ] See Script cREVGeneral scriptChecksum Y.'7r%|N revUniqueID 1172783291327 bookmarks handlerList mouseUp tempScript prevHandler scriptSelection char 56 to 55scripton mouseUp
answer the script of button "ChoosePicture"
end mouseUp
ChoosePicture mp.on mouseUp put empty into field "2a" put empty into field "2b" delete file "_picture_chooser_choice.txt" set the clipboardData["text"] to empty --launch "_picture_chooser" Global startupFolder Global ProgToShell$ put (startupFolder & "/_picture_chooser" ) into ProgToShell$ Global NixProgToShell$ put ProgToShell$ into NixProgToShell$ replace " " with "\ " in NixProgToShell$ set the hideConsoleWindows to true get shell(NixProgToShell$) repeat forever wait 2 ticks if word 1 to -1 of (toLower(line 13 of field "PictureChooserIni")) = "hd" then put url "file:_picture_chooser_choice.txt" into field "2a" if field "2a" is not empty then if the number of chars in field "2a" > 0 then exit repeat end if end if end if if word 1 to -1 of (toLower(line 13 of field "PictureChooserIni")) = "clipboard" then pass mouseUp --TEMP ONLY<<<<<<<<<<<<<< if the clipboard is not empty then breakpoint put the clipboardData["Text"] into myVariable if the number of chars in myVariable > 0 then put myVariable into field "2b" wait 2 ticks exit repeat end if end if end if end repeat end mouseUp l x U Choose Picture cREVGeneral scriptChecksum ມ2Xc<$_ bookmarks revUniqueID 1172783524850 handlerList mouseUpscriptSelection char 564 to 563 prevHandler mouseUp tempScript scripton mouseUp
put empty into field "2a"
put empty into field "2b"
delete file "_picture_chooser_choice.txt"
set the clipboardData["text"] to empty
--launch "_picture_chooser"
Global startupFolder
Global ProgToShell$
put (startupFolder & "/_picture_chooser" ) into ProgToShell$
Global NixProgToShell$
put ProgToShell$ into NixProgToShell$
replace " " with "\ " in NixProgToShell$
set the hideConsoleWindows to true
get shell(NixProgToShell$)
repeat forever
wait 2 ticks
if word 1 to -1 of (toLower(line 13 of field "PictureChooserIni")) = "hd" then
put url "file:_picture_chooser_choice.txt" into field "2a"
if field "2a" is not empty then
if the number of chars in field "2a" > 0 then
exit repeat
end if
end if
end if
if word 1 to -1 of (toLower(line 13 of field "PictureChooserIni")) = "clipboard" then
pass mouseUp --TEMP ONLY<<<<<<<<<<<<<<
if the clipboard is not empty then
breakpoint
put the clipboardData["Text"] into myVariable
if the number of chars in myVariable > 0 then
put myVariable into field "2b"
wait 2 ticks
exit repeat
end if
end if
end if
end repeat
end mouseUp
Col1 hmp on mouseEnter lock cursor set the cursor to 10 end mouseEnter on mouseLeave set the cursor to 8 unlock cursor end mouseLeave on mouseUp set the visible of button "colFile" to true end mouseUp ( Col cREVGeneral scriptChecksum +F5cuxC48r revUniqueID 1172788041800 bookmarks handlerList mouseEnter mouseLeave mouseUp tempScript prevHandler mouseEnterscriptSelection char 197 to 196scripton mouseEnter
lock cursor
set the cursor to 10
end mouseEnter
on mouseLeave
set the cursor to 8
unlock cursor
end mouseLeave
on mouseUp
set the visible of button "colFile" to true
end mouseUp
Col2 hmp on mouseEnter lock cursor set the cursor to 10 end mouseEnter on mouseLeave set the cursor to 8 unlock cursor end mouseLeave on mouseUp set the visible of button "colPic" to true end mouseUp ( Col cREVGeneral scriptChecksum pG0QhXY- revUniqueID 1172788047832 bookmarks handlerList mouseEnter mouseLeave mouseUp tempScript prevHandler mouseEnterscriptSelection char 185 to 184scripton mouseEnter
lock cursor
set the cursor to 10
end mouseEnter
on mouseLeave
set the cursor to 8
unlock cursor
end mouseLeave
on mouseUp
set the visible of button "colPic" to true
end mouseUp
colFile #uvon mouseUp put the label of button "colFile" into line 15 of field "FileChooserIni" Global startupFolder set the defaultfolder to startupFolder delete file "_file_chooser.ini" open file "_file_chooser.ini" write field "FileChooserIni" to file "_file_chooser.ini" close file "_file_chooser.ini" set the visible of button "colFile" to false end mouseUp H _ red ired blue cherry cyan darkblue darkbrown darkgreen darkgrey grey lightbrown lightgreen mauve white yellow cREVGeneral scriptChecksum 麷 ET33cK] bookmarks revUniqueID 1172790333934 handlerList mouseUpscriptSelection char 63 to 62 prevHandler mouseUp tempScript script Ion mouseUp
put the label of button "colFile" into line 15 of field "FileChooserIni"
Global startupFolder
set the defaultfolder to startupFolder
delete file "_file_chooser.ini"
open file "_file_chooser.ini"
write field "FileChooserIni" to file "_file_chooser.ini"
close file "_file_chooser.ini"
set the visible of button "colFile" to false
end mouseUp
colPic #uFon mouseUp put the label of button "colPic" into line 15 of field "PictureChooserIni" delete file "_picture_chooser.ini" open file "_picture_chooser.ini" write field "PictureChooserIni" to file "_picture_chooser.ini" close file "_picture_chooser.ini" set the visible of button "colPic" to false end mouseUp > ] red ired blue cherry cyan darkblue darkbrown darkgreen darkgrey grey lightbrown lightgreen mauve white yellow cREVGeneral scriptChecksum )k1%J bookmarks revUniqueID 1172790373745 handlerList mouseUpscriptSelection char 62 to 61 prevHandler mouseUp tempScript scripton mouseUp
put the label of button "colPic" into line 15 of field "PictureChooserIni"
delete file "_picture_chooser.ini"
open file "_picture_chooser.ini"
write field "PictureChooserIni" to file "_picture_chooser.ini"
close file "_picture_chooser.ini"
set the visible of button "colPic" to false
end mouseUp
mLine ` 4 . answercolor 255,255,255 cREVTable currentview cREVGeneral revUniqueID 1176657208271 fileInfo h 2 answercolor 255,255,255 cREVTable currentview cREVGeneral bookmarks revUniqueID 1176657427653 handlerList prevHandler tempScript script SUGGESTED FILE NAME e.g. newfile nIf you are using a widget for "SaveAs" functions, your program can set parameter 16 to suggest the file name. e.g. folder OR folder/ jBoth widgets can be used as FOLDER choosers rather than FILE choosers. If you want to use the current widget as a FOLDER chooser, specify "folder" or "folder/" instead of a suggested file name. In this case, the widget will return a PATH ONLY without a file name. The "/" on the end simply determines that the path returned should have a slash at the end of it. If the File Chooser is used for folders only, the rightmost field (for showing files) will NOT APPEAR. If the Picture Chooser is used for this purpose (choosing folders only), picture previewing of the folders' contents will still be allowed, but no filenames will be returned. fontFile #uwon mouseUp put the label of button "fontFile" into line 5 of field "FileChooserIni" Global startupFolder set the defaultfolder to startupFolder delete file "_file_chooser.ini" open file "_file_chooser.ini" write field "FileChooserIni" to file "_file_chooser.ini" close file "_file_chooser.ini" set the visible of button "fontFile" to false end mouseUp H h Y andale mono andale mono arial arial black bitstream charter bitstream vera sans bitstream vera sans mono bitstream vera serif charter clean comic sans ms courier courier 10 pitch courier new dejavu sans dejavu sans mono dejavu serif fixed freemono freesans freeserif garuda georgia gothic helvetica impact lucida lucidabright lucidatypewriter mincho new century schoolbook norasi sawasdee terminal times times new roman tlwgmono tlwgtypewriter tlwgtypist trebuchet ms verdana waree cREVGeneral scriptChecksum P\s#ܼS m bookmarks revUniqueID 1176658147205 handlerList mouseUpscriptSelection char 348 to 347 prevHandler mouseUp tempScript script Jon mouseUp
put the label of button "fontFile" into line 5 of field "FileChooserIni"
Global startupFolder
set the defaultfolder to startupFolder
delete file "_file_chooser.ini"
open file "_file_chooser.ini"
write field "FileChooserIni" to file "_file_chooser.ini"
close file "_file_chooser.ini"
set the visible of button "fontFile" to false
end mouseUp
font1 hmp on mouseEnter lock cursor set the cursor to 10 end mouseEnter on mouseLeave set the cursor to 8 unlock cursor end mouseLeave on mouseUp set the visible of button "fontFile" to true end mouseUp h ( font cREVGeneral scriptChecksum RUnsIF bookmarks revUniqueID 1176659143267 handlerList mouseEnter mouseLeave mouseUpscriptSelection char 185 to 184 prevHandler tempScript scripton mouseEnter
lock cursor
set the cursor to 10
end mouseEnter
on mouseLeave
set the cursor to 8
unlock cursor
end mouseLeave
on mouseUp
set the visible of button "fontFile" to true
end mouseUp
font2 hmp on mouseEnter lock cursor set the cursor to 10 end mouseEnter on mouseLeave set the cursor to 8 unlock cursor end mouseLeave on mouseUp set the visible of button "fontPicture" to true end mouseUp ( font cREVGeneral scriptChecksum RǓ&9³u bookmarks revUniqueID 1176659435025 handlerList mouseEnter mouseLeave mouseUpscriptSelection char 192 to 191 prevHandler mouseEnter tempScript scripton mouseEnter
lock cursor
set the cursor to 10
end mouseEnter
on mouseLeave
set the cursor to 8
unlock cursor
end mouseLeave
on mouseUp
set the visible of button "fontPicture" to true
end mouseUp
" fontPicture #uOon mouseUp put the label of button "fontPicture" into line 5 of field "PictureChooserIni" delete file "_picture_chooser.ini" open file "_picture_chooser.ini" write field "PictureChooserIni" to file "_picture_chooser.ini" close file "_picture_chooser.ini" set the visible of button "fontPicture" to false end mouseUp H } andale mono andale mono arial arial black bitstream charter bitstream vera sans bitstream vera sans mono bitstream vera serif charter clean comic sans ms courier courier 10 pitch courier new dejavu sans dejavu sans mono dejavu serif fixed freemono freesans freeserif garuda georgia gothic helvetica impact lucida lucidabright lucidatypewriter mincho new century schoolbook norasi sawasdee terminal times times new roman tlwgmono tlwgtypewriter tlwgtypist trebuchet ms verdana waree cREVGeneral scriptChecksum `>PXM9}b bookmarks revUniqueID 1176659550468 handlerList mouseUpscriptSelection char 53 to 52 prevHandler mouseUp tempScript scripton mouseUp
put the label of button "fontPicture" into line 5 of field "PictureChooserIni"
delete file "_picture_chooser.ini"
open file "_picture_chooser.ini"
write field "PictureChooserIni" to file "_picture_chooser.ini"
close file "_picture_chooser.ini"
set the visible of button "fontPicture" to false
end mouseUp
# pictureInfo h white red T cREVTable currentview cREVGeneral revUniqueID 1177960517614 STARTUP FOLDER e.g. /home/bob/Desktop Instead of navigating to the root of the HD when the widget is first displayed, you can navigate directly to a folder. To do so, specify it here. 5 hidden a cREVGeneral revUniqueID 1177983916770 $ hiddenBack ` white cREVTable currentview cREVGeneral revUniqueID 1177981385557 % infoText_1 ` white cREVTable currentview STARTUP FOLDER e.g. /home/bob/Desktop Instead of navigating to the root of the HD when the widget is first displayed, you can navigate directly to a folder. To do so, specify it here. cREVGeneral revUniqueID 1177981599210 STARTUP FOLDER e.g. /home/bob/Desktop Instead of navigating to the root of the HD when the widget is first displayed, you can navigate directly to a folder. To do so, specify it here. & infoText_2 ` white cREVTable currentview STARTUP PATH TO CD-ROM IMAGE The use of this parameter assumes that the CD-Rom drive has been mounted. In this case, the image of the CD-Rom exists at some location on the HD: e.g. in UBUNTU /media/cdrom Specification of this image path (rather than leaving it empty) will cause the widget to display an icon for the CD-Rom at the top which can be clicked on directly by the operator for navigation. Otherwise, the operator can still find the image of the CD-Rom by navigation on the HD. cREVGeneral revUniqueID 1177981853360 STARTUP PATH TO CD-ROM IMAGE JThe use of this parameter assumes that the CD-Rom drive has been mounted. IIn this case, the image of the CD-Rom exists at some location on the HD: e.g. in UBUNTU /media/cdrom Specification of this image path (rather than leaving it empty) will cause the widget to display an icon for the CD-Rom at the top which can be clicked on directly by the operator for navigation. Otherwise, the operator can still find the image of the CD-Rom by navigation on the HD. ' infoText_3 ` white cREVTable currentview STARTUP PATH TO DISKETTE IMAGE The use of this parameter assumes that the floppy diskette drive has been mounted. In this case, the image of the diskette exists at some location on the HD: e.g. in UBUNTU /media/floppy Specification of this image path (rather than leaving it empty) will cause the widget to display an icon for the diskette at the top which can be clicked on directly by the operator for navigation. Otherwise, the operator can still find the image of the diskette by navigation on the HD. cREVGeneral revUniqueID 1177981944765 STARTUP PATH TO DISKETTE IMAGE SThe use of this parameter assumes that the floppy diskette drive has been mounted. KIn this case, the image of the diskette exists at some location on the HD: e.g. in UBUNTU /media/floppy Specification of this image path (rather than leaving it empty) will cause the widget to display an icon for the diskette at the top which can be clicked on directly by the operator for navigation. Otherwise, the operator can still find the image of the diskette by navigation on the HD. ( infoText_4 ` white d cREVTable currentview XINDENT SIZE When you click on the nodes of the tree shown on the left hand side of the widget represented by little coloured folders, they will be expanded to show their sub-folders on following lines, and to show that they are sub-folders, they are indented. You can control the width of such indentations by specifying this parameter. e.g. 8 cREVGeneral revUniqueID 1177982055085 INDENT SIZE When you click on the nodes of the tree shown on the left hand side of the widget represented by little coloured folders, they will be expanded to show their sub-folders on following lines, and to show that they are sub-folders, they are indented. MYou can control the width of such indentations by specifying this parameter. e.g. 8 ) infoText_5 ` white n cREVTable currentview 1FONT NAME
To determine the font to be used on the widget, you can type it here, or you can click on the "FONT" button to choose the font you want to use.
e.g.
courier
If you do not specify a font, the system's default font will be used.
cREVGeneral revUniqueID 1177982157562 FONT NAME To determine the font to be used on the widget, you can type it here, or you can click on the "FONT" button to choose the font you want to use. e.g. courier FIf you do not specify a font, the system's default font will be used. * infoText_6 ` white n cREVTable currentview FONT SIZE e.g. 14 The tree in the left panel and the files list in the right panel will display your font at this size. To avoid overspilling the buttons at the bottom of the widget, which are of fixed width and height, this font size will not be applied to the buttons. cREVGeneral revUniqueID 1177982232689 FONT SIZE e.g. 14 fThe tree in the left panel and the files list in the right panel will display your font at this size. To avoid overspilling the buttons at the bottom of the widget, which are of fixed width and height, this font size will not be applied to the buttons. + infoText_7 ` white n cREVTable currentview qBOLD e.g. yes The font chosen for the widget will be shown in bold (if the property is available for the font). cREVGeneral revUniqueID 1177982291432 BOLD e.g. yes bThe font chosen for the widget will be shown in bold (if the property is available for the font). , infoText_8 ` white h n cREVTable currentview vITALIC e.g. yes The font chosen for the widget will be shown in italics (if the property is available for the font). cREVGeneral revUniqueID 1177982351294 ITALIC e.g. yes eThe font chosen for the widget will be shown in italics (if the property is available for the font). - infoText_9 ` white cREVTable currentviewWINDOW LEFT
e.g.
150
If the width of the widget has not been set to "max" in parameter 11 ("Window Width"), this value will determine the position of the left hand side of the widget.
If parameter 11 ("Window Width") has been set to "max", whatever you specify here will be ignored, since the widget left must necessarily be set to 0 in order to occupy the whole width.
If parameter 11 ("Window Width") has NOT been set to "max" and parameter 9 is empty, then the widget will be centralized across the middle of the screen.
cREVGeneral revUniqueID 1177982846805 WINDOW LEFT e.g. 150 If the width of the widget has not been set to "max" in parameter 11 ("Window Width"), this value will determine the position of the left hand side of the widget. If parameter 11 ("Window Width") has been set to "max", whatever you specify here will be ignored, since the widget left must necessarily be set to 0 in order to occupy the whole width. If parameter 11 ("Window Width") has NOT been set to "max" and parameter 9 is empty, then the widget will be centralized across the middle of the screen. . infoText_10 ` white cREVTable currentviewWINDOW TOP
e.g.
95
If the height of the widget has not been set to "max" in parameter 12 ("Window Height"), this value will determine the position of the top of the widget.
If parameter 12 ("Window Height") has been set to "max", whatever you specify here will be ignored, since the widget top must necessarily be set to an appropriate value in order to occupy the whole available height.
If parameter 12 ("Window Height") has NOT been set to "max" and parameter 10 is empty, then the widget will be centralized down the middle of the screen.
cREVGeneral revUniqueID 1177982919668 WINDOW TOP e.g. 95 If the height of the widget has not been set to "max" in parameter 12 ("Window Height"), this value will determine the position of the top of the widget. If parameter 12 ("Window Height") has been set to "max", whatever you specify here will be ignored, since the widget top must necessarily be set to an appropriate value in order to occupy the whole available height. If parameter 12 ("Window Height") has NOT been set to "max" and parameter 10 is empty, then the widget will be centralized down the middle of the screen. / infoText_11 ` white cREVTable currentview *WINDOW WIDTH e.g. 640 e.g. max e.g. min cREVGeneral revUniqueID 1177983013694 WINDOW WIDTH e.g. 640 e.g. max e.g. min 0 infoText_12 ` white f cREVTable currentviewWINDOW HEIGHT
e.g.
480
e.g.
max
e.g.
min
Please note that the specification of "max" for the widget height is only guaranteed to work correctly in UBUNTU. For other Linux distros you will need to calculate the height available and specify it in pixels.
Please note also that this height DOES NOT INCLUDE the preview picture height specified in parameter 14. Parameter 14 is ADDED TO the Window Height specified here in parameter 12.
cREVGeneral revUniqueID 1177983086360 WINDOW HEIGHT e.g. 480 e.g. max e.g. min Please note that the specification of "max" for the widget height is only guaranteed to work correctly in UBUNTU. For other Linux distros you will need to calculate the height available and specify it in pixels. Please note also that this height DOES NOT INCLUDE the preview picture height specified in parameter 14. Parameter 14 is ADDED TO the Window Height specified here in parameter 12. 1 infoText_13 ` white cREVTable currentview KOUTPUT MODE
e.g.
hd
e.g.
clipboard [MIGHT NOT WORK]
The path and/or file chosen by the operator can be returned to a file residing in the same folder as the widget itself. Theoretically, as an alternative when choosing folders/files from CD-Roms etc. where writing is impossible, the widget's output can be put on the clipboard. However, YOU MAY FIND THAT LINUX CLEARS THE CLIPBOARD WHEN THE WIDGET (or any other program for that matter) IS CLOSED! In this case, the option "clipboard" cannot of course be used.
cREVGeneral revUniqueID 1177983385907 OUTPUT MODE e.g. hd e.g. clipboard [MIGHT NOT WORK] The path and/or file chosen by the operator can be returned to a file residing in the same folder as the widget itself. Theoretically, as an alternative when choosing folders/files from CD-Roms etc. where writing is impossible, the widget's output can be put on the clipboard. However, YOU MAY FIND THAT LINUX CLEARS THE CLIPBOARD WHEN THE WIDGET (or any other program for that matter) IS CLOSED! In this case, the option "clipboard" cannot of course be used. 2 infoText_14 ` white cREVTable currentviewPREVIEW PICTURE HEIGHT
e.g.
300
This value is only applicable to the Picture Chooser. It will be ignored by the File Chooser.
It determines the height of the preview pictures to be shown. In order to maintain the correct aspect of the picture, the preview picture's width will be adjusted proportionally.
For the Picture Chooser, this value needs to be added to the "Window height" in parameter 12 in order to calculate the true height of the whole widget window.
cREVGeneral revUniqueID 1177983430949 PREVIEW PICTURE HEIGHT e.g. 300 ^This value is only applicable to the Picture Chooser. It will be ignored by the File Chooser. It determines the height of the preview pictures to be shown. In order to maintain the correct aspect of the picture, the preview picture's width will be adjusted proportionally. For the Picture Chooser, this value needs to be added to the "Window height" in parameter 12 in order to calculate the true height of the whole widget window. 3 infoText_15 ` white cREVTable currentviewNODE FOLDER COLOUR
e.g.
darkgreen
You can change the colour of the little folders shown at the nodes of the tree in the leftmost field.
Click on the "col" button to choose one of the available colours.
cREVGeneral revUniqueID 1177983466790 NODE FOLDER COLOUR e.g. darkgreen fYou can change the colour of the little folders shown at the nodes of the tree in the leftmost field. BClick on the "col" button to choose one of the available colours. 4 infoText_16 ` white f cREVTable currentviewSUGGESTED FILE NAME
e.g.
newfile
If you are using a widget for "SaveAs" functions, your program can set parameter 16 to suggest the file name.
e.g.
folder OR folder/
Both widgets can be used as FOLDER choosers rather than FILE choosers. If you want to use the current widget as a FOLDER chooser, specify "folder" or "folder/" instead of a suggested file name. In this case, the widget will return a PATH ONLY without a file name. The "/" on the end simply determines that the path returned should have a slash at the end of it.
If the File Chooser is used for folders only, the rightmost field (for showing files) will NOT APPEAR. If the Picture Chooser is used for this purpose (choosing folders only), picture previewing of the folders' contents will still be allowed, but no filenames will be returned.
cREVGeneral revUniqueID 1177983505954 SUGGESTED FILE NAME e.g. newfile nIf you are using a widget for "SaveAs" functions, your program can set parameter 16 to suggest the file name. e.g. folder OR folder/ jBoth widgets can be used as FOLDER choosers rather than FILE choosers. If you want to use the current widget as a FOLDER chooser, specify "folder" or "folder/" instead of a suggested file name. In this case, the widget will return a PATH ONLY without a file name. The "/" on the end simply determines that the path returned should have a slash at the end of it. If the File Chooser is used for folders only, the rightmost field (for showing files) will NOT APPEAR. If the Picture Chooser is used for this purpose (choosing folders only), picture previewing of the folders' contents will still be allowed, but no filenames will be returned.