Tässä on Applescript, joka laatoi kaikki etuosan sovelluksen avoimet ikkunat. Lisää kohtaan ~ / Library / Scripts ja soita valikkorivin Applescript-valikosta. Lisää suolaa maun mukaan (ja ilmaiseksi).
- ruudukon etureunassa olevien sovellusten ruutuikkunat - tämä komentosarja on hyödyllinen - useissa ikkunoissa chattailuun - saman sovelluksen useiden ikkunoiden rinnalla työskentelyyn - tee siitä avoimena sovelluksena myöhemmin - oletetaan toistaiseksi, että se on avattu ja suljettu kutsuomaisuutta kohti vaakasuora Väli: 10 - asettaa vaakasuoran etäisyyden ikkunan omaisuuden pystysuuntaiseksi Väli: 10 - asettaa pystysuoran etäisyyden ikkunoiden omaisuuden välillä maxRivit: 2ominaisuus maxKolikot: 2ajossa {} paikallistaa määritetyn käyttäjän näytön getUserScreen () - -näyttöikkunaan (getFrntApp () merkkijonona) yritä asettaa applistiksi getFrntApp (), jos applistin pituus = 0, palaa sitten loppu, jos asetat getFrntApp (): n alkion 1 virheen error_message number error_number display dialog "Error:" & the error_number & "." & error_message button {"OK"} oletuspainike 1 lopeta yrittää kokeilla tileScriptable (a, usercreen) e viallinen virheilmoituksen numero virheilmoituksen numero - näyttö-valintaikkuna "Virhe:" & virheilmoituksen numero & ". "& virheen_viestipainikkeet {" OK "} oletuspainike 1 kokeile ruutuaUncriptable (a, userscreen) virheessä virhe_viestin numero virheen_numero-valintaikkuna" Virhe: "& virheen_numero &". "& virheviestipainikkeet {" OK "} oletuspainike 1 lopeta yritä lopettaa yrittää runon tileScriptable (a, näyttö) paikallinen i, c aseta i arvoksi 1 kerro sovellukselle nimetty joukko Windows kaikille sovelluksen ikkunoille, joiden näkyvä on tosi ja kelluva on väärä ja ¬ modaali on väärä - ja pienennetty on väärä aseta c laskemaan Windows
jos c = 0, palaa loppu, jos ruuduiksi on asetettu calTileBounds (c, näyttö, 1) toista Windows my tileScriptableWindow -ikkunan (a, TheWindow, laatikkojen i) ikkunan I-asetuksella i + 1 end toista loppu tellend tileScriptableon-ruutuUnscriptable (a , screeninfo) - ei-kirjoitettava sovelluksen paikallinen i, c aseta 1 kertomaan sovellukselle "Järjestelmätapahtumat" aseta Windows-asetukseksi (jokainen sovellusprosessin ikkuna a) - aseta Windows suodattimeksiUnscriptableInvisible (theWindows) aseta c laskemaan Windows, jos c = 0 palauta sitten loppu, jos --näyttöikkunan näyttötietotiedote merkkijonona, joka luopuu viiden asetetun ruudun jälkeen calTileBounds (c, screeninfo, 1), toista ikkunan kanssa Windows --display -valintaikkunassa (ikkunan näkyvä luokka) minun tileUnScriptableWindow (a, theWindow , ruutujen i kohta) aseta i arvoksi i + 1 loppu toista loppu tellend-ruutuUncriptableon filterUnscript kykenemätön (ws) - suodata telakoitujen ws-ikkunoiden joukosta aseta uudet uudet asetukseksi {} aseta telakointilista getNamesDocked () --näyttö -valintaikkunaan (telakointilista merkkijonona) toista ikkunan ws kanssa, jos ikkunan nimeä ei ole telakkalistassa, aseta loppu newwien ikkunan loppuun, jos loppu toistaa --näyttö -valintaikkuna (laske uudet) palauta newwsend filterUnscriptableInvisibleon getNamesDocked () kerro sovellukselle "Järjestelmätapahtumat" kertomaan prosessin "Dock" -luettelolle 1 asetettu l niiden käyttöliittymän elementtien nimelle, joiden alirooli on "AXMinimizedWindowDockItem" "loppu kerro palaa lainaa getNamesDockedon tileScriptableWindow (a, w, sidottu) kerro sovellukselle joukko w: tä sidottuun päähän Tellend-ruutuunScriptableWindowon tileUnScriptableWindow (a, w, sidottu) kerro sovellukselle" Järjestelmätapahtumat "- näyttöikkuna (laskee w: n sijainnin) aseta AppleScriptin tekstikohdan rajaimet "" aseta w: n sijainniksi {(sidotun kohteen 1), (sidotun kohteen 2)}
- miksi -5? aseta w: n koko {(sidotun kohteen 3) - (sidotun kohteen 1) - 5, ¬ (sidotun kohteen 4) - (sidotun kohteen 2) - 5} --näyttöikkuna (laskee w: n ominaisuudet) loppu tellend tileUnScriptableWindowon calTileBounds (nWindows, näyttö, suunta) - palauta luettelo ikkunarajojen luetteloista - yksinkertainen laatta-algo, joka ruuduttaa suuntaan (vain nykyinen 1 = vaakasuora) paikalliset nrows, nColumns, irow, icolumn, nSpacingWidth, nSpacingHeight, nWindowWidth, nWindowHeight set {x0, y0, availScreenWidth, availScreenHeight} to set set ret to {} set nrows to (nWindows div maxCols) if (nWindows mod maxCols) ≠ 0 set as nrows to nrows + 1 end if if nrows < maxRows then aseta nSpacingHeight arvoon (nrows - 1) * verticalSpacing set nWindowHeight arvoon (availScreenHeight - nSpacingHeight) / nrows else aseta nSpacingHeight arvoon (maxRows - 1) * verticalSpacing set nWindowHeight - (käytettävissäScreenHeight - nSpacingHeight) turve, jossa irow on 0 - nrow - 1, jos nrow ≤ maxRows ja irow = nrows - 1, aseta nColumns arvoon nWindows - irow * maxCols muu aseta nColumns arvoon maxCols päättyy, jos nSpacingWidth-asetukseksi määritetään (nColumns - 1) * horizontalSpacing asetetaan nWindowWidth arvoon (availScreenWidth) - nSpacingWidth) / nSarakkeet asettaa nTop arvoksi y0 + (irow mod maxRows) * (verticalSpacing + nWindowHeight) --näyttöikkuna "Yläosa:" & nTop-painikkeet {"OK"} oletuspainike 1 toista icolumnilla 0 - nColumns - 1 sarja nLeft - x0 + (icolumn) * (horizontalSpacing + nWindowWidth) aseta itileksi arvoksi {¬nLeft, ¬ nTop, ¬ nLeft + nWindowWidth, ¬ nTop + nWindowHeight} aseta ret to itile - näytä itile-valintaikkunan 3 merkkijono - -aseta itile arvoon {x0 + (icolumn - 1) * wgrid, y0, wgrid, hgrid}
- aseta itile-nimikkeen 3 arvoksi ((itile-kohta 1) + (itile-kohta 3)) - aseta itile-nimikkeen 4 arvoksi ((itile-elementti 2) + (itile-kohta 4)) loppuun toista loppu toista return retend calTileBoundson getFrntApp () kerro sovellukselle "Järjestelmätapahtumat" asettamaan frntProc jokaisen prosessin ¬ nimeksi, jonka etuosa on totta ja näkyvä , menuBarHeight} sovellusprosessin "SystemUIServer" käyttöliittymäelementin 1 kokoon - näyttöikkuna "Valikkorivin leveys:" & menubarWidth & ", korkeus:" & menubarHeight asetti dockApp arvoon (sovellusprosessi "Dock") aseta {dockWight, dockWidth, dockApp -näyttöikkunan 1 koon kokoonpanoon - Telakan leveys: "& dockWidth &", korkeus: "& dockHeight aseta dockPos dockApp-käyttöliittymän elementin 1 sijaintiin --displa y-valintaikkuna "Dock x:" & (dockPosin kohde 1) & ", y:" & (dockPos-nimikkeen 2) end tell - koko ruudun koko (* {sana 3 (do shell-komento "oletukset lukevat / Kirjasto / Asetukset / com.apple.windowserver | grep -w Width ") numerona, ¬ sana 3 (tee komentosarja" oletusarvoisesti lue /Kirjasto/Preferences/com.apple.windowserver | grep -w Height ") numerona} *) kerro sovellukselle" Finder "aseta näyttö työpöydän asetetun näytön ikkunan rajatLeveys näytön kohtaan 3Koko asetettu näyttöKorkeus näytön kohtaan 4Koko loppu - näyttö-valintaikkuna "Näytön leveys:" & näytön leveys & ", korkeus:" & näytön korkeus - aseta oletuksena käytettävissä oleva näytön koko käytettävissä olevaan koko näytön kokoon Leveys näyttöön Leveys asetettu Korkeus näyttöön Korkeus - valikko Baari Korkeus asetettu saatavana X: ään 0 asetettu saatavanaY valikkoonBarHeight - määritä käyttäjän näytön alkuperä ja koko
- tapaus 0: piilotettu telakka - jos (dockPos < 0 tai 1 dockPos ≥ screenHeight -kohde 1) sitten - mitään ei tarvitse muuttaa - loppu jos - tapaus 1: alusta telakka jos ((kohteen 2 dockPos) + dockHeight = screenHeight) aseta sitten käytettävissä olevaksiHeight to availableHeight - dockHeight end if - tapaus 2: vasen telakka if (dockPosin kohde 1 = 0), aseta sitten käytettävissä oleva leveys käytettävissä olevaksiWidth - dockWidth set availableX dockWidth end if - tapaus 3: oikea telakka, jos ((dockPosin kohde 1) + dockWidth = näytön leveys) määritä käytettävissä oleva leveys asetukselle availableWidth - dockWidth end if return {käytettävissäX, käytettävissäY, käytettävissäWidth, käytettävissäHeight} loppu getUserScreen
Lähde: MacScripter Googlen kautta