mac-tip/mac-cpp-source/macos/text_box.cpp

/************************************************************

    text_box.cpp

       AUTHOR: Marcio Luis Teixeira
       CREATED: 3/16/95

       LAST REVISION: 11/29/2021

       (c) 1994-2021 by Marcio Luis Teixeira.
       All rights reserved.

*************************************************************/

#include "text_box.h"

#include <stdio.h>
#include <string.h>

TBHandle gCurTB;

static pascal void TBScrollProc( ControlHandle cntl, short part );
static void TBGetRects(const Rect *r, Rect *viewRect, Rect *destRect, Rect *scrollRect);

#define kSlowScrollSpeed    12

TBHandle TBNew( WindowPtr wind, const Rect *r ) {
    TBHandle    tb;
    Rect        destRect;
    Rect        viewRect;
    Rect        scrollRect;

    SetPort( wind );

    TextFont( geneva );

    tb = (TBHandle) NewHandle( sizeof( TBRec ) );
    if( tb == NULL )
        return NULL;

    HLock( (Handle) tb );
    TBRec &my = **tb;

    my.frame = *r;
    TBGetRects(r, &viewRect, &destRect, &scrollRect);
    my.tbox = TEStylNew( &destRect, &viewRect );
    if (my.tbox == NULL) {
        DisposeHandle( (Handle) tb );
        return NULL;
    }

    my.scroll = NewControl( wind, &scrollRect, "\p", TRUE, 0, 0, 0, scrollBarProc, 1 );
    if (my.scroll == NULL) {
        TEDispose( my.tbox );
        DisposeHandle( (Handle) tb );
        return NULL;
    }

    my.lastV    = 0;
    my.maxV     = 0;
    TEActivate( my.tbox );
    HUnlock( (Handle) tb );

    return tb;
}

void TBDispose( TBHandle tb ) {
    HLock( (Handle) tb );
    TBRec &my = **tb;

    DisposeControl( my.scroll );
    TEDispose( my.tbox );
    DisposeHandle( (Handle) tb );
}

void TBUpdate( TBHandle tb ) {
    HLock( (Handle) tb );
    TBRec &my = **tb;

    TEUpdate( &(*my.tbox)->viewRect, my.tbox );
    FrameRect( &my.frame );

    HUnlock( (Handle) tb );
}

void TBGetRects(const Rect *r, Rect *viewRect, Rect *destRect, Rect *scrollRect) {
    *viewRect = *r;
    viewRect->right -= 16;
    *destRect = *viewRect;
    InsetRect( viewRect, 1, 1 );
    InsetRect( destRect, 4, 4 );
    *scrollRect = *r;
    scrollRect->right--;
    scrollRect->left = scrollRect->right - 16;
}

void TBResize( TBHandle tb, const Rect *r ) {
    Rect        destRect;
    Rect        viewRect;
    Rect        scrollRect;

    TBSetScroll( tb, 0 );

    HLock( (Handle) tb );
    TBRec &my = **tb;

    my.frame = *r;
    TBGetRects(r, &viewRect, &destRect, &scrollRect);
    (*my.tbox)->destRect = destRect;
    (*my.tbox)->viewRect = viewRect;
    TECalText( my.tbox );

    MoveControl( my.scroll, scrollRect.left, scrollRect.top );
    SizeControl( my.scroll, scrollRect.right - scrollRect.left,
                            scrollRect.bottom - scrollRect.top );

    my.maxV = TEGetHeight( 0, 32767, my.tbox );
    my.maxV -= my.frame.bottom - my.frame.top - 30;
    SetCtlMax( my.scroll, my.maxV );

    HUnlock( (Handle) tb );
}


bool TBMouseDown( TBHandle tb, Point where, WindowPtr whichWindow ) {
    if (!PtInRect( where, &(*tb)->frame )) {
        return false;
    }

    HLock( (Handle) tb );
    TBRec &my = **tb;

    ControlHandle   whichCntl;
    short partCode = FindControl(where, whichWindow, &whichCntl);
    if (partCode) {
        if( partCode == inThumb )
            partCode = TrackControl( whichCntl, where, (ControlActionUPP) -1L );
        else {
            ControlActionUPP tbAction;

            tbAction = NewControlActionProc( TBScrollProc );
            gCurTB = tb;
            partCode = TrackControl( whichCntl, where, tbAction );
            DisposeRoutineDescriptor( tbAction );
        }

        if (partCode == inThumb) {
            const short newV = GetCtlValue( my.scroll );
            TBSetScroll( tb, newV );
        }
    }
    HUnlock( (Handle) tb );
    return true;
}

static pascal void TBScrollProc( ControlHandle cntl, short part ) {
    short       newV;
    short       max;
    short       height;
    long        lastTicks;

    TBRec &my = **gCurTB;

    newV = my.lastV;
    height = my.frame.bottom - my.frame.top;

    switch( part ) {
        case inDownButton:  newV +=