Re: Dilemma
Re: Dilemma
- Subject: Re: Dilemma
- From: Takaaki Naganoya <email@hidden>
- Date: Sat, 15 Jul 2017 10:24:31 +0900
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