Topic: Double Click in a List_Box

[Lee Mac]

In my current project I would like to be able to double click on an item in a DCL list_box and have another dialog open with this action, however the only way I have found to have a double click is the "allow_accept" attribute.

But this would follow the action of the tile with the "accept" key. Therefore I considered having an arbitrary tile with the "accept" key to perform the actions I wanted, but this would mean a superfluous tile on the dialog (unless such things can be hidden?)

I am a bit stumped as to how to approach this one - but I do believe it to be possible, as I have seen a similar thing in action in MP's axprops.fas application (a very nice piece of work indeed).

Any help is appreciated,

Thanks,

Lee

[Andrea]

Hi Lee..

Maybe this can Help..

Not very elegant...but it work.

Code: [Select]

(defun c:test (/ mylist dcl_id)
  (createleemacdialog)
  (setq dcl_id (load_dialog (strcat (getvar "SAVEFILEPATH") "test.dcl")))
  (if (not (new_dialog "test" dcl_id))
    (exit)
  )
  (setq mylist (list "Electrical" "Structural" "Plumbing" "Foundation"))
  (start_list "LB1" 3)
  (mapcar 'add_list mylist)
  (end_list)
  (action_tile
    "LB1"
    "(setq readlist (get_tile \"LB1\"))
    (if (eq (nth (atoi readlist) myList) firstitem)
    (progn
    (alert (nth (atoi readlist) myList))
    (setq firstitem nil)
    )   
    (setq firstitem (nth (atoi readlist) myList))
    )"
  )
  ;;ACTION 
  (action_tile "accept" "(done_dialog) (setq userclick T)")
  (action_tile "cancel" "(done_dialog) (setq userclick nil)")
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
)




(defun createleemacdialog (/ dialf)
  (setq dialf (open (strcat (getvar "SAVEFILEPATH") "test.dcl") "w"))
  (write-line
    "test  : dialog {
          label = \"test double click\" ;

: column {
: spacer {}

: boxed_column {
: spacer {}

label = \"ListBox :\";
 

: list_box {
        key = \"LB1\";       
        }


}

: spacer {}

        : text {     
        label = \"For LeeMac Only ! ;-)\";
        }
        : row {
  children_alignment = top ;
 
      }


}
: spacer {}

        ok_cancel ;

 }

"   dialf
  )
  (close dialf)
)



[Lee Mac]

Nice idea Andrea,

Thats a good substitute for the double click action - it doesn't emulate it exactly, as there can be an indefinite delay between the two clicks, but its pretty close 

Thanks,

Lee

[Andrea]

maybe by adding this..

Code: [Select]

(defun c:test (/ mylist dcl_id)
  (createleemacdialog)
  (setq dcl_id (load_dialog (strcat (getvar "SAVEFILEPATH") "test.dcl")))
  (if (not (new_dialog "test" dcl_id))
    (exit)
  )
  (setq mylist (list "Electrical" "Structural" "Plumbing" "Foundation"))
  (start_list "LB1" 3)
  (mapcar 'add_list mylist)
  (end_list)
  (action_tile
    "LB1"
    "(setq readlist (get_tile \"LB1\"))
    (setq start# (getvar \"date\"))
    (if (and
        (eq (nth (atoi readlist) mylist) firstitem)
        (< (abs (read (rtos (- end# start#) 2 10))) 0.0000011667)
        )
       
      (progn (alert (nth (atoi readlist) mylist))
             (setq firstitem nil)
      )
      (progn
      (setq end# (getvar \"date\"))
      (setq firstitem (nth (atoi readlist) mylist))
      )
    )"
  )
  ;;ACTION 
  (action_tile "accept" "(done_dialog) (setq userclick T)")
  (action_tile "cancel" "(done_dialog) (setq userclick nil)")
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
)

(rtos (getvar  "date") 2 8)



(defun createleemacdialog (/ dialf)
  (setq dialf (open (strcat (getvar "SAVEFILEPATH") "test.dcl") "w"))
  (write-line
    "test  : dialog {
          label = \"test double click\" ;

: column {
: spacer {}

: boxed_column {
: spacer {}

label = \"ListBox :\";
 

: list_box {
        key = \"LB1\";       
        }


}

: spacer {}

        : text {     
        label = \"For LeeMac Only ! ;-)\";
        }
        : row {
  children_alignment = top ;
 
      }


}
: spacer {}

        ok_cancel ;

 }

"   dialf
  )
  (close dialf)
)




[Lee Mac]

Haven't tried your most recent post yet - but I had a dabble with this:

Code: [Select]

(defun c:test (/ mylist dcl_id ptr acptr)
  (createleemacdialog)
  (setq dcl_id (load_dialog (strcat (getvar "SAVEFILEPATH") "test.dcl")))
  (if (not (new_dialog "test" dcl_id))
    (exit)
  )
  (setq mylist (list "Electrical" "Structural" "Plumbing" "Foundation"))
  (start_list "LB1" 3)
  (mapcar 'add_list mylist)
  (end_list)

  (action_tile "accept" "(or (and acPtr
                                  (not (alert (nth (atoi acPtr) mylist)))
                                  (not (setq acPtr nil)))
                             (done_dialog))")
  (action_tile "LB1"    "(or (and (eq ptr $value)
                                  (not (setq acPtr ptr ptr nil)))
                             (setq ptr $value))")
  (action_tile "cancel" "(done_dialog)")

  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
)




(defun createleemacdialog (/ dialf)
  (setq dialf (open (strcat (getvar "SAVEFILEPATH") "test.dcl") "w"))
  (write-line
    "test  : dialog {
          label = \"test double click\" ;

: column {
: spacer {}

: boxed_column {
: spacer {}

label = \"ListBox :\";
 

: list_box {
        key = \"LB1\";
        allow_accept = true;
        }


}

: spacer {}

        : text {     
        label = \"For LeeMac + Andrea Only ! ;-)\";
        }
        : row {
  children_alignment = top ;
 
      }


}
: spacer {}

        ok_cancel ;

 }

"   dialf
  )
  (close dialf)
)



[Lee Mac]

Very nice Andrea! - I like your thinking... when I said there was an indefinite about of time between clicks, you took this literally and put a cap on that time... nice thinking 

[Andrea]

Very nice Andrea! - I like your thinking... when I said there was an indefinite about of time between clicks, you took this literally and put a cap on that time... nice thinking 

Thanks !   
that way you will be able to set double-click delay. :ugly:

[Lee Mac]

A slightly tider action statement:

Code: [Select]

(action_tile "LB1"
    "(setq start# (getvar \"date\"))
     (if (and (eq ptr $value)
              (< (abs (read (rtos (- end# start#) 2 10))) 0.0000011667))
             
      (progn
      (alert (nth (atoi ptr) mylist))
             (setq ptr nil))
             
      (setq end# (getvar \"date\") ptr $value))"
  )


[Andrea]

A slightly tider action statement:

Code: [Select]

(action_tile "LB1"
    "(setq start# (getvar \"date\"))
     (if (and (eq ptr $value)
              (< (abs (read (rtos (- end# start#) 2 10))) 0.0000011667))
             
      (progn
      (alert (nth (atoi ptr) mylist))
             (setq ptr nil))
             
      (setq end# (getvar \"date\") ptr $value))"
  )


not sure to understand...

why (eq ptr $value) ?
$value and ptr always = nil ?

[Lee Mac]

$value is the value of the tile when the action_tile is triggered 

[Andrea]

$value is the value of the tile when the action_tile is triggered 

oh ! I see...

nice...!!  thanks !

[GDF]

Code: [Select]

;;;double clicking on image tile
(defun ARCH:SET_X (a) (setq x a))
(defun ARCH:READ_X  (a)
  (if (= x a)
    (done_dialog)))

(action_tile
    "S1"
    "(ARCH:READ_X 1)(RESETNO-OFF)(ARCH:PLAY-SYM \"S1\" \"North\" \"Arrow\")(ARCH:SET_X 1)")


This is what I do for double clicking on button in a dialog box.

In the SYMS dialog box image below, a single click changes the image and a double click does the action.
The S1 image is in the upper left (north arrow) button.

[jbuzbee]

. . . psst: OpenDCL.com

all the cool kids are doing it . . . 

[Andrea]

. . . psst: OpenDCL.com

all the cool kids are doing it . . . 

I prefer ObjectDCL.com   :pissed:

[Lee Mac]

. . . psst: OpenDCL.com

all the cool kids are doing it . . . 

I prefer ObjectDCL.com   :pissed:

I haven't tried either tbh...

Andrea, is ObjectDCL part of your company?

JBuz >  I have had a look at OpenDCL.com - may look into getting into it... not sure how easy it is to get to grips with though...