void init_ListWin()
{
short rowNum= (**gPlaylist).dataBounds.bottom;
SetPortWindowPort(win.ref);
LDelRow(0, 0, gPlaylist);
}
/* -----------------------------------------------------------------------------*/
void FillLists (void)
{
TDriverInfos drvInfo; TSlotInfos slotInfo; SlotRefNum sref;
Cell srcCell, dstCell; Boolean visible;
short ref, i, j, p, n = MidiCountDrivers();
srcCell.h = srcCell.v = dstCell.h = dstCell.v = 0;
LDelRow(0, 0, theList[SrcL]);
LDelRow(0, 0, theList[DstL]);
ResetPortMap ();
for (i = 1; i <= n; i++) {
ref = MidiGetIndDriver (i);
if (MidiGetDriverInfos (ref, &drvInfo)) {
for (j = 1; j <= drvInfo.slots; j++) {
sref = MidiGetIndSlot (ref, j);
if (MidiGetSlotInfos (sref, &slotInfo)) {
visible = false;
if (slotInfo.direction & MidiInputSlot) {
LAddRow(1, srcCell.v, theList[SrcL]);
LSetCell(&slotInfo.name[1], slotInfo.name[0], srcCell, theList[SrcL]);
srcCell.v++; visible = true;
}
if (slotInfo.direction & MidiOutputSlot) {
LAddRow(1, dstCell.v, theList[DstL]);
LSetCell(&slotInfo.name[1], slotInfo.name[0], dstCell, theList[DstL]);
dstCell.v++; visible = true;
}
if (visible) {
for (p = 0; p < 32; p++) PortsMap[p] |= slotInfo.cnx[p];
}
}
}
if (i <= 64) {
InListMap[i-1] = srcCell.v;
OutListMap[i-1] = dstCell.v;
}
}
}
InvalPortArea();
LUpdate(myWindow->visRgn, theList[SrcL]);
LUpdate(myWindow->visRgn, theList[DstL]);
}
extern pascal void LDelRowWhite(SInt16 count, SInt16 rowNum, ListHandle lHandle)
{
OSStatus err;
MoreThemeDrawingState state;
err = MoreGetThemeDrawingState(&state);
if (err == noErr) {
err = MoreNormalizeThemeDrawingState();
assert(err == noErr);
LDelRow(count, rowNum, lHandle);
err = MoreSetThemeDrawingState(state, true);
}
assert(err == noErr);
}
void wxListBox::MacClear()
{
LDelRow( (**(ListHandle)m_macList).dataBounds.bottom , 0 ,(ListHandle) m_macList ) ;
Refresh();
}
/*
void MacDrawStringCell(Rect *cellRect, Cell lCell, ListHandle theList, long refCon)
{
wxListBox* list;
// typecast our refCon
list = (wxListBox*)refCon;
MoveTo(cellRect->left + 4 , cellRect->top + 10 );
const wxString text = list->m_stringArray[lCell.v] ;
::TextFont( kFontIDMonaco ) ;
::TextSize( 9 );
::TextFace( 0 ) ;
DrawText(text, 0 , text.length());
}
*/
void wxListBox::MacDelete( int N )
{
LDelRow( 1 , N , (ListHandle)m_macList) ;
Refresh();
}
