Re: Dilemma
Re: Dilemma
- Subject: Re: Dilemma
- From: Takaaki Naganoya <email@hidden>
- Date: Tue, 18 Jul 2017 18:38:38 +0900
There is many ways to reduce the number of button or checkbox.
(1)Saved Preset
The number of pattern to indicate each option is very limited (if there is a
lot of option).
So, we prepare “Presets” and choose one.
(2)Hierarchical menu
(3)Other
--
Takaaki Naganoya
email@hidden
http://piyocast.com/as/
> 2017/07/15 10:24、Takaaki Naganoya <email@hidden>のメール:
>
> Your program looks like following…
>
> https://static1.squarespace.com/static/51cdafc4e4b09eb676a64e68/t/57968696197aea844556ed01/1469482650889/?format=1000w
>
> https://www.pixar.com/lifted/#lifted-1
>
> --
> Takaaki Naganoya
> email@hidden
> http://piyocast.com/as/
>
>> 2017/07/06 16:17、Brian Christmas <email@hidden>のメール:
>>
>> G’day scripters
>>
>> I want to be able to switch on the GraphicConverter printing of all of the
>> 276 different formats it can print, selectively.
>>
>> Rather than create 276 properties, I’ve set up 276 check boxes, with the
>> same action, and each with a Title matching each of the graphic formats, on
>> one window, and a box. All unlinked to a property.
>>
>> In the action, I can get the Title OK, but can’t work out a way of getting,
>> (and perhaps setting), the value (ticked or unticked).
>>
>> I’ve tried to just use the Title to address each box, but the code errors.
>> Any suggestions on how I might avoid adding 276 properties (I’ll leave the
>> feature out of my App before I resort to that).
>>
>> Here’s the code I’m trialling before adding it to my App. (And no, Shane
>> won’t answer, I’m personna non-gratis to him since I criticised ‘Script
>> Debugger’, with two major bugs that went unfixed for weeks after my
>> reporting them, and are still unfixed many months later)
>>
>> Regards
>>
>> Santa
>>
>> --
>> -- AppDelegate.applescript
>> -- GC Name Extension lister
>> --
>> -- Created by Brian Christmas on 6/7/17.
>> -- Copyright © 2017 MeSelf Software. All rights reserved.
>> --
>>
>> script AppDelegate
>> # property parent : class "NSObject"
>> property parent : class "ObjectWithFords"
>>
>> -- IBOutlets
>> property ListWindow : missing value
>> property box1 : missing value
>> property listValues : {}
>> property firstCheckBox : missing value
>> property ListWindowSetUp : false
>> property ExtValueDict : {}
>> property mailManagerDesktopFolderPath : ((path to desktop as text) &
>> "Mail Manager Folder:")
>> property setUpExtension : false
>> property extensionsToIgnore : {".D", "8BIM", "AAI", "Acorn Sprite",
>> "AFP", "ALIAS", "AMBER ARR", "AMC", "Analyze", "ANI", "ANI", "ANPA", "Apple
>> File Icon", "Apple Preferred", "ART", "ARW", "ASCII", "Atari Portfolio",
>> "B3D", "Bio", "BioRad", "BLD", "BMP", "BSB", ¬
>> "BSP", "BUF", "BUM", "Byte-Array Hea- der File (.H)", "CALS",
>> "c4", "CAM", "CALS", "CEL", "CGM", "Chyron", "cicn", "CINEON",
>> "CISCOIpPhoneI mages", "CLP", "cri", "CRW", "CR2", "csource", "CT", "CUR",
>> "CVG", "CWK", "DCS", "DCR", "DCX", "DDS", "DeltaVision", ¬
>> "DESR VFF", "DICoM", "Direct icns", "Diskus YUV", "DJ1000",
>> "DL", "dm2/dm3", "DNG", "Doodle", "DPX", "Dr. Halo", "DrawIT", "ECW",
>> "ElectronicImage", "EPSF", "ESM", "Facesaver", "Favicon ICO", "FAX",
>> "FaxSTF", "fep", "fig", "First Publisher art", "FireViewer PDB", ¬
>> "FITS", "FLH/FLI/FLC", "FPX", "Freehand 10", "FUJI", "GATAN",
>> "GEM", "GFX", "GIF", "GrayPaint", "GRP", "HAM", "HD Photo (wdp)", "HDR",
>> "HP-GL/2", "HGT", "HMR", "HTC splashscreens", "IBL", "IBM PIC", "IC ?
>> Imagic", "lcd5", "ICo/ICN", "IFF/LBM", "IM", "Image ->Finder", ¬
>> "ImageLab/PrintTechnic", "IMG/XIMG", "IMQ", "IPLab", "ithmb",
>> "IRIS", "ISS", "j6i", "JBI", "JEDMICS C4", "JIF", "JNG", "JPEG/JFIF", "JPEG
>> 2000", "JPF", "JPX", "KDC", "Keynote PICT", "KISS CEL", "Koala", "Kodak
>> DCS", "KoNTRoN", "LDF", "Liberty IM", "LIFF", "LOGO", ¬
>> "Lotus-PIC", "LuraDocument", "LWF (LuraWave)", "MacDraw I",
>> "MacPaint", "MAG", "MAYA-IFF", "MBM (Psion 5)", "Meteosat 5", "MDC",
>> "Meteosat 5", "MHT", "MonkeyLogo", "MonkeyCard", "Mov", "MPO", "MP2", "MRC",
>> "MrSID", "MRW", "MSP", "MSX MSX2, MSX+ - MSX2+", "NAA/IPTC", ¬
>> "NASA Raster Metafile", "NEF", "NEO", "NGG/NCG", "NIF", "NIST
>> PCT", "Nokia .pict", "NoL", "NV12", "ODF", "oNCoR", "ORF", "OTA", "P ? ?
>> Degas", "Palette", "Palm image stream", "PAM", "PAC STAD", "PaperPort
>> (MAX)", "PBM/PGM/PPM", "PCD", "PCX", "PIC (32K)", "PIC", ¬
>> "PIC", "PIC", "PICS", "PICT", "PICT resource", "PDB", "PDF",
>> "PDS3", "PEF", "PFM", "PGC/PGF", "Photo PDB", "Photostudio", "PGPF",
>> "PGC/PGF", "Photo Raw", "PIX", "PM", "PNG", "PoRST", "PowerPoint", "Ppat",
>> "PSD", "PSP", "PTG", "PWP", "Pxx - Degas", "QDV", "QNT", "QTIF", ¬
>> "QTL", "RAF", "RAW", "RDC", "RIFF", "RLA", "RLE", "RSB", "RTF",
>> "RW2", "SCR", "SCR", "Scrap", "ScreenShot Hack PDB", "SCX", "SFF", "SFW",
>> "SGI", "SHP", "SHS", "SIGMA SD10 raw", "Sinclair QL", "SIXEL", "SKETCH",
>> "SMV", "SNX", "SoFTIMAGE", "SPC", "SRF", "ST X SBIG", "StartupScreen s",
>> ¬
>> "STV", "SUN", "Super-Hi-Res 3200", "SVG", "SWF", "System 7
>> clip", "TBC", "TCL", "TealPaint PDB", "TEX", "TGA", "TIFF", "TIM PSX", "Tiny
>> Viewer PDB", "TN ?", "TRS-80", "VBM", "VFF", "VGS-8", "VITRoNIC", "VoXEL",
>> "VPB", "VPM", "WBIN", "WBMP", "wbz", "wdb", "Webp", "Winfax (FXM)",
>> "Winmail.dat", ¬
>> "WMF", "WPG", "X11", "X3F", "XBM", "XCF", "XFIG", "X-Face",
>> "XPM", "XWD", "YUV"} -- "asc" is signature
>>
>> on applicationWillFinishLaunching:aNotification
>> -- Insert code here to initialize your application before any
>> files are opened
>> tell me to activate
>> my displayExtensionsWindow()
>> end applicationWillFinishLaunching:
>>
>> on displayExtensionsWindow()
>> set (my setUpExtension) to true
>> tell application "Finder"
>> if not (exists file ((my mailManagerDesktopFolderPath
>> as text) & "Extension Data.plist")) then
>> say 1
>> set listValuesTemp to ""
>> repeat with eachExtension in (my
>> extensionsToIgnore)
>> set listValuesTemp to listValuesTemp &
>> true & "," as text
>> end repeat
>> set listValuesTemp to characters 1 through -2
>> of listValuesTemp as text
>> tell application "System Events" to display
>> dialog listValuesTemp
>> set (my listValues) to listValuesTemp
>> set (my ExtValueDict) to current application's
>> NSDictionary's dictionaryWithObjects:{(my extensionsToIgnore)}
>> forKeys:{listValuesTemp}
>> my SaveExtensionData()
>> else
>> set (my setUpExtension) to false
>> end if
>> end tell
>> try
>> tell ListWindow to display()
>> end try
>> my fordEvent()
>> try
>> tell me to activate
>> end try
>> ListWindow's makeKeyAndOrderFront:me
>> if not (my setUpExtension) then my clickBoxesToSetUp()
>> end displayExtensionsWindow
>>
>>
>> on setUpTitleValue:sender
>> set tempSender to sender
>> try
>> set p to 1
>> set tempTitle to tempSender's title() as text
>> say tempTitle -- < Works OK!
>> set p to 2
>> if (my setUpExtension) then
>> set p to 2.1
>> tell application "System Events" to tell
>> process "GC Name Extension lister"
>> set p to 2.2
>> tell window "Extensions active setter"
>> set p to 2.3
>> set tempV to value of checkbox
>> tempTitle of group 1 as boolean
>> end tell
>> end tell
>> say tempV as text
>> set temp of (my ExtValueDict) to tempV
>> my SaveExtensionData()
>> else
>> set p to 3
>> tell application "System Events"
>> set value of sender to temp of (my
>> ExtValueDict)
>> end tell
>> end if
>> on error errmsg number errnum
>> tell application "System Events" to display dialog
>> ("AppDelegate's setUpTitleValue " & " p = " & p & " " & errmsg as text)
>> end try
>> end setUpTitleValue:
>>
>> on SaveExtensionData()
>> try
>> set thePPath to POSIX path of ((my
>> mailManagerDesktopFolderPath as text) & "Extension Data.plist") as text
>> end try
>> try
>> tell application id "com.apple.systemevents"
>> (my ExtValueDict)'s writeToFile:thePPath
>> atomically:true
>> end tell
>> on error errmsg number errnum
>> tell application "System Events" to display dialog
>> ("AppDelegate's SaveExtensionData " & errmsg as text)
>> end try
>> end SaveExtensionData
>>
>> on clickBoxesToSetUp()
>> set thePPath to POSIX path of (((my
>> mailManagerDesktopFolderPath) & "Extension Data.plist") as text)
>> set theflag to true
>> tell application "Finder"
>> if (not (exists file (my mailManagerDesktopFolderPath &
>> "Extension Data.plist" as text))) then set theflag to false
>> end tell
>> if theflag then
>> try
>> set (my ExtValueDict) to current application's
>> NSDictionary's dictionaryWithContentsOfFile:(thePPath) # POsIX path
>> end try
>> end if
>> tell ListWindow
>> tell application "System Events" to tell process "GC
>> Name Extension lister"
>> repeat with eachBox in (get every checkbox)
>> click eachBox
>> end repeat
>> end tell
>> end tell
>> set (my setUpExtension) to true
>> end clickBoxesToSetUp
>>
>> on applicationShouldTerminate:sender
>> -- Insert code here to do any housekeeping before your
>> application quits
>> return current application's NSTerminateNow
>> end applicationShouldTerminate:
>>
>> end script
>> _______________________________________________
>> Do not post admin requests to the list. They will be ignored.
>> applescriptobjc-dev mailing list (email@hidden)
>> Help/Unsubscribe/Update your Subscription:
>>
>> This email sent to email@hidden
>
>
>
>
> _______________________________________________
> Do not post admin requests to the list. They will be ignored.
> applescriptobjc-dev mailing list (email@hidden)
> Help/Unsubscribe/Update your Subscription:
>
> This email sent to email@hidden
_______________________________________________
Do not post admin requests to the list. They will be ignored.
applescriptobjc-dev mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden
| References: | |
| | >Re: Dilemma (From: Takaaki Naganoya <email@hidden>) |