Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/Python 1.4/twit/mactwit_browser.py

Python Source | 1996-09-24 | 13.4 KB | 430 lines | [TEXT/Pyth]

"""A simple Mac-only browse utility to peek at the inner data structures of Python."""
# Minor modifications by Jack to facilitate incorporation in twit.

# june 1996
# Written by Just van Rossum <[e-mail]>, please send comments/improvements.
# Loosely based on Jack Jansens's PICTbrowse.py, but depends on his fabulous FrameWork.py
# XXX Some parts are *very* poorly solved. Will fix. Guido has to check if all the
# XXX "python-peeking" is done correctly. I kindof reverse-engineered it ;-)

# disclaimer: although I happen to be the brother of Python's father, programming is
# not what I've been trained to do. So don't be surprised if you find anything that's not
# as nice as it could be...

# XXX to do:
# Arrow key support
# Copy & Paste?
# MAIN_TEXT item should not contain (type); should be below or something.
# MAIN_TEXT item should check if a string is binary or not: convert to '/000' style
# or convert newlines.

version = "1.0"

import FrameWork
import EasyDialogs
import Dlg
import Res
import Qd
import List
import sys
from Types import *
from QuickDraw import *
import string
import time
import os

# The initial object to start browsing with. Can be anything, but 'sys' makes kindof sense.
start_object = sys

# Resource definitions
ID_MAIN = 516
NUM_LISTS = 4    # the number of lists used. could be changed, but the dlg item numbers should be consistent
MAIN_TITLE = 3    # this is only the first text item, the other three ID's should be 5, 7 and 9
MAIN_LIST = 4    # this is only the first list, the other three ID's should be 6, 8 and 10
MAIN_TEXT = 11
MAIN_LEFT = 1
MAIN_RIGHT = 2
MAIN_RESET = 12
MAIN_CLOSE = 13
MAIN_LINE = 14

def Initialize():
    # this bit ensures that this module will also work as an applet if the resources are
    # in the resource fork of the applet
    # stolen from Jack, so it should work(?!;-)
    try:
        # if this doesn't raise an error, we are an applet containing the necessary resources
        # so we don't have to bother opening the resource file
        dummy = Res.GetResource('DLOG', ID_MAIN)
    except Res.Error:
        savewd = os.getcwd()
        ourparentdir = os.path.split(openresfile.func_code.co_filename)[0]
        os.chdir(ourparentdir)
        try:
            Res.OpenResFile("mactwit_browse.rsrc")
        except Res.Error, arg:
            EasyDialogs.Message("Cannot open mactwit_browse.rsrc: "+arg[1])
            sys.exit(1)
        os.chdir(savewd)

def main():
    Initialize()
    PythonBrowse()

# this is all there is to it to make an application.
class PythonBrowse(FrameWork.Application):
    def __init__(self):
        FrameWork.Application.__init__(self)
        VarBrowser(self).open(start_object)
        self.mainloop()

    def do_about(self, id, item, window, event):
        EasyDialogs.Message(self.__class__.__name__ + " version " + version + "\rby Just van Rossum")

    def quit(self, *args):
        raise self

class MyList:
    def __init__(self, wid, rect, itemnum):
        # wid is the window (dialog) where our list is going to be in
        # rect is it's item rectangle (as in dialog item)
        # itemnum is the itemnumber in the dialog
        self.rect = rect
        rect2 = rect[0]+1, rect[1]+1, rect[2]-16, rect[3]-1        # Scroll bar space, that's 15 + 1, Jack!
        self.list = List.LNew(rect2, (0, 0, 1, 0), (0,0), 0, wid,
                    0, 1, 0, 1)
        self.wid = wid
        self.active = 0
        self.itemnum = itemnum

    def setcontent(self, content, title = ""):
        # first, gather some stuff
        keylist = []
        valuelist = []
        thetype = type(content)
        if thetype == DictType:
            keylist = content.keys()
            keylist.sort()
            for key in keylist:
                valuelist.append(content[key])
        elif thetype == ListType:
            keylist = valuelist = content
        elif thetype == TupleType:

            keylist = valuelist = []
            for i in content:
                keylist.append(i)
        else:
            # XXX help me! is all this correct? is there more I should consider???
            # XXX is this a sensible way to do it in the first place????
            # XXX I'm not familiar enough with Python's guts to be sure. GUIDOOOOO!!!
            if hasattr(content, "__dict__"):
                keylist = keylist + content.__dict__.keys()
            if hasattr(content, "__methods__"):
                keylist = keylist + content.__methods__
            if hasattr(content, "__members__"):
                keylist = keylist + content.__members__
            if hasattr(content, "__class__"):
                keylist.append("__class__")
            if hasattr(content, "__bases__"):
                keylist.append("__bases__")
            if hasattr(content, "__name__"):
                title = content.__name__
                if "__name__" not in keylist:
                    keylist.append("__name__")
            keylist.sort()
            for key in keylist:
                valuelist.append(getattr(content, key))
        if content <> None:
            title = title + "\r" + cleantype(content)
        # now make that list!
        tp, h, rect = self.wid.GetDialogItem(self.itemnum - 1)
        Dlg.SetDialogItemText(h, title[:255])
        self.list.LDelRow(0, 1)
        self.list.LSetDrawingMode(0)
        self.list.LAddRow(len(keylist), 0)
        for i in range(len(keylist)):
            self.list.LSetCell(str(keylist[i]), (0, i))
        self.list.LSetDrawingMode(1)
        self.list.LUpdate(self.wid.GetWindowPort().visRgn)
        self.content = content
        self.keylist = keylist
        self.valuelist = valuelist
        self.title = title

    # draw a frame around the list, List Manager doesn't do that
    def drawframe(self):
        Qd.SetPort(self.wid)
        Qd.FrameRect(self.rect)
        rect2 = Qd.InsetRect(self.rect, -3, -3)
        save = Qd.GetPenState()
        Qd.PenSize(2, 2)
        if self.active:
            Qd.PenPat(Qd.qd.black)
        else:
            Qd.PenPat(Qd.qd.white)
        # draw (or erase) an extra frame to indicate this is the acive list (or not)
        Qd.FrameRect(rect2)
        Qd.SetPenState(save)



class VarBrowser(FrameWork.DialogWindow):
    def open(self, start_object, title = ""):
        FrameWork.DialogWindow.open(self, ID_MAIN)
        if title <> "":
            windowtitle = self.wid.GetWTitle()
            self.wid.SetWTitle(windowtitle + " >> " + title)
        else:
            if hasattr(start_object, "__name__"):
                windowtitle = self.wid.GetWTitle()
                self.wid.SetWTitle(windowtitle + " >> " + str(getattr(start_object, "__name__")) )

        self.SetPort()
        Qd.TextFont(3)
        Qd.TextSize(9)
        self.lists = []
        self.listitems = []
        for i in range(NUM_LISTS):
            self.listitems.append(MAIN_LIST + 2 * i)    # dlg item numbers... have to be consistent
        for i in self.listitems:
            tp, h, rect = self.wid.GetDialogItem(i)
            list = MyList(self.wid, rect, i)
            self.lists.append(list)
        self.leftover = []
        self.rightover = []
        self.setup(start_object, title)

    def close(self):
        self.lists = []
        self.listitems = []
        self.do_postclose()

    def setup(self, start_object, title = ""):
        # here we set the starting point for our expedition
        self.start = start_object
        self.lists[0].setcontent(start_object, title)
        for list in self.lists[1:]:
            list.setcontent(None)

    def do_listhit(self, event, item):
        (what, message, when, where, modifiers) = event
        Qd.SetPort(self.wid)
        where = Qd.GlobalToLocal(where)
        for list in self.lists:
            list.active = 0
        list = self.lists[self.listitems.index(item)]
        list.active = 1
        for l in self.lists:
            l.drawframe()

        point = (0,0)
        ok, point = list.list.LGetSelect(1, point)
        if ok:
            oldsel = point[1]
        else:
            oldsel = -1
        # This should be: list.list.LClick(where, modifiers)
        # Since the selFlags field of the list is not accessible from Python I have to do it like this.
        # The effect is that you can't select more items by using shift or command.
        list.list.LClick(where, 0)

        index = self.listitems.index(item) + 1
        point = (0,0)
        ok, point = list.list.LGetSelect(1, point)
        if oldsel == point[1]:
            return    # selection didn't change, do nothing.
        if not ok:
            for i in range(index, len(self.listitems)):
                self.lists[i].setcontent(None)
            self.rightover = []
            return

        if point[1] >= len(list.keylist):
            return        # XXX is this still necessary? is ok really true?
        key = str(list.keylist[point[1]])
        value = list.valuelist[point[1]]

        self.settextitem("")
        thetype = type(value)
        if thetype == ListType or                 \
                thetype == TupleType or         \
                thetype == DictType or             \
                hasattr(value, "__dict__") or         \
                hasattr(value, "__methods__") or    \
                hasattr(value, "__members__"):    # XXX or, or... again: did I miss something?
            if index >= len(self.listitems):
                # we've reached the right side of our dialog. move everything to the left
                # (by pushing the rightbutton...)
                self.do_rightbutton(1)
                index = index - 1
            newlist = self.lists[index]
            newlist.setcontent(value, key)
        else:
            index = index - 1
            self.settextitem( str(value) + "\r" + cleantype(value))
        for i in range(index + 1, len(self.listitems)):
            self.lists[i].setcontent(None)
        self.rightover = []

    # helper to set the big text item at the bottom of the dialog.
    def settextitem(self, text):
        tp, h, rect = self.wid.GetDialogItem(MAIN_TEXT)
        Dlg.SetDialogItemText(h, text[:255])

    def do_rawupdate(self, window, event):
        Qd.SetPort(self.wid)
        iType, iHandle, iRect = window.GetDialogItem(MAIN_LINE)
        Qd.FrameRect(iRect)
        for list in self.lists:
            Qd.FrameRect(list.rect)
            if list.active:
                # see MyList.drawframe
                rect2 = Qd.InsetRect(list.rect, -3, -3)
                save = Qd.GetPenState()
                Qd.PenSize(2, 2)
                Qd.FrameRect(rect2)
                Qd.SetPenState(save)
        for list in self.lists:
            list.list.LUpdate(self.wid.GetWindowPort().visRgn)

    def do_activate(self, activate, event):
        for list in self.lists:
            list.list.LActivate(activate)

    # scroll everything one 'unit' to the left
    # XXX I don't like the way this works. Too many 'manual' assignments
    def do_rightbutton(self, force = 0):
        if not force and self.rightover == []:
            return
        self.scroll(-1)
        point = (0, 0)
        ok, point = self.lists[0].list.LGetSelect(1, point)
        self.leftover.append(point, self.lists[0].content, self.lists[0].title, self.lists[0].active)
        for i in range(len(self.lists)-1):
            point = (0, 0)
            ok, point = self.lists[i+1].list.LGetSelect(1, point)
            self.lists[i].setcontent(self.lists[i+1].content, self.lists[i+1].title)
            self.lists[i].list.LSetSelect(ok, point)
            self.lists[i].list.LAutoScroll()
            self.lists[i].active = self.lists[i+1].active
            self.lists[i].drawframe()
        if len(self.rightover) > 0:
            point, content, title, active = self.rightover[-1]
            self.lists[-1].setcontent(content, title)
            self.lists[-1].list.LSetSelect(1, point)
            self.lists[-1].list.LAutoScroll()
            self.lists[-1].active = active
            self.lists[-1].drawframe()
            del self.rightover[-1]
        else:
            self.lists[-1].setcontent(None)
            self.lists[-1].active = 0
        for list in self.lists:
            list.drawframe()

    # scroll everything one 'unit' to the right
    def do_leftbutton(self):
        if self.leftover == []:
            return
        self.scroll(1)
        if self.lists[-1].content <> None:
            point = (0, 0)
            ok, point = self.lists[-1].list.LGetSelect(1, point)
            self.rightover.append(point, self.lists[-1].content, self.lists[-1].title, self.lists[-1].active )
        for i in range(len(self.lists)-1, 0, -1):
            point = (0, 0)
            ok, point = self.lists[i-1].list.LGetSelect(1, point)
            self.lists[i].setcontent(self.lists[i-1].content, self.lists[i-1].title)
            self.lists[i].list.LSetSelect(ok, point)
            self.lists[i].list.LAutoScroll()
            self.lists[i].active = self.lists[i-1].active
            self.lists[i].drawframe()
        if len(self.leftover) > 0:
            point, content, title, active = self.leftover[-1]
            self.lists[0].setcontent(content, title)
            self.lists[0].list.LSetSelect(1, point)
            self.lists[0].list.LAutoScroll()
            self.lists[0].active = active
            self.lists[0].drawframe()
            del self.leftover[-1]
        else:
            self.lists[0].setcontent(None)
            self.lists[0].active = 0

    # create some visual feedback when 'scrolling' the lists to the left or to the right
    def scroll(self, leftright):    # leftright should be 1 or -1
        # first, build a region containing all list rectangles
        myregion = Qd.NewRgn()
        mylastregion = Qd.NewRgn()
        for list in self.lists:
            AddRect2Rgn(list.rect, myregion)
            AddRect2Rgn(list.rect, mylastregion)
        # set the pen, but save it's state first
        self.SetPort()
        save = Qd.GetPenState()
        Qd.PenPat(Qd.qd.gray)
        Qd.PenMode(srcXor)
        # how far do we have to scroll?
        distance = self.lists[1].rect[0] - self.lists[0].rect[0]
        step = 30
        lasttime = time.clock()    # for delay
        # do it
        for i in range(0, distance, step):
            if i <> 0:
                Qd.FrameRgn(mylastregion)    # erase last region
                Qd.OffsetRgn(mylastregion, step * leftright, 0)
            # draw gray region
            Qd.FrameRgn(myregion)
            Qd.OffsetRgn(myregion, step * leftright, 0)
            while time.clock() - lasttime < 0.05:
                pass    # delay
            lasttime = time.clock()
        # clean up after your dog
        Qd.FrameRgn(mylastregion)
        Qd.SetPenState(save)

    def reset(self):
        for list in self.lists:
            point = (0,0)
            ok, point = list.list.LGetSelect(1, point)
            if ok:
                sel = list.keylist[point[1]]
            list.setcontent(list.content, list.title)
            if ok:
                list.list.LSetSelect(1, (0, list.keylist.index(sel)))
                list.list.LAutoScroll()

    def do_itemhit(self, item, event):
        if item in self.listitems:
            self.do_listhit(event, item)
        elif item == MAIN_LEFT:
            self.do_leftbutton()
        elif item == MAIN_RIGHT:
            self.do_rightbutton()
        elif item == MAIN_CLOSE:
            self.close()
        elif item == MAIN_RESET:
            self.reset()

# helper function that returns a short string containing the type of an arbitrary object
# eg: cleantype("wat is dit nu weer?") -> '(string)'
def cleantype(obj):
    # type() typically returns something like: <type 'string'>
    items = string.split(str(type(obj)), "'")
    if len(items) == 3:
        return '(' + items[1] + ')'
    else:
        # just in case, I don't know.
        return str(type(obj))

# helper for VarBrowser.scroll
def AddRect2Rgn(theRect, theRgn):
    rRgn = Qd.NewRgn()
    Qd.RectRgn(rRgn, theRect)
    Qd.UnionRgn(rRgn, theRgn, theRgn)


if __name__ == "__main__":
    main()