Changeset 14632


Ignore:
Timestamp:
Feb 2, 2011, 5:05:26 PM (9 years ago)
Author:
plkrueger
Message:

See Tools Revision Notes for details

Location:
trunk/cocoa-ide-contrib/krueger/InterfaceProjects
Files:
47 added
3 deleted
23 edited
5 moved

Legend:

Unmodified
Added
Removed
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding.lisp

    r14596 r14632  
    9898  (setf (nib-objects self)
    9999        (load-nibfile
    100          (find-nib-in-contrib "binding.nib")
     100         (find-nib-in-krueger-contrib "binding.nib")
    101101         :nib-owner self
    102102         :retain-top-objs t))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding2.lisp

    r14596 r14632  
    8080  (setf (nib-objects self)
    8181        (load-nibfile
    82          (find-nib-in-contrib "binding2.nib")
     82         (find-nib-in-krueger-contrib "binding2.nib")
    8383         :nib-owner self
    8484         :retain-top-objs t))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding3.lisp

    r14596 r14632  
    8080  (setf (nib-objects self)
    8181        (load-nibfile
    82          (find-nib-in-contrib "binding3.nib")
     82         (find-nib-in-krueger-contrib "binding3.nib")
    8383         :nib-owner self
    8484         :retain-top-objs t))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/BindingTests/binding4.lisp

    r14592 r14632  
    8080  (setf (nib-objects self)
    8181        (load-nibfile
    82          (find-nib-in-contrib "binding4.nib")
     82         (find-nib-in-krueger-contrib "binding4.nib")
    8383         :nib-owner self
    8484         :retain-top-objs t))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Cocoa Dev/lisp-app-doc.bundle/Contents/Resources/en.lproj/AppDoc.nib/designable.nib

    r14585 r14632  
    2222                <object class="NSMutableArray" key="IBDocument.EditedObjectIDs">
    2323                        <bool key="EncodedWithXMLCoder">YES</bool>
    24                         <integer value="92"/>
     24                        <integer value="2"/>
    2525                </object>
    2626                <object class="NSArray" key="IBDocument.PluginDependencies">
     
    5252                                <int key="NSWindowStyleMask">15</int>
    5353                                <int key="NSWindowBacking">2</int>
    54                                 <string key="NSWindowRect">{{101, 37}, {673, 740}}</string>
     54                                <string key="NSWindowRect">{{413, 1204}, {670, 754}}</string>
    5555                                <int key="NSWTFlags">536879104</int>
    5656                                <string key="NSWindowTitle">Lisp Application</string>
    5757                                <string key="NSWindowClass">NSWindow</string>
    5858                                <nil key="NSViewClass"/>
    59                                 <string key="NSWindowContentMaxSize">{673, 777}</string>
    60                                 <string key="NSWindowContentMinSize">{673, 0}</string>
     59                                <string key="NSWindowContentMaxSize">{670, 754}</string>
     60                                <string key="NSWindowContentMinSize">{670, 0}</string>
    6161                                <object class="NSView" key="NSWindowView" id="1006">
    6262                                        <reference key="NSNextResponder"/>
     
    7676                                                                                <object class="NSCustomView" id="651102033">
    7777                                                                                        <reference key="NSNextResponder" ref="253246185"/>
    78                                                                                         <int key="NSvFlags">18</int>
     78                                                                                        <int key="NSvFlags">268</int>
    7979                                                                                        <object class="NSMutableArray" key="NSSubviews">
    8080                                                                                                <bool key="EncodedWithXMLCoder">YES</bool>
     
    8282                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    8383                                                                                                        <int key="NSvFlags">12</int>
    84                                                                                                         <string key="NSFrame">{{20, 269}, {625, 5}}</string>
     84                                                                                                        <string key="NSFrame">{{20, 205}, {625, 5}}</string>
    8585                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    8686                                                                                                        <string key="NSOffsets">{0, 0}</string>
     
    116116                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    117117                                                                                                        <int key="NSvFlags">268</int>
    118                                                                                                         <string key="NSFrame">{{448, 69}, {134, 32}}</string>
     118                                                                                                        <string key="NSFrame">{{448, 5}, {134, 32}}</string>
    119119                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    120120                                                                                                        <bool key="NSEnabled">YES</bool>
     
    136136                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    137137                                                                                                        <int key="NSvFlags">268</int>
    138                                                                                                         <string key="NSFrame">{{17, 105}, {111, 17}}</string>
     138                                                                                                        <string key="NSFrame">{{17, 41}, {111, 17}}</string>
    139139                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    140140                                                                                                        <bool key="NSEnabled">YES</bool>
     
    168168                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    169169                                                                                                        <int key="NSvFlags">268</int>
    170                                                                                                         <string key="NSFrame">{{17, 77}, {111, 17}}</string>
     170                                                                                                        <string key="NSFrame">{{17, 13}, {111, 17}}</string>
    171171                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    172172                                                                                                        <bool key="NSEnabled">YES</bool>
     
    184184                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    185185                                                                                                        <int key="NSvFlags">268</int>
    186                                                                                                         <string key="NSFrame">{{157, 75}, {272, 22}}</string>
     186                                                                                                        <string key="NSFrame">{{157, 11}, {272, 22}}</string>
    187187                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    188188                                                                                                        <bool key="NSEnabled">YES</bool>
     
    206206                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    207207                                                                                                        <int key="NSvFlags">268</int>
    208                                                                                                         <string key="NSFrame">{{17, 192}, {111, 17}}</string>
     208                                                                                                        <string key="NSFrame">{{17, 128}, {111, 17}}</string>
    209209                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    210210                                                                                                        <bool key="NSEnabled">YES</bool>
     
    222222                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    223223                                                                                                        <int key="NSvFlags">268</int>
    224                                                                                                         <string key="NSFrame">{{157, 190}, {272, 22}}</string>
     224                                                                                                        <string key="NSFrame">{{157, 126}, {272, 22}}</string>
    225225                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    226226                                                                                                        <bool key="NSEnabled">YES</bool>
     
    239239                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    240240                                                                                                        <int key="NSvFlags">268</int>
    241                                                                                                         <string key="NSFrame">{{17, 163}, {111, 17}}</string>
     241                                                                                                        <string key="NSFrame">{{17, 99}, {111, 17}}</string>
    242242                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    243243                                                                                                        <bool key="NSEnabled">YES</bool>
     
    255255                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    256256                                                                                                        <int key="NSvFlags">268</int>
    257                                                                                                         <string key="NSFrame">{{157, 161}, {272, 22}}</string>
     257                                                                                                        <string key="NSFrame">{{157, 97}, {272, 22}}</string>
    258258                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    259259                                                                                                        <bool key="NSEnabled">YES</bool>
     
    272272                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    273273                                                                                                        <int key="NSvFlags">268</int>
    274                                                                                                         <string key="NSFrame">{{17, 221}, {111, 17}}</string>
     274                                                                                                        <string key="NSFrame">{{17, 157}, {111, 17}}</string>
    275275                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    276276                                                                                                        <bool key="NSEnabled">YES</bool>
     
    288288                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    289289                                                                                                        <int key="NSvFlags">268</int>
    290                                                                                                         <string key="NSFrame">{{157, 219}, {272, 22}}</string>
     290                                                                                                        <string key="NSFrame">{{157, 155}, {272, 22}}</string>
    291291                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    292292                                                                                                        <bool key="NSEnabled">YES</bool>
     
    305305                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    306306                                                                                                        <int key="NSvFlags">268</int>
    307                                                                                                         <string key="NSFrame">{{17, 135}, {111, 17}}</string>
     307                                                                                                        <string key="NSFrame">{{17, 71}, {111, 17}}</string>
    308308                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    309309                                                                                                        <bool key="NSEnabled">YES</bool>
     
    321321                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    322322                                                                                                        <int key="NSvFlags">268</int>
    323                                                                                                         <string key="NSFrame">{{90, 246}, {454, 17}}</string>
     323                                                                                                        <string key="NSFrame">{{90, 182}, {454, 17}}</string>
    324324                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    325325                                                                                                        <bool key="NSEnabled">YES</bool>
     
    337337                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    338338                                                                                                        <int key="NSvFlags">268</int>
    339                                                                                                         <string key="NSFrame">{{452, 192}, {98, 18}}</string>
     339                                                                                                        <string key="NSFrame">{{452, 128}, {98, 18}}</string>
    340340                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    341341                                                                                                        <bool key="NSEnabled">YES</bool>
     
    364364                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    365365                                                                                                        <int key="NSvFlags">268</int>
    366                                                                                                         <string key="NSFrame">{{452, 104}, {197, 18}}</string>
     366                                                                                                        <string key="NSFrame">{{452, 40}, {197, 18}}</string>
    367367                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    368368                                                                                                        <bool key="NSEnabled">YES</bool>
     
    386386                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    387387                                                                                                        <int key="NSvFlags">268</int>
    388                                                                                                         <string key="NSFrame">{{157, 129}, {275, 26}}</string>
     388                                                                                                        <string key="NSFrame">{{157, 65}, {275, 26}}</string>
    389389                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    390390                                                                                                        <bool key="NSEnabled">YES</bool>
     
    478478                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    479479                                                                                                        <int key="NSvFlags">268</int>
    480                                                                                                         <string key="NSFrame">{{157, 101}, {275, 26}}</string>
     480                                                                                                        <string key="NSFrame">{{157, 37}, {275, 26}}</string>
    481481                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    482482                                                                                                        <bool key="NSEnabled">YES</bool>
     
    553553                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    554554                                                                                                        <int key="NSvFlags">268</int>
    555                                                                                                         <string key="NSFrame">{{191, 595}, {64, 32}}</string>
     555                                                                                                        <string key="NSFrame">{{191, 531}, {64, 32}}</string>
    556556                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    557557                                                                                                        <bool key="NSEnabled">YES</bool>
     
    573573                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    574574                                                                                                        <int key="NSvFlags">268</int>
    575                                                                                                         <string key="NSFrame">{{156, 401}, {97, 32}}</string>
     575                                                                                                        <string key="NSFrame">{{156, 337}, {97, 32}}</string>
    576576                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    577577                                                                                                        <bool key="NSEnabled">YES</bool>
     
    593593                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    594594                                                                                                        <int key="NSvFlags">268</int>
    595                                                                                                         <string key="NSFrame">{{467, 606}, {138, 17}}</string>
     595                                                                                                        <string key="NSFrame">{{467, 542}, {138, 17}}</string>
    596596                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    597597                                                                                                        <bool key="NSEnabled">YES</bool>
     
    609609                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    610610                                                                                                        <int key="NSvFlags">268</int>
    611                                                                                                         <string key="NSFrame">{{458, 540}, {161, 18}}</string>
     611                                                                                                        <string key="NSFrame">{{458, 476}, {161, 18}}</string>
    612612                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    613613                                                                                                        <bool key="NSEnabled">YES</bool>
     
    631631                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    632632                                                                                                        <int key="NSvFlags">268</int>
    633                                                                                                         <string key="NSFrame">{{457, 520}, {166, 18}}</string>
     633                                                                                                        <string key="NSFrame">{{457, 456}, {166, 18}}</string>
    634634                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    635635                                                                                                        <bool key="NSEnabled">YES</bool>
     
    653653                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    654654                                                                                                        <int key="NSvFlags">268</int>
    655                                                                                                         <string key="NSFrame">{{458, 580}, {161, 18}}</string>
     655                                                                                                        <string key="NSFrame">{{458, 516}, {161, 18}}</string>
    656656                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    657657                                                                                                        <bool key="NSEnabled">YES</bool>
     
    675675                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    676676                                                                                                        <int key="NSvFlags">268</int>
    677                                                                                                         <string key="NSFrame">{{458, 560}, {161, 18}}</string>
     677                                                                                                        <string key="NSFrame">{{458, 496}, {161, 18}}</string>
    678678                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    679679                                                                                                        <bool key="NSEnabled">YES</bool>
     
    697697                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    698698                                                                                                        <int key="NSvFlags">268</int>
    699                                                                                                         <string key="NSFrame">{{111, 401}, {51, 32}}</string>
     699                                                                                                        <string key="NSFrame">{{111, 337}, {51, 32}}</string>
    700700                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    701701                                                                                                        <bool key="NSEnabled">YES</bool>
     
    717717                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    718718                                                                                                        <int key="NSvFlags">268</int>
    719                                                                                                         <string key="NSFrame">{{145, 596}, {51, 32}}</string>
     719                                                                                                        <string key="NSFrame">{{145, 532}, {51, 32}}</string>
    720720                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    721721                                                                                                        <bool key="NSEnabled">YES</bool>
     
    737737                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    738738                                                                                                        <int key="NSvFlags">268</int>
    739                                                                                                         <string key="NSFrame">{{99, 596}, {51, 32}}</string>
     739                                                                                                        <string key="NSFrame">{{99, 532}, {51, 32}}</string>
    740740                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    741741                                                                                                        <bool key="NSEnabled">YES</bool>
     
    914914                                                                                                                <reference ref="282498560"/>
    915915                                                                                                        </object>
    916                                                                                                         <string key="NSFrame">{{20, 449}, {409, 147}}</string>
     916                                                                                                        <string key="NSFrame">{{20, 385}, {409, 147}}</string>
    917917                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    918918                                                                                                        <reference key="NSNextKeyView" ref="29307138"/>
     
    928928                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    929929                                                                                                        <int key="NSvFlags">268</int>
    930                                                                                                         <string key="NSFrame">{{17, 607}, {88, 17}}</string>
     930                                                                                                        <string key="NSFrame">{{17, 543}, {88, 17}}</string>
    931931                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    932932                                                                                                        <bool key="NSEnabled">YES</bool>
     
    944944                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    945945                                                                                                        <int key="NSvFlags">268</int>
    946                                                                                                         <string key="NSFrame">{{533, 402}, {51, 32}}</string>
     946                                                                                                        <string key="NSFrame">{{533, 338}, {51, 32}}</string>
    947947                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    948948                                                                                                        <bool key="NSEnabled">YES</bool>
     
    964964                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    965965                                                                                                        <int key="NSvFlags">268</int>
    966                                                                                                         <string key="NSFrame">{{70, 401}, {51, 32}}</string>
     966                                                                                                        <string key="NSFrame">{{70, 337}, {51, 32}}</string>
    967967                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    968968                                                                                                        <bool key="NSEnabled">YES</bool>
     
    984984                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    985985                                                                                                        <int key="NSvFlags">268</int>
    986                                                                                                         <string key="NSFrame">{{490, 402}, {51, 32}}</string>
     986                                                                                                        <string key="NSFrame">{{490, 338}, {51, 32}}</string>
    987987                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    988988                                                                                                        <bool key="NSEnabled">YES</bool>
     
    11451145                                                                                                                <reference ref="992396462"/>
    11461146                                                                                                        </object>
    1147                                                                                                         <string key="NSFrame">{{20, 280}, {324, 122}}</string>
     1147                                                                                                        <string key="NSFrame">{{20, 216}, {324, 122}}</string>
    11481148                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    11491149                                                                                                        <reference key="NSNextKeyView" ref="149721815"/>
     
    12751275                                                                                                                <reference ref="625282099"/>
    12761276                                                                                                        </object>
    1277                                                                                                         <string key="NSFrame">{{367, 280}, {278, 122}}</string>
     1277                                                                                                        <string key="NSFrame">{{367, 216}, {278, 122}}</string>
    12781278                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    12791279                                                                                                        <reference key="NSNextKeyView" ref="1020636941"/>
     
    12891289                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    12901290                                                                                                        <int key="NSvFlags">268</int>
    1291                                                                                                         <string key="NSFrame">{{364, 413}, {127, 17}}</string>
     1291                                                                                                        <string key="NSFrame">{{364, 349}, {127, 17}}</string>
    12921292                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    12931293                                                                                                        <bool key="NSEnabled">YES</bool>
     
    13051305                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    13061306                                                                                                        <int key="NSvFlags">268</int>
    1307                                                                                                         <string key="NSFrame">{{157, 661}, {272, 22}}</string>
     1307                                                                                                        <string key="NSFrame">{{157, 597}, {272, 22}}</string>
    13081308                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    13091309                                                                                                        <bool key="NSEnabled">YES</bool>
     
    13221322                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    13231323                                                                                                        <int key="NSvFlags">268</int>
    1324                                                                                                         <string key="NSFrame">{{17, 663}, {182, 17}}</string>
     1324                                                                                                        <string key="NSFrame">{{17, 599}, {182, 17}}</string>
    13251325                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    13261326                                                                                                        <bool key="NSEnabled">YES</bool>
     
    13381338                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    13391339                                                                                                        <int key="NSvFlags">268</int>
    1340                                                                                                         <string key="NSFrame">{{157, 684}, {272, 22}}</string>
     1340                                                                                                        <string key="NSFrame">{{157, 620}, {272, 22}}</string>
    13411341                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    13421342                                                                                                        <bool key="NSEnabled">YES</bool>
     
    13551355                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    13561356                                                                                                        <int key="NSvFlags">268</int>
    1357                                                                                                         <string key="NSFrame">{{17, 686}, {182, 17}}</string>
     1357                                                                                                        <string key="NSFrame">{{17, 622}, {182, 17}}</string>
    13581358                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    13591359                                                                                                        <bool key="NSEnabled">YES</bool>
     
    13711371                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    13721372                                                                                                        <int key="NSvFlags">268</int>
    1373                                                                                                         <string key="NSFrame">{{17, 412}, {182, 17}}</string>
     1373                                                                                                        <string key="NSFrame">{{17, 348}, {182, 17}}</string>
    13741374                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    13751375                                                                                                        <bool key="NSEnabled">YES</bool>
     
    13871387                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    13881388                                                                                                        <int key="NSvFlags">268</int>
    1389                                                                                                         <string key="NSFrame">{{157, 705}, {275, 26}}</string>
     1389                                                                                                        <string key="NSFrame">{{157, 641}, {275, 26}}</string>
    13901390                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    13911391                                                                                                        <bool key="NSEnabled">YES</bool>
     
    14621462                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    14631463                                                                                                        <int key="NSvFlags">268</int>
    1464                                                                                                         <string key="NSFrame">{{17, 709}, {135, 17}}</string>
     1464                                                                                                        <string key="NSFrame">{{17, 645}, {135, 17}}</string>
    14651465                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    14661466                                                                                                        <bool key="NSEnabled">YES</bool>
     
    14781478                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    14791479                                                                                                        <int key="NSvFlags">268</int>
    1480                                                                                                         <string key="NSFrame">{{444, 666}, {115, 17}}</string>
     1480                                                                                                        <string key="NSFrame">{{444, 602}, {115, 17}}</string>
    14811481                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    14821482                                                                                                        <bool key="NSEnabled">YES</bool>
     
    14941494                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    14951495                                                                                                        <int key="NSvFlags">268</int>
    1496                                                                                                         <string key="NSFrame">{{578, 663}, {64, 22}}</string>
     1496                                                                                                        <string key="NSFrame">{{578, 599}, {64, 22}}</string>
    14971497                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    14981498                                                                                                        <bool key="NSEnabled">YES</bool>
     
    15111511                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    15121512                                                                                                        <int key="NSvFlags">268</int>
    1513                                                                                                         <string key="NSFrame">{{447, 760}, {77, 17}}</string>
     1513                                                                                                        <string key="NSFrame">{{447, 696}, {77, 17}}</string>
    15141514                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    15151515                                                                                                        <bool key="NSEnabled">YES</bool>
     
    15271527                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    15281528                                                                                                        <int key="NSvFlags">268</int>
    1529                                                                                                         <string key="NSFrame">{{529, 755}, {116, 22}}</string>
     1529                                                                                                        <string key="NSFrame">{{529, 691}, {116, 22}}</string>
    15301530                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    15311531                                                                                                        <bool key="NSEnabled">YES</bool>
     
    15441544                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    15451545                                                                                                        <int key="NSvFlags">268</int>
    1546                                                                                                         <string key="NSFrame">{{447, 733}, {56, 17}}</string>
     1546                                                                                                        <string key="NSFrame">{{447, 669}, {56, 17}}</string>
    15471547                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    15481548                                                                                                        <bool key="NSEnabled">YES</bool>
     
    15601560                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    15611561                                                                                                        <int key="NSvFlags">268</int>
    1562                                                                                                         <string key="NSFrame">{{529, 730}, {116, 22}}</string>
     1562                                                                                                        <string key="NSFrame">{{529, 666}, {116, 22}}</string>
    15631563                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    15641564                                                                                                        <bool key="NSEnabled">YES</bool>
     
    15771577                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    15781578                                                                                                        <int key="NSvFlags">268</int>
    1579                                                                                                         <string key="NSFrame">{{157, 728}, {275, 26}}</string>
     1579                                                                                                        <string key="NSFrame">{{157, 664}, {275, 26}}</string>
    15801580                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    15811581                                                                                                        <bool key="NSEnabled">YES</bool>
     
    16521652                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    16531653                                                                                                        <int key="NSvFlags">268</int>
    1654                                                                                                         <string key="NSFrame">{{17, 732}, {117, 17}}</string>
     1654                                                                                                        <string key="NSFrame">{{17, 668}, {117, 17}}</string>
    16551655                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    16561656                                                                                                        <bool key="NSEnabled">YES</bool>
     
    16681668                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    16691669                                                                                                        <int key="NSvFlags">268</int>
    1670                                                                                                         <string key="NSFrame">{{17, 760}, {120, 17}}</string>
     1670                                                                                                        <string key="NSFrame">{{17, 696}, {120, 17}}</string>
    16711671                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    16721672                                                                                                        <bool key="NSEnabled">YES</bool>
     
    16841684                                                                                                        <reference key="NSNextResponder" ref="651102033"/>
    16851685                                                                                                        <int key="NSvFlags">268</int>
    1686                                                                                                         <string key="NSFrame">{{157, 755}, {272, 22}}</string>
     1686                                                                                                        <string key="NSFrame">{{157, 691}, {272, 22}}</string>
    16871687                                                                                                        <reference key="NSSuperview" ref="651102033"/>
    16881688                                                                                                        <bool key="NSEnabled">YES</bool>
     
    16991699                                                                                                </object>
    17001700                                                                                        </object>
    1701                                                                                         <string key="NSFrameSize">{688, 797}</string>
     1701                                                                                        <string key="NSFrameSize">{688, 733}</string>
    17021702                                                                                        <reference key="NSSuperview" ref="253246185"/>
    17031703                                                                                        <string key="NSClassName">NSView</string>
    17041704                                                                                </object>
    17051705                                                                        </object>
    1706                                                                         <string key="NSFrame">{{1, 1}, {688, 797}}</string>
     1706                                                                        <string key="NSFrameSize">{672, 735}</string>
    17071707                                                                        <reference key="NSSuperview" ref="239431873"/>
    17081708                                                                        <reference key="NSNextKeyView" ref="651102033"/>
     
    17141714                                                                        <reference key="NSNextResponder" ref="239431873"/>
    17151715                                                                        <int key="NSvFlags">-2147483392</int>
    1716                                                                         <string key="NSFrame">{{674, 1}, {15, 782}}</string>
     1716                                                                        <string key="NSFrame">{{656, 1}, {15, 733}}</string>
    17171717                                                                        <reference key="NSSuperview" ref="239431873"/>
    17181718                                                                        <reference key="NSTarget" ref="239431873"/>
    17191719                                                                        <string key="NSAction">_doScroller:</string>
    1720                                                                         <double key="NSCurValue">0.99616368286445023</double>
    1721                                                                         <double key="NSPercent">0.96363627910614014</double>
     1720                                                                        <double key="NSCurValue">1</double>
     1721                                                                        <double key="NSPercent">0.99863760217983655</double>
    17221722                                                                </object>
    17231723                                                                <object class="NSScroller" id="142920664">
    17241724                                                                        <reference key="NSNextResponder" ref="239431873"/>
    17251725                                                                        <int key="NSvFlags">-2147483392</int>
    1726                                                                         <string key="NSFrame">{{1, 783}, {673, 15}}</string>
     1726                                                                        <string key="NSFrame">{{-100, -100}, {669, 15}}</string>
    17271727                                                                        <reference key="NSSuperview" ref="239431873"/>
     1728                                                                        <bool key="NSEnabled">YES</bool>
    17281729                                                                        <int key="NSsFlags">1</int>
    17291730                                                                        <reference key="NSTarget" ref="239431873"/>
    17301731                                                                        <string key="NSAction">_doScroller:</string>
    1731                                                                         <double key="NSPercent">0.50602412223815918</double>
     1732                                                                        <double key="NSPercent">0.97238372093023251</double>
    17321733                                                                </object>
    17331734                                                        </object>
    1734                                                         <string key="NSFrame">{{-1, -58}, {690, 799}}</string>
     1735                                                        <string key="NSFrame">{{-1, 20}, {672, 735}}</string>
    17351736                                                        <reference key="NSSuperview" ref="1006"/>
    17361737                                                        <reference key="NSNextKeyView" ref="253246185"/>
    1737                                                         <int key="NSsFlags">562</int>
     1738                                                        <int key="NSsFlags">656</int>
    17381739                                                        <reference key="NSVScroller" ref="599273920"/>
    17391740                                                        <reference key="NSHScroller" ref="142920664"/>
     
    17411742                                                </object>
    17421743                                        </object>
    1743                                         <string key="NSFrameSize">{673, 740}</string>
     1744                                        <string key="NSFrameSize">{670, 754}</string>
    17441745                                        <reference key="NSSuperview"/>
    17451746                                </object>
    17461747                                <string key="NSScreenRect">{{0, 0}, {1440, 878}}</string>
    1747                                 <string key="NSMinSize">{673, 22}</string>
    1748                                 <string key="NSMaxSize">{673, 799}</string>
     1748                                <string key="NSMinSize">{670, 22}</string>
     1749                                <string key="NSMaxSize">{670, 776}</string>
    17491750                        </object>
    17501751                        <object class="LispController" id="222839573">
     
    38353836                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    38363837                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    3837                                         <string>{{59, 75}, {673, 740}}</string>
    3838                                         <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    3839                                         <string>{{59, 75}, {673, 740}}</string>
     3838                                        <string>{{413, 1204}, {670, 754}}</string>
     3839                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
     3840                                        <string>{{413, 1204}, {670, 754}}</string>
    38403841                                        <boolean value="NO"/>
    38413842                                        <string>{196, 240}</string>
     
    38433844                                        <boolean value="YES"/>
    38443845                                        <boolean value="YES"/>
    3845                                         <string>{673, 777}</string>
    3846                                         <string>{673, 0}</string>
     3846                                        <string>{670, 754}</string>
     3847                                        <string>{670, 0}</string>
    38473848                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    38483849                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Cocoa Dev/lisp-app-doc.lisp

    r14585 r14632  
    462462        (setf bpath (ccl::make-application-bundle :name app-name
    463463                                                  :project-path bundle-dir))
    464         (setf app-bundle-path bpath))
     464        (setf app-bundle-path bpath)
     465        (#/updateChangeCount: self #$NSChangeDone))
    465466     
    466467      (when bpath
     
    685686                                                (ccl::bundle-executable-name app-exec))))
    686687              (remote-result nil))
    687           (start-trace other-ccl)
     688          ;;(start-trace other-ccl)
    688689          (setf remote-result (in-subordinate-ccl (other-ccl) (require :cocoa)))
    689690          (if (eq :cocoa remote-result)
     
    738739                 ;; something weird here
    739740                 (alert :text (format nil "Unknown error trying to make-default-type-method remotely: ~s returned" remote-result))))
    740           (trace-output other-ccl))))))
     741          #|(trace-output other-ccl)|#)))))
    741742
    742743(defmethod run-standalone-app ((self lisp-app-doc))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Cocoa Dev/lisp-app-win-controller.lisp

    r14585 r14632  
    2626  (require :lisp-controller))
    2727
    28 (defpackage :app-dev
    29   (:nicknames :ad)
    30   (:use :iu :ccl :lc :common-lisp)
    31   (:export
    32    lisp-app-win-controller))
     28(eval-when (:compile-toplevel :load-toplevel :execute)
     29  (defpackage :app-dev
     30    (:nicknames :ad)
     31    (:use :iu :ccl :lc :common-lisp)
     32    (:export
     33     lisp-app-win-controller)))
    3334
    3435(in-package :ad)
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Controller Test 1/controller-test1.lisp

    r13631 r14632  
    5858(defun test-controller ()
    5959  (let* ((nib-name (lisp-to-temp-nsstring
    60                     (namestring (truename "ip:Controller Test 1;lc-test1.nib"))))
     60                    (namestring (find-nib-in-krueger-contrib "lc-test1.nib"))))
    6161         (wc (make-instance 'lisp-controller-test
    6262               :with-nib-path nib-name)))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Controller Test 2/controller-test2.lisp

    r13631 r14632  
    3232(defun test-browser ()
    3333  (let* ((nib-name (lisp-to-temp-nsstring
    34                     (namestring (truename "ip:Controller Test 2;lc-test2.nib"))))
     34                    (namestring (find-nib-in-krueger-contrib "lc-test2.nib"))))
    3535         (wc (make-instance 'lisp-browser
    3636               :with-nib-path nib-name)))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Controller Test 3/controller-test3.lisp

    r13631 r14632  
    128128(defun test-deal ()
    129129  (let* ((nib-name (lisp-to-temp-nsstring
    130                     (namestring (truename "ip:Controller Test 3;lc-test3.nib"))))
     130                    (namestring (find-nib-in-krueger-contrib "lc-test3.nib"))))
    131131         (wc (make-instance 'hand-of-cards
    132132               :with-nib-path nib-name)))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Loan Calc/loan-calc.lisp

    r13631 r14632  
    5757  (setf (loan self) ln)
    5858  (let* ((nib-name (ccl::%make-nsstring
    59                     (namestring (truename "ip:Loan Calc;loan.nib"))))
     59                    (namestring (find-nib-in-krueger-contrib "loan.nib"))))
    6060         (init-self (#/initWithWindowNibPath:owner: self nib-name self)))
    6161    init-self))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Loan Document/loan-win-cntrl.lisp

    r13631 r14632  
    5252  (setf (loan self) ln)
    5353  (let* ((nib-name (ccl::%make-nsstring
    54                     (namestring (truename "ip:Loan Document;loandoc.nib"))))
     54                    (namestring (find-nib-in-krueger-contrib "loandoc.nib"))))
    5555         (init-self (#/initWithWindowNibPath:owner: self nib-name self)))
    5656    init-self))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/PackageView/package-view.lisp

    r13631 r14632  
    2828(defpackage :package-view
    2929  (:nicknames :pv)
    30   (:use :ccl :common-lisp)
     30  (:use :ccl :common-lisp :iu)
    3131  (:export test-package))
    3232
     
    5656                                          :initial-contents pkgs)))
    5757  (let ((nib-name (ccl::%make-nsstring
    58                    (namestring (truename "ip:PackageView;packageview.nib")))))
     58                   (namestring (find-nib-in-krueger-contrib "packageview.nib")))))
    5959    (setf (window-controller self)
    6060          (make-instance ns:ns-window-controller
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Simple Sum/simplesum.lisp

    r13631 r14632  
    5656  (setf (nib-objects self)
    5757        (load-nibfile
    58          (truename "ip:Simple Sum;sumLisp.nib")
     58         (find-nib-in-krueger-contrib "sumLisp.nib")
    5959         :nib-owner self
    6060         :retain-top-objs t))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Speech/speech-controller.lisp

    r13631 r14632  
    5252  (setf (nib-objects self)
    5353        (load-nibfile
    54          (truename "ip:Speech;SpeechView.nib")
     54         (find-nib-in-krueger-contrib "SpeechView.nib")
    5555         :nib-owner self
    5656         :retain-top-objs t))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Squiggle/squiggle-doc.lisp

    r14587 r14632  
    4242  ((squiggle-list :accessor squiggle-list :initform nil)
    4343   (rotations :accessor rotations :initform 1)
     44   (back-color :accessor back-color :initform (#/blueColor ns:ns-color))
    4445   (squiggle-view :foreign-type :id :accessor squiggle-view)
    4546   (squiggle-win :foreign-type :id :accessor squiggle-win)
    4647   (back-color-well :foreign-type :id :accessor back-color-well)
    47    (back-color :accessor back-color :initform (#/blueColor ns:ns-color))
    4848   (rotation-slider :foreign-type :id :accessor rotation-slider))
    4949  (:metaclass ns:+ns-object))
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/date.lisp

    r13390 r14632  
    189189    (declare (ignore sec min hr dst zone))
    190190    (format nil
    191             "~9s ~2,'0d/~2,'0d/~2,'0d"
    192             (nth day '(monday tuesday wednesday thursday friday saturday sunday))
     191            "~9a ~2,'0d/~2,'0d/~2,'0d"
     192            (nth day '("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday"))
    193193            mm dd (mod yr 100))))
    194194
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/file-directory-utils.lisp

    r14593 r14632  
    3131     find-in-ccl
    3232     find-in-contrib
     33     find-in-krueger-contrib
    3334     find-nib-in-ccl
    34      find-nib-in-contrib)))
     35     find-nib-in-contrib
     36     find-nib-in-krueger-contrib)))
    3537
    3638(in-package :iu)
     
    5355  (find-in-contrib fname :directories t :files nil))
    5456
     57
     58(defun find-in-krueger-contrib (fname &key (directories nil) (files t))
     59  (probe-file (first (directory (concatenate 'string "ccl:contrib;cocoa-ide;krueger;**;" (string fname))
     60                                :directories directories
     61                                :files files))))
     62
     63(defun find-nib-in-krueger-contrib (fname)
     64  (find-in-contrib fname :directories t :files nil))
     65
    5566(provide :file-directory-utils)
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/kvo-slot.lisp

    r14585 r14632  
    161161                                    undo-string
    162162                                    "set value"))))
    163                 t))
     163                slot))
    164164      (values nil nil))))
    165165
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/nib.lisp

    r14585 r14632  
    11;; nib.lisp
    22;; Start with some corrected functions from .../ccl/examples/cocoa/nib-loading/HOWTO.html
     3
     4
     5;; this isn't used here, but almost anyone who wants the rest of this file will want this too
     6(eval-when (:compile-toplevel :load-toplevel :execute)
     7  (require :file-directory-utils))
    38
    49(defpackage :interface-utilities
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/ns-object-utils.lisp

    r14594 r14632  
    188188        ((typep ns-obj 'ns-misc)
    189189         (obj ns-obj))
    190         ((typep ns-obj 'ns:ns-decimal)
     190        ((typep ns-obj 'ns:ns-decimal-number)
    191191         (cond ((ccl::subclassp lisp-class (find-class 'double-float))
    192192                ;; convert the decimal to a double
     
    198198                ;; otherwise convert it to an appropriate lisp integer with assumed
    199199                ;; decimals (see ip;Utilities;decimal.lisp)
    200                 (if (eq (first ns-format) :decimal)
     200                (if (and (listp ns-format) (eq (first ns-format) :decimal))
    201201                  (lisp-from-ns-decimal ns-obj :decimals (second ns-format))
    202202                  (lisp-from-ns-decimal ns-obj)))))
    203203        ((typep ns-obj 'ns:ns-number)
    204          (cond ((eq lisp-class (find-class 'symbol))
     204         (cond ((and (listp ns-format) (eq (first ns-format) :decimal))
     205                (round (* (expt 10 (second ns-format)) (#/floatValue ns-obj))))
     206               ((eq lisp-class (find-class 'symbol))
    205207                ;; how can a number be of class 'symbol? Simple, it is nil if number
    206208                ;; is 0 or t otherwise
     
    212214                ;; convert the number to a float
    213215                (#/floatValue ns-obj))
    214                ((ccl::subclassp lisp-class (find-class 'rational))
     216               ((ccl::subclassp lisp-class (find-class 'integer))
    215217                ;; convert the number to an integer
    216                 (#/intValue ns-obj))
     218                (#/longLongValue ns-obj))
     219               ((ccl::subclassp lisp-class (find-class 'ratio))
     220                ;; convert the number to an integer
     221                (#/floatValue ns-obj))
    217222               ((eql ns-obj (#/numberWithBool: ns:ns-number #$YES))
    218223                ;; the number is the constant for #$YES, convert to t
     
    287292        ((floatp lisp-obj)
    288293         (#/numberWithFloat: ns:ns-number lisp-obj))
     294        ((ratiop lisp-obj)
     295         (#/numberWithFloat: ns:ns-number (float lisp-obj)))
     296        ((floatp lisp-obj)
     297         ;; some other type of floating number
     298         (#/numberWithFloat: ns:ns-number (float lisp-obj)))
     299        ((integerp lisp-obj)
     300         ;; some other type of integer number
     301         (#/numberWithLongLong: ns:ns-number (coerce lisp-obj '(signed-byte 64))))
     302        ((complexp lisp-obj)
     303         ;; no Objective-C counterpart so just return the realpart of the complex
     304         (#/numberWithFloat: ns:ns-number (float (realpart lisp-obj))))
    289305        ((null lisp-obj)
    290306         (#/numberWithBool: ns:ns-number #$NO))
     
    299315        ((or (vectorp lisp-obj) (consp lisp-obj))
    300316         (lisp-to-ns-array lisp-obj))
    301         ((eq lisp-obj t)
    302          (#/numberWithBool: ns:ns-number #$YES))
    303317        ((or (typep lisp-obj 'standard-object)
    304318             (typep lisp-obj 'structure-object))
     
    747761                ((self lisp-ptr-wrapper) (obs :id) (key-path :id) (options #>NSUInteger) (context :address))
    748762  (let ((observer (real-observer obs)))
    749     (ns-log (format nil "~s observed by ~s" (lpw-lisp-ptr self) observer))
     763    ;; (ns-log (format nil "~s observed by ~s" (lpw-lisp-ptr self) observer))
    750764    (when (subtypep (type-of observer) 'ns:ns-control)
    751765      (let* ((cell (#/cell observer))
     
    762776                      (setf ns-format :number)))))
    763777        (when ns-format
    764           (ns-log (format nil "Observer data format: ~s" ns-format))
    765           (set-format-assoc self (ns-to-lisp-string key-path) ns-format)))))
     778          ;; (ns-log (format nil "Observer data format: ~s" ns-format))
     779          (set-format-assoc self (ns-to-lisp-string key-path) ns-format)
     780          ;; We use the ns-format as a hint about how the lisp field is
     781          ;; formatted and convert accordingly when that value is retrieved.
     782          ;; Any controls that previously observed this field might have
     783          ;; received misformatted data, so indicate that the data changed
     784          ;; so they will go get it again. This primarily occurs when a new
     785          ;; window is open and controls are first observing the field.
     786          (#/willChangeValueForKey: self key-path)
     787          (#/didChangeValueForKey: self key-path)))))
    766788  (call-next-method obs key-path options context))
    767789
     
    821843                          (ccl::value-for-kvo-key ptr-obj lisp-str))))
    822844         (prev-class (class-of prev-obj))
    823          (new-lisp-obj (ns-to-lisp-object new-value :lisp-class prev-class))
     845         (new-lisp-obj (ns-to-lisp-object new-value :lisp-class prev-class :ns-format (format-for self lisp-str)))
    824846         (setf-func (fboundp (list 'setf lisp-path)))
    825847         ;;`(setf (,lisp-path ,(lpw-lisp-ptr self)) ,new-lisp-obj))
Note: See TracChangeset for help on using the changeset viewer.