?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
delint: unused on AROS
[AROS-Contrib.git] / bgui / examples / MultiColumn.c
blobba34e6e4df5b14935cf19f1b8ef12879fb22e6b1
1 /*
2 * @(#) $Header$
3 *
4 * MultiColumn.c
5 *
6 * (C) Copyright 1998 Manuel Lemos.
7 * (C) Copyright 1995 Jaba Development.
8 * (C) Copyright 1995 Jan van den Baard.
9 * All Rights Reserved.
10 *
11 * $Log$
12 * Revision 42.2 2004/06/17 07:38:47 chodorowski
13 * Added missing REGFUNC_END.
14 *
15 * Revision 42.1 2000/05/15 19:29:50 stegerg
16 * replacements for REG macro.
17 *
18 * Revision 42.0 2000/05/09 22:19:56 mlemos
19 * Bumped to revision 42.0 before handing BGUI to AROS team
20 *
21 * Revision 41.11 2000/05/09 20:33:46 mlemos
22 * Bumped to revision 41.11
23 *
24 * Revision 1.2 2000/05/09 19:59:02 mlemos
25 * Merged with the branch Manuel_Lemos_fixes.
26 *
27 * Revision 1.1.2.3 1999/02/19 05:03:56 mlemos
28 * Added support to build with Storm C.
29 *
30 * Revision 1.1.2.2 1998/04/27 00:13:01 mlemos
31 * Ensured that the stack is never less than 8000 bytes.
32 *
33 * Revision 1.1.2.1 1998/02/28 17:45:30 mlemos
34 * Ian sources
35 *
36 *
37 */
38
39 /*
40 dcc MultiColumn.c -proto -mi -ms -mRR -lbgui
41 quit
42 */
43
44 long __stack=8000;
45
46 #include "DemoCode.h"
47
48 #include <dos/exall.h>
49 #include <utility/hooks.h>
50
51 #include <clib/macros.h>
52
53 #include <string.h>
54 #include <stdio.h>
55
56 /*
57 ** This is the data were going to add
58 ** to the listview object. It is a simple
59 ** structure in which the file-information
60 ** is stored. This data is created in the
61 ** LISTV_Resource hook from a pointer
62 ** to a ExAllData structure.
63 **/
64 typedef struct {
65 UBYTE fi_FileName[ 108 ];
66 UBYTE fi_Size[ 11 ];
67 UBYTE fi_Date[ 32 ];
68 BOOL fi_IsDir;
69 } FILEINFO;
70
71 /*
72 ** The LISTV_Resource hook is used to create
73 ** the FILEINFO structures from a struct ExAllData
74 ** at create time. At delete time the FILEINFO
75 ** structure is simply deallocated.
76 **/
77 //SAVEDS ASM APTR ResourceHookFunc( REG(a0) struct Hook *hook, REG(a2) Object *obj, REG(a1) struct lvResource *lvr )
78 SAVEDS ASM REGFUNC3(APTR, ResourceHookFunc,
79 REGPARAM(A0, struct Hook *, hook),
80 REGPARAM(A2, Object *, obj),
81 REGPARAM(A1, struct lvResource *, lvr))
82 {
83 struct ExAllData *ead;
84 FILEINFO *fi;
85 struct DateTime dt;
86 APTR return_code = NULL;
87
88 /*
89 ** What must we do?
90 **/
91 switch ( lvr->lvr_Command ) {
92
93 case LVRC_MAKE:
94 /*
95 ** Create a FILEINFO structure.
96 ** BGUI has passed us a pointer to a
97 ** ExAllData structure. Here we
98 ** convert it to a FILEINFO structure
99 ** which, eventually, get's added to
100 ** the listview.
101 **/
102 if (( fi = ( FILEINFO * )AllocVec( sizeof( FILEINFO ), MEMF_PUBLIC ))) {
103 /*
104 ** Pick up the ExAllData.
105 **/
106 ead = ( struct ExAllData * )lvr->lvr_Entry;
107 /*
108 ** Copy the name.
109 **/
110 strcpy( &fi->fi_FileName[ 0 ], ead->ed_Name );
111 /*
112 ** Format the size text. We can do all sorts of
113 ** fancy stuff here like using the locale.library
114 ** formatting stuff but hey, it's just a demo ;)
115 **/
116 if ( ead->ed_Type < 0 ) {
117 fi->fi_IsDir = FALSE;
118 sprintf( &fi->fi_Size[ 0 ], "%ld", (long int)ead->ed_Size );
119 } else {
120 fi->fi_IsDir = TRUE;
121 strcpy( &fi->fi_Size[ 0 ], "(dir)" );
122 }
123 /*
124 ** Convert the date to a string.
125 **/
126 dt.dat_Stamp = *(( struct DateStamp * )&ead->ed_Days );
127 dt.dat_Format = FORMAT_CDN;
128 dt.dat_Flags = DTF_SUBST | DTF_FUTURE;
129 dt.dat_StrDay = NULL;
130 dt.dat_StrDate = &fi->fi_Date[ 0 ];
131 dt.dat_StrTime = NULL;
132 /*
133 ** Format date.
134 **/
135 DateToStr( &dt );
136 /*
137 ** Return a pointer to the created
138 ** FILEINFO structure.
139 **/
140 return_code = ( APTR )fi;
141 }
142 break;
143
144 case LVRC_KILL:
145 /*
146 ** Simply deallocate the FILEINFO
147 ** structure which has been created with
148 ** LVRC_MAKE above.
149 **/
150 FreeVec( lvr->lvr_Entry );
151 break;
152 }
153 /*
154 ** Pointer to FILEINFO or NULL.
155 **/
156 return( return_code );
157 }
158 REGFUNC_END
159
160 /*
161 ** The listview will have three columns.
162 **
163 ** Name Size Date
164 **
165 ** The following globals will contain the maximum
166 ** width of each of these columns.
167 **/
168 UWORD MaxName, MaxSize, MaxDate;
169
170 /*
171 ** This global stores the total width of the
172 ** listview drawing area.
173 **/
174 UWORD TotalWidth = 0;
175
176 /*
177 ** This boolean determines wether the hook must
178 ** re-compute the column sizes.
179 **/
180 BOOL ReCompCols = TRUE;
181
182 /*
183 ** We use 16 pixels as a minimum inner-column spacing.
184 **/
185 #define INNER_SPACE 16
186
187 /*
188 ** This routine re-computes the minimum column
189 ** sizes when necessary.
190 **/
191 VOID ReComputeColumns( struct RastPort *rp, Object *obj, UWORD list_width )
192 {
193 FILEINFO *fi;
194 UWORD tmp, total;
195
196 /*
197 ** A re-computation is necessary when:
198 **
199 ** 1) The ReCompCols flag is TRUE.
200 ** 2) The with of the listview has changed.
201 **/
202 if ( ReCompCols || ( TotalWidth != list_width )) {
203 /*
204 ** Our listview also has a title entry.
205 ** Here we compute the default column
206 ** sizes accoording to this title.
207 **/
208 MaxName = TextLength( rp, "Name:", 6 ) + INNER_SPACE;
209 MaxSize = TextLength( rp, "Size:", 6 ) + INNER_SPACE;
210 MaxDate = TextLength( rp, "Date:", 6 );
211 /*
212 ** Now we loop through the entries to find
213 ** out the largest width of the three columns.
214 **/
215 if (( fi = ( FILEINFO * )FirstEntry( obj ))) {
216 /*
217 ** Loop until all are done.
218 **/
219 while ( fi ) {
220 /*
221 ** Compute width of the Name: column
222 ** for this entry.
223 **/
224 tmp = TextLength( rp, &fi->fi_FileName[ 0 ], strlen( &fi->fi_FileName[ 0 ] )) + INNER_SPACE;
225 /*
226 ** Is it bigger than the last one?
227 ** If so store it.
228 **/
229 if ( tmp > MaxName ) MaxName = tmp;
230 /*
231 ** Compute width of the Size: column
232 ** for this entry.
233 **/
234 tmp = TextLength( rp, &fi->fi_Size[ 0 ], strlen( &fi->fi_Size[ 0 ] )) + INNER_SPACE;
235 /*
236 ** Is it bigger than the last one?
237 ** If so store it.
238 **/
239 if ( tmp > MaxSize ) MaxSize = tmp;
240 /*
241 ** Compute width of the Date: column
242 ** for this entry.
243 **/
244 tmp = TextLength( rp, &fi->fi_Date[ 0 ], strlen( &fi->fi_Date[ 0 ] ));
245 /*
246 ** Is it bigger than the last one?
247 ** If so store it.
248 **/
249 if ( tmp > MaxDate ) MaxDate = tmp;
250 /*
251 ** Pick up the next entry.
252 **/
253 fi = ( FILEINFO * )NextEntry( obj, fi );
254 }
255 }
256 /*
257 ** Compute the total columns width.
258 **/
259 total = MaxName + MaxSize + MaxDate;
260 /*
261 ** If there's room left over we
262 ** distribute it between the columns so
263 ** we get a nice even spacing between
264 ** them.
265 **/
266 if ( list_width > total ) {
267 MaxName += ( list_width - total ) >> 1;
268 MaxSize += ( list_width - total ) >> 1;
269 }
270 /*
271 ** All done. Set the re-compute flag to
272 ** FALSE and store the list width.
273 **/
274 ReCompCols = FALSE;
275 TotalWidth = list_width;
276 }
277 }
278
279 /*
280 ** The default DrawInfo pens. Just in case we don't
281 ** get them from the system.
282 **/
283 UWORD DefDriPens[] = {
284 0, 1, 1, 2, 1, 3, 1, 0, 2, 1, 2, 1 };
285
286 /*
287 ** Listview rendering hook. Here's where the magic starts ;)
288 **/
289 //SAVEDS ASM UBYTE *DisplayHookFunc( REG(a0) struct Hook *hook, REG(a2) Object *obj, REG(a1) struct lvRender *lvr )
290 SAVEDS ASM REGFUNC3(UBYTE *, DisplayHookFunc,
291 REGPARAM(A0, struct Hook *, hook),
292 REGPARAM(A2, Object *, obj),
293 REGPARAM(A1, struct lvRender *, lvr))
294 {
295 struct TextExtent te;
296 UBYTE *str;
297 FILEINFO *fi = ( FILEINFO * )lvr->lvr_Entry;
298 UWORD *pens, numc, w, l, cw, h;
299
300 /*
301 ** Pick up the DrawInfo pen array.
302 **/
303 pens = lvr->lvr_DrawInfo ? lvr->lvr_DrawInfo->dri_Pens : DefDriPens;
304 /*
305 ** Pick up the width of the list.
306 **/
307 w = lvr->lvr_Bounds.MaxX - lvr->lvr_Bounds.MinX + 1;
308 /*
309 ** Pick up the list left-edge;
310 **/
311 l = lvr->lvr_Bounds.MinX;
312 /*
313 ** Pick up the height of the entry.
314 **/
315 h = lvr->lvr_Bounds.MaxY - lvr->lvr_Bounds.MinY + 1;
316
317 /*
318 ** First we render the background.
319 **/
320 SetAPen( lvr->lvr_RPort, lvr->lvr_State == LVRS_SELECTED ? pens[ FILLPEN ] : pens[ BACKGROUNDPEN ] );
321 SetDrMd( lvr->lvr_RPort, JAM1 );
322
323 RectFill( lvr->lvr_RPort, lvr->lvr_Bounds.MinX,
324 lvr->lvr_Bounds.MinY,
325 lvr->lvr_Bounds.MaxX,
326 lvr->lvr_Bounds.MaxY );
327
328 /*
329 ** When we are passed a NULL entry pointer
330 ** we are presumed to render the title. If your
331 ** listview does not have a title simply
332 ** recompute the columns and return NULL.
333 ** We have a title so here we go.
334 **/
335 if ( ! fi ) {
336 /*
337 ** Recompute the column sizes. The routine
338 ** itself will decide if it's necessary.
339 **/
340 ReComputeColumns( lvr->lvr_RPort, obj, w );
341 /*
342 ** Set the pen for the title-entry.
343 **/
344 SetAPen( lvr->lvr_RPort, pens[ FILLPEN ] );
345 } else {
346 /*
347 ** Set the pen for a non-title entry. Ofcourse
348 ** we can (should?) differenciate between normal and
349 ** selected here but I wont ;)
350 **/
351 if ( fi->fi_IsDir ) SetAPen( lvr->lvr_RPort, pens[ HIGHLIGHTTEXTPEN ] );
352 else SetAPen( lvr->lvr_RPort, pens[ TEXTPEN ] );
353 }
354 /*
355 ** Obtain Name: column width. We check it against the
356 ** total list width so we do not go outside the
357 ** given area.
358 **/
359 cw = MIN( MaxName, w );
360
361 /*
362 ** Pick up the name string or, when this
363 ** is a title call, the string "Name:".
364 **/
365 str = fi ? &fi->fi_FileName[ 0 ] : ( UBYTE * )"Name:";
366
367 /*
368 ** Compute the number of character we
369 ** can render.
370 **/
371 numc = TextFit( lvr->lvr_RPort, str, strlen( str ), &te, NULL, 0, cw, h );
372
373 /*
374 ** If the number of characters is
375 ** 0 we can stop right here and now.
376 **/
377 if ( ! numc ) return( NULL );
378
379 /*
380 ** Move to the correct position
381 ** and render the text.
382 **/
383 Move( lvr->lvr_RPort, l, lvr->lvr_Bounds.MinY + lvr->lvr_RPort->TxBaseline );
384 Text( lvr->lvr_RPort, str, numc );
385
386 /*
387 ** Adjust the left-edge and width to
388 ** get past the Name: column.
389 **/
390 l += cw;
391 w = MAX(( WORD )( w - cw ), 0 );
392
393 /*
394 ** Obtain Size: column width. We check it against the
395 ** total list width so we do not go outside the
396 ** given area.
397 **/
398 cw = MIN( MaxSize, w );
399
400 /*
401 ** Pick up the size string or, when this
402 ** is a title call, the string "Size:".
403 **/
404 str = fi ? &fi->fi_Size[ 0 ] : ( UBYTE * )"Size:";
405
406 /*
407 ** Compute the number of character we
408 ** can render.
409 **/
410 numc = TextFit( lvr->lvr_RPort, str, strlen( str ), &te, NULL, 0, cw, h );
411
412 /*
413 ** If the number of characters is
414 ** 0 we can stop right here and now.
415 **/
416 if ( ! numc ) return( NULL );
417
418 /*
419 ** Move to the correct position
420 ** and render the text.
421 **/
422 Move( lvr->lvr_RPort, l, lvr->lvr_Bounds.MinY + lvr->lvr_RPort->TxBaseline );
423 Text( lvr->lvr_RPort, str, numc );
424
425 /*
426 ** Adjust the left-edge and width to
427 ** get past the Size: column.
428 **/
429 l += cw;
430 w = MAX(( WORD )( w - cw ), 0 );
431
432 /*
433 ** Obtain Date column width. We check it against the
434 ** total list width so we do not go outside the
435 ** given area.
436 **/
437 cw = MIN( MaxDate, w );
438
439 /*
440 ** Pick up the date string or, when this
441 ** is a title call, the string "Date:".
442 **/
443 str = fi ? &fi->fi_Date[ 0 ] : ( UBYTE * )"Date:";
444
445 /*
446 ** Compute the number of character we
447 ** can render.
448 **/
449 numc = TextFit( lvr->lvr_RPort, str, strlen( str ), &te, NULL, 0, cw, h );
450
451 /*
452 ** If the number of characters is
453 ** 0 we can stop right here and now.
454 **/
455 if ( ! numc ) return( NULL );
456
457 /*
458 ** Move to the correct position
459 ** and render the text.
460 **/
461 Move( lvr->lvr_RPort, l, lvr->lvr_Bounds.MinY + lvr->lvr_RPort->TxBaseline );
462 Text( lvr->lvr_RPort, str, numc );
463
464 /*
465 ** Return NULL. This is important. If we return a non-NULL
466 ** value the listview class will think it is a pointer to
467 ** the text to render and try to render it.
468 **/
469 return( NULL );
470 }
471 REGFUNC_END
472
473 /*
474 ** The comparrison hook. We do a simple name, dir/file
475 ** comparrison here.
476 **/
477 //SAVEDS ASM LONG CompareHookFunc( REG(a0) struct Hook *hook, REG(a2) Object *obj, REG(a1) struct lvCompare *lvc )
478 SAVEDS ASM REGFUNC3(LONG, CompareHookFunc,
479 REGPARAM(A0, struct Hook *, hook),
480 REGPARAM(A2, Object *, obj),
481 REGPARAM(A1, struct lvCompare *,lvc))
482 {
483 FILEINFO *a = ( FILEINFO * )lvc->lvc_EntryA;
484 FILEINFO *b = ( FILEINFO * )lvc->lvc_EntryB;
485
486 /*
487 ** First we do a type comparrison to get the
488 ** directories at the top of the list.
489 **/
490 if ( a->fi_IsDir && ! b->fi_IsDir ) return( -1L );
491 else if ( ! a->fi_IsDir && b->fi_IsDir ) return( 1L );
492
493 /*
494 ** Otherwise we do a simple, case insensitive,
495 ** name string comparrison.
496 **/
497 return( stricmp( &a->fi_FileName[ 0 ], &b->fi_FileName[ 0 ] ));
498 }
499 REGFUNC_END
500
501 /*
502 ** A IDCMP hook for the window which allows us
503 ** to control the listview from the keyboard.
504 **/
505 //SAVEDS ASM VOID ScrollHookFunc( REG(a0) struct Hook *hook, REG(a2) Object *obj, REG(a1) struct IntuiMessage *msg )
506 SAVEDS ASM REGFUNC3(VOID, ScrollHookFunc,
507 REGPARAM(A0, struct Hook *, hook),
508 REGPARAM(A2, Object *, obj),
509 REGPARAM(A1, struct IntuiMessage *, msg))
510 {
511 struct Window *window;
512 Object *lv_obj = ( Object * )hook->h_Data;
513
514 /*
515 ** Obtain window pointer.
516 **/
517 GetAttr( WINDOW_Window, obj, ( IPTR * )&window );
518
519 /*
520 ** What key is pressed?
521 **/
522 switch ( msg->Code ) {
523
524 case 0x4C:
525 /*
526 ** UP - Move entry up.
527 ** SHIFT + UP - Move page up.
528 ** CTRL + UP - Move to the top.
529 **/
530 if ( msg->Qualifier & ( IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT ))
531 SetGadgetAttrs(( struct Gadget * )lv_obj, window, NULL, LISTV_Select, LISTV_Select_Page_Up, TAG_END );
532 else if ( msg->Qualifier & IEQUALIFIER_CONTROL )
533 SetGadgetAttrs(( struct Gadget * )lv_obj, window, NULL, LISTV_Select, LISTV_Select_First, TAG_END );
534 else
535 SetGadgetAttrs(( struct Gadget * )lv_obj, window, NULL, LISTV_Select, LISTV_Select_Previous, TAG_END );
536 break;
537
538 case 0x4D:
539 /*
540 ** DOWN - Move entry down.
541 ** SHIFT + DOWN - Move page down.
542 ** CTRL + DOWN - Move to the end.
543 **/
544 if ( msg->Qualifier & ( IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT ))
545 SetGadgetAttrs(( struct Gadget * )lv_obj, window, NULL, LISTV_Select, LISTV_Select_Page_Down, TAG_END );
546 else if ( msg->Qualifier & IEQUALIFIER_CONTROL )
547 SetGadgetAttrs(( struct Gadget * )lv_obj, window, NULL, LISTV_Select, LISTV_Select_Last, TAG_END );
548 else
549 SetGadgetAttrs(( struct Gadget * )lv_obj, window, NULL, LISTV_Select, LISTV_Select_Next, TAG_END );
550
551 break;
552
553 case 0x43:
554 case 0x44:
555 /*
556 ** RETURN or ENTER - Report the listview ID to the event handler.
557 **/
558 DoMethod( obj, WM_REPORT_ID, (( struct Gadget * )lv_obj )->GadgetID, 0L );
559 break;
560 }
561 }
562 REGFUNC_END
563
564 /*
565 ** The hook structures as added to the
566 ** listview object and window object.
567 **
568 ** If your compiler complaints about the
569 ** HOOKFUNC typedef uncomment the below line.
570 **/
571
572 /* typedef ULONG (*HOOKFUNC)(); */
573
574 struct Hook ResourceHook = { {NULL, NULL}, (HOOKFUNC)ResourceHookFunc, NULL, NULL };
575 struct Hook DisplayHook = { {NULL, NULL}, (HOOKFUNC)DisplayHookFunc, NULL, NULL };
576 struct Hook CompareHook = { {NULL, NULL}, (HOOKFUNC)CompareHookFunc, NULL, NULL };
577 struct Hook ScrollHook = { {NULL, NULL}, (HOOKFUNC)ScrollHookFunc, NULL, NULL };
578
579 /*
580 ** Scan the directory "name".
581 **/
582 VOID ScanDirectory( UBYTE *name, Object *obj )
583 {
584 struct ExAllControl *eac;
585 struct ExAllData *ead, *tmp;
586 struct FileInfoBlock *fib;
587 BPTR lock;
588 BOOL ismore;
589
590 /*
591 ** We need to recompute the columns.
592 **/
593 ReCompCols = TRUE;
594
595 /*
596 ** Get a lock to the directory.
597 **/
598 if (( lock = Lock( name, ACCESS_READ ))) {
599 /*
600 ** Allocate a FileInfoBlock structure.
601 **/
602 if (( fib = ( struct FileInfoBlock * )AllocDosObject( DOS_FIB, NULL ))) {
603 /*
604 ** Examine the lock.
605 **/
606 if ( Examine( lock, fib )) {
607 /*
608 ** Is this a directory?
609 **/
610 if ( fib->fib_DirEntryType > 0 ) {
611 /*
612 ** Allocate ExAll() control structure.
613 **/
614 if (( eac = ( struct ExAllControl * )AllocDosObject( DOS_EXALLCONTROL, NULL ))) {
615 /*
616 ** Set key to NULL.
617 **/
618 eac->eac_LastKey = (IPTR)NULL;
619 /*
620 ** Allocate ExAll() buffer.
621 **/
622 if (( ead = ( struct ExAllData * )AllocVec( 10 * sizeof( struct ExAllData ), MEMF_PUBLIC ))) {
623 /*
624 ** Read directory.
625 **/
626 do {
627 /*
628 ** Fill buffer.
629 **/
630 ismore = ExAll( lock, ead, 10 * sizeof( struct ExAllData ), ED_DATE, eac );
631
632 /*
633 ** Errors? Done?
634 **/
635 if (( ! ismore ) && ( IoErr() != ERROR_NO_MORE_ENTRIES ))
636 break;
637
638 /*
639 ** Entries read?
640 **/
641 if ( ! eac->eac_Entries )
642 continue;
643
644 /*
645 ** Pick up data pointer.
646 **/
647 tmp = ead;
648
649 /*
650 ** Add the entries.
651 **/
652 do {
653 AddEntry( NULL, obj, tmp, LVAP_SORTED );
654 /*
655 ** Next...
656 **/
657 tmp = tmp->ed_Next;
658 } while ( tmp );
659 } while ( ismore );
660 /*
661 ** Deallocate ExAll() buffer.
662 **/
663 FreeVec( ead );
664 }
665 /*
666 ** Deallocate ExAll() control structure.
667 **/
668 FreeDosObject( DOS_EXALLCONTROL, eac );
669 }
670 }
671 }
672 /*
673 ** Deallocate FileInfoBlock structure.
674 **/
675 FreeDosObject( DOS_FIB, fib );
676 }
677 /*
678 ** Release lock.
679 **/
680 UnLock( lock );
681 }
682 }
683
684 /*
685 ** And were off...
686 **/
687 #define ID_QUIT 1
688 #define ID_LIST 2
689 #define ID_NEWDIR 3
690
691 VOID StartDemo( void )
692 {
693 struct RDArgs *ra;
694 struct Window *win;
695 Object *WO_DirWin, *GO_DirList, *GO_Quit, *GO_NewDir;
696 FILEINFO *fi;
697 IPTR dname = 0L;
698 IPTR signal;
699 ULONG rc;
700 UBYTE name[ 512 ], *ptr;
701 BOOL running = TRUE;
702
703 /*
704 ** Parse command line?
705 **/
706 if (( ra = ReadArgs( "NAME", &dname, NULL ))) {
707 /*
708 ** Copy the name into the buffer.
709 **/
710 if ( dname ) strcpy( name, ( UBYTE * )dname );
711 else name[ 0 ] = 0;
712 /*
713 ** Create the listview object.
714 **/
715 GO_DirList = ListviewObject,
716 LISTV_ResourceHook, &ResourceHook,
717 LISTV_DisplayHook, &DisplayHook,
718 LISTV_TitleHook, &DisplayHook,
719 LISTV_CompareHook, &CompareHook,
720 GA_ID, ID_LIST,
721 EndObject;
722 /*
723 ** Put it in the IDCMP hook.
724 **/
725 ScrollHook.h_Data = ( APTR )GO_DirList;
726 /*
727 ** Create the window.
728 **/
729 WO_DirWin = WindowObject,
730 WINDOW_Title, "MultiCol",
731 WINDOW_RMBTrap, TRUE,
732 WINDOW_ScaleWidth, 50,
733 WINDOW_ScaleHeight, 30,
734 WINDOW_AutoAspect, TRUE,
735 WINDOW_SmartRefresh, TRUE,
736 WINDOW_IDCMPHookBits, IDCMP_RAWKEY,
737 WINDOW_IDCMPHook, &ScrollHook,
738 WINDOW_MasterGroup,
739 VGroupObject, HOffset( 4 ), VOffset( 4 ), Spacing( 4 ), GROUP_BackFill, SHINE_RASTER,
740 StartMember,
741 VGroupObject,
742 StartMember, GO_DirList, EndMember,
743 StartMember,
744 GO_NewDir = KeyString( NULL, name, 512, ID_NEWDIR ), FixMinHeight,
745 EndMember,
746 EndObject,
747 EndMember,
748 StartMember,
749 HGroupObject,
750 VarSpace( DEFAULT_WEIGHT ),
751 StartMember, GO_Quit = KeyButton( "_Quit", ID_QUIT ), EndMember,
752 VarSpace( DEFAULT_WEIGHT ),
753 EndObject, FixMinHeight,
754 EndMember,
755 EndObject,
756 EndObject;
757
758 /*
759 ** Window created OK?
760 **/
761 if ( WO_DirWin ) {
762 /*
763 ** Add gadget key.
764 **/
765 if ( GadgetKey( WO_DirWin, GO_Quit, "q" )) {
766 /*
767 ** Open the window.
768 **/
769 if (( win = WindowOpen( WO_DirWin ))) {
770 /*
771 ** Obtain signal mask.
772 **/
773 GetAttr( WINDOW_SigMask, WO_DirWin, &signal );
774 /*
775 ** Read in the directory.
776 **/
777 WindowBusy( WO_DirWin );
778 ScanDirectory( name, GO_DirList );
779 WindowReady( WO_DirWin );
780 /*
781 ** Refresh the list.
782 **/
783 RefreshList( win, GO_DirList );
784 /*
785 ** Poll messages...
786 **/
787 do {
788 Wait( signal );
789 while (( rc = HandleEvent( WO_DirWin )) != WMHI_NOMORE ) {
790 switch ( rc ) {
791
792 case ID_QUIT:
793 case WMHI_CLOSEWINDOW:
794 running = FALSE;
795 break;
796
797 case ID_LIST:
798 /*
799 ** Get selected entry.
800 **/
801 if (( fi = ( FILEINFO * )FirstSelected( GO_DirList ))) {
802 /*
803 ** Is the entry a directory?
804 **/
805 if ( fi->fi_IsDir ) {
806 /*
807 ** AddPart() the name to the buffer.
808 **/
809 AddPart( name, &fi->fi_FileName[ 0 ], 512 );
810 /*
811 ** Refresh the string gadget.
812 **/
813 SetGadgetAttrs(( struct Gadget * )GO_NewDir, win, NULL, STRINGA_TextVal, name, TAG_END );
814 /*
815 ** Re-read the list.
816 **/
817 refreshDir:
818 WindowBusy( WO_DirWin );
819 ClearList( win, GO_DirList );
820 ScanDirectory( name, GO_DirList );
821 RefreshList( win, GO_DirList );
822 WindowReady( WO_DirWin );
823 }
824 }
825 break;
826
827 case ID_NEWDIR:
828 /*
829 ** Copy the new name to the buffer.
830 **/
831 GetAttr( STRINGA_TextVal, GO_NewDir, ( IPTR * )&ptr );
832 strcpy( name, ptr );
833 goto refreshDir;
834 }
835 }
836 } while ( running );
837 }
838 }
839 /*
840 ** Kill the object.
841 **/
842 DisposeObject( WO_DirWin );
843 }
844 /*
845 ** Delete the ReadArgs structure.
846 **/
847 FreeArgs( ra );
848 }
849 }
Mirror of AROS' Contrib svn.