If bc = nil then ' we only need to create this onceДeclare sub setButtonType lib 'Cocoa' selector 'setButtonType:' (h as Integer, t as Integer)

If t = ListBox.TypeCheckbox or (t = ListBox.TypeDefault and tcol.Type = ListBox.TypeCheckbox) then // A checkbox cell static bc as NSButtonCellMBS If tableColumn = nil then return nil end if dim tcol as ListColumnTV = ListColumnTV(tableColumn)Дim mењњell as ListCellTV = _cell(row, col) End EventHandlerД®ventHandler Function dataCell(tableColumn as NSTableColumnMBS, row as Int64) As NSCellMBS RaiseEvent DropObject (dragItems, operationMask, row, info) ' we should pass 'Action as Integer' here, but I don't know how that translation from the operationMask is supposed to be done. MDataSource.DataSource_MoveRows (srcRows, row)Д®nd if return true ' -> drop was successful end if end if // Send it to the DropObject event handler dim dragItems as new DragItemTV (pb) Next me.SelectRows srcRows ' makes sure the moved rows are selected because the DragReorderRows event expects that if not RaiseEvent DragReorderRows (row, - 1) then If mb nil then dim srcRows() as Integer for i as Integer = 0 to mb.Size- 1 step 4 Is this a moved row? if mEnableDragReorder and info.draggingSource = mTableView then dim mb as MemoryBlock = pb.dataForType(DragReorderPBType) EventHandler Function acceptDrop(info as NSDraggingInfoMBS, row as Integer, dropOperation as Integer) As Boolean // Finishes the drop dim pb as NSPasteboardMBS = info.draggingPasteboardДim operationMask as Integer = info.draggingSourceOperationMask

Xojo hierarchical listbox